parabirimi formatı

[dfom_2004]

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7 = Format(TextBox7, "###,###.00 ")
End Sub

yukardaki kod ile textboxu formatlıyorum ancak "acaf23" yada "dads" gibi hatalı girişlere uyarı vermediği için programın veritabanı kısmında hata oluşuyor.
database e yazmadan önce "###,###.00 bu formata uyup uymadığını nasıl kontrol ederim.

 

[Levent Menteşoğlu]

formata uygun olup olmadığını kontrol etmek bence verinin tipini kontrol etmekten geçer. Textboxa sadece sayısal veri girilmesini sağlamak mümkündür. Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=20955&highlight=sendkeys