+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Alt Formda İstenilen Sayıda Onay İşaretlenmesi (/konu-alt-formda-istenilen-sayida-onay-isaretlenmesi.html)
Alt Formda İstenilen Sayıda Onay İşaretlenmesi - karaayhan - 26/05/2024
örnekte
alt formdaki onay kutularının istenilen sayıda işaretlenmesi
Re: Alt Formda İstenilen Sayıda Onay İşaretlenmesi - onur_can - 27/05/2024
Ö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"RE: Alt Formda İstenilen Sayıda Onay İşaretlenmesi - karaayhan - 27/05/2024
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
RE: Alt Formda İstenilen Sayıda Onay İşaretlenmesi - berduş - 03/06/2024
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
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
RE: Alt Formda İstenilen Sayıda Onay İşaretlenmesi - karaayhan - 03/06/2024
(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
RE: Alt Formda İstenilen Sayıda Onay İşaretlenmesi - berduş - 03/06/2024
rica ederim
iyi çalışmalar