"before updat"e yazmayı denediniz mi?
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."
Me.Açılan_Kutu30.SetFocus
End If
Exit Sub
End Sub