Merhaba
Alttaki koddaki koyu kısım çalışmadı.
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.Form.Requery
End Sub
Adı Soyadı:
Da.... Re....
Yaşı:
43
Konum:
Sakarya
Ofis Versiyonu:
Ofis 2016 64 Bit
Son Oturumu:
25/09/2019,11:28
Cevapla