Kod:
Private Sub kaydet_Click()
If Me.a > Me.aa Then
MsgBox ("ABIRIMI yetersiz")
Else
If Me.b > Me.bb Then
MsgBox ("BBIRIMI yetersiz")
Else
If Me.c > Me.cc Then
MsgBox ("CBIRIMI yetersiz")
Else
DoCmd.Save
DoCmd.GoToRecord , , acNewRec
End If
End If
End If
End Sub