TextBox sorunu

[yavuz829]

Merhaba arkadaşlar ekli dosyamda FRODEME deki TOPLAMODEME TextBoxsu Kayıttan sonra içi boşalsın (0,00) görünmesin istiyorum.
Kaydet dediğimizde TOPLAMODEME TextBoxsu boş olduğu zaman uyarı versin kayıt yapmasın. Yani bu kod devreye girsin (If IsNull(Me.TOPLAMODEME) Then MsgBox "LÜTFEN ÖDEME TUTARINI GİRİNİZ", 48, "Kayıt İşlemi": Me.TOPLAMODEME.SetFocus: Exit Sub)

Giriş şifresi: Ali
123

 

[akd]

kayıt kodunu bu şekilde yapmalısın,
Private Sub Komut27_Click()
If IsNull([TOPLAMODEME]) Then
MsgBox "Ödeme Tutarı boşken kayıt yapamazsınız...", vbCritical, "AKD.YAZILIM"
Exit Sub
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.YAPILANISLEM = ""
Me.TOPLAMODEME = ""
Me.Liste24.Requery
Me.ANAISLEMLER_ISLEMTARIHI.SetFocus

End If
DoCmd.GoToRecord , , acNewRec 'TextBoxların içini temizler
End Sub