benim için yeterli ancak bu sefer değişkeni Sql cümlesine
yerleştiremedim
Aşağdaki şekliyle hata veriyorKod:
Private Sub SERVIS_SERVISFORM_ID_Click()
Dim ESKIKAYIT As Integer
ESKIKAYIT = Me.SERVIS_SERVISFORM_ID
End Sub
Private Sub SERVIS_SERVISFORM_ID_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE FORMNOTAKIP SET FORMNOTAKIP.SERVISFORM_OK = 0 WHERE (((FORMNOTAKIP.SERVISFORM_ID)=ESKIKAYIT));"
DoCmd.SetWarnings True
End SubBunu çözebilirsek işlem tamam
Teşekkürler