זה הקוד. תודה.
Dim db1 As Database On Error GoTo err_handler Dim rst As DAO.Recordset Set db1 = CurrentDb() Set rst = db1.OpenRecordset("tr", dbOpenDynaset) rst.FindFirst "x=" & Me.משולבת29 rst.Edit rst!panoi = "yes" rst.Update Set rst = Nothing Set db1 = Nothing MsgBox " השיבוץ נשמר" DoCmd.GoToRecord , , acNewRec Exit Sub
