örnekte
alt formdaki onay kutularının istenilen sayıda işaretlenmesi

Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Hugh WALPOLE
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"
(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