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.