Merhaba, eklediğiniz dosyada herhangi bir hata göremedim.
merhaba
hata sorunu cözüldü.
teşekkürler
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
Me.Parent.FR_TB_PER_EL_LİST.Form.Requery
yaparak düzlettim alt formdan diğer alt forma isim sicil ve tarih aktarımı yapıyor.
ama malzeme adı ve malzeme no alanlarını güncelleyemiyorum.
"FR_TB_PER_EL_LİST" formunun düzenleme izni="hayır" olarak ayarlanmış, sorun bundan kaynaklanıyor olabilir düzenleme izni="evet" yapıp dener misiniz?
Evet doğru teşekkürler düzelttim.