benim için yeterli ancak bu sefer değişkeni Sql cümlesine
yerleştiremedim Aşağdaki şekliyle hata veriyor
Kod:
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 Sub
Bunu çözebilirsek işlem tamam
Teşekkürler