Dim rs As New ADODB.Recordset
rs.Open "tbl_musterıfısı", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("masano") = Forms![frm_masabılgılerı].masano
rs("urunadı") = Forms![frm_masabılgılerı]![menu].Form![urunadı]
rs.Update
Set rs = Nothing
Forms!frm_masabılgılerı!FIS.Form.Requery

menu altformundaki metin kutusunun çift tıklandığında olayındaki kodları aşağıdaki ile değiştiriniz.