Formdan Bilgi Aktarma

Dart Reder

Access Cevaplanmış Soruları

1055

20/06/2018, 11:32 #1

Aktif Üye

Dart Reder

Bul

Aktif Üye*

Adı Soyadı: Da.... Re....

Yaşı: 43

Konum: Sakarya

Ofis Versiyonu: Ofis 2016 64 Bit

Son Oturumu: 25/09/2019,11:28

Yorumları: 48

Konuları: 13

Kayıt Tarihi: 07/02/2018

Teşekkür Puanı: 0

Mesleğiniz: Vet.

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