26/05/2024, 20:02
27/05/2024, 13:52
Öncelikle Tbl1 tablonuzda yon alanını arama sihirbazı seçip sol ve sağ değerlerini ekleyin. kaydedip kapatın, Daha sonra satış_onay formunuzu tasarım modunda açıp Yön açılır kutunun Güncelleştirme Sonrasında olayına aşağıdaki kodu ekleyin.
Kod:
Dim strSQL As String
strSQL = "UPDATE tbl1 SET tbl1.onay = True " & _
"WHERE (((tbl1.Yön)=[Formlar]![SATIŞ_ONAYLA]![Açılan Kutu115]))"
DoCmd.SetWarnings False
DoCmd.RunSQL (strSQL)
DoCmd.SetWarnings True
Me.alistansatisa.Requery
MsgBox "Belirtilen Yöndeki Tüm Kayıtlar Onaylanmıştır.", vbInformation + vbOKOnly, "SATIŞLAR"27/05/2024, 20:22
hocam seçilen yöne ait tüm kayıtları işaretliyor(onaylıyor)
miktar yazan kutuya girilen miktar kadar işaretleme yapılması
talebim imkan varsa
miktar yazan kutuya girilen miktar kadar işaretleme yapılması
talebim imkan varsa
03/06/2024, 12:38
aşağıdaki kodu dener misiniz?
Me.alistansatisa.Requery satırının hemen üstüne eklenecek.
çalıştırmak istediğiniz diğer sorgunu amacını bilmediğimden ona dokunmadım gereksizse o kısım silinebilir
Me.alistansatisa.Requery satırının hemen üstüne eklenecek.
çalıştırmak istediğiniz diğer sorgunu amacını bilmediğimden ona dokunmadım gereksizse o kısım silinebilir
xSQL = " update tbl1 set onay=-1 " & _
" where alisNo in (select top " & Me.Metin149 & " alisNo from tbl1 where yön like ""*" & Me.Açılan_Kutu115.Value & "" & "*"") "
CurrentDb.Execute xSQL
03/06/2024, 21:41
(03/06/2024, 12:38)berduş yazdı: [ -> ]xSQL = " update tbl1 set onay=-1 " & _ " where alisNo in (select top " & Me.Metin149 & " alisNo from tbl1 where yön like ""*" & Me.Açılan_Kutu115.Value & "" & "*"") "CurrentDb.Execute xSQL
mükemmel sayın berduş tam istediğim gibi bir çözüm olmuş ellerinize sağlık
03/06/2024, 22:21
rica ederim
iyi çalışmalar
iyi çalışmalar