Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Açılan_Kutu47) Or IsNull(Me.Açılan_Kutu30) Or IsNull(Me.Metin40) Or IsNull(Me.LotNo) Then
MsgBox "Eksik bilgi girişi."
DoCmd.CancelEvent
Exit Sub
End If
End Sub
kaydet butonunun kodunun en başına da aşağıdaki kodu ekler misiniz?eğer düzgün çalışırsa kaydet butonundaki değer kontrol kodlarını silebilirsiniz.
Me.Hareket_alt_formu.Form.Recordset.MoveFirst