Kod:
Private Sub Form_Current()
If IsNull(Me![ÜrünNo]) Then
DoCmd.GoToControl "ÜrünAdı"
Else
Dim BAK As Integer
BAK = BAK = Val(Nz(Me.SipariştekiBirim.Value, 0) - Nz(Me.Metin30.Value, 0))
If BAK <= 0 Then
Me.Metin42 = "Sipariş Veriniz"
Else
Me.Metin42.Value = BAK
End If
End If
End Sub
