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"