20/06/2018, 11:32
Merhaba yaptığım kod (Me.Parent.TB_PER_EL_LİST_ALT_FORM.Form.Requery) satırında hata veriyor.
Private Sub PERSONEL_DblClick(Cancel As Integer)
Dim Bosluk As Long
Bosluk = InStr(1, Me.PERSONEL, " ", vbTextCompare)
CurrentDb.Execute "INSERT INTO TB_PER_EL_LİST ( TARİH, [PERSONEL_NO], [PERSONEL_ADI] ) " & _
"SELECT Now() AS Expr1," & Mid(Me.PERSONEL, 1, (Bosluk - 1)) & " AS E2,'" & Replace(Mid(Me.PERSONEL, (Bosluk + 1), Len(Me.PERSONEL)), "'", "`") & "' AS Expr3"
Me.Parent.TB_PER_EL_LİST_ALT_FORM.Form.Requery
End Sub