06/06/2010, 13:18
Ayrıca; sonradan farkettiğimiz bir hata söz konusu, form üzerinde sizin tarafınızdan hazırlanan örnekte boş kayıtlara tıklandığında hata vermesi söz konusu.. Bu hatanın düzeltilmesi için kodu şeklinde düzeltmelisiniz.
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