TextBox ları boş geçmek

[teksen]

Arkadaşlar merhaba,

Aşağıdaki kodlarla TextBoxa girdiğim bilgileri kaydediyorum.Tamamını doldurduğum zaman bir sorun yok fakat TextBox lardan birini boş bıraksam hata veriyor.

kodlarda nasıl bir değişklik yapabiliriz acaba?




Private Sub kaydet_Click()
Set RS = CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM [MyTable] Where Marka='" & TextBox1 & "'"
RS.Open strSQL, adoCN, 1, 3



RS.AddNew
RS("Marka") = TextBox1
RS("Model") = TextBox2
RS("Tedarikci") = TextBox3
RS("Adet") = TextBox9

RS.Update
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox9 = Empty

RS.Close
RefreshDB
Set kayit = Nothing
End Sub

 

[Orion1]

Alanları sayısal değer olararak düzenlediyseniz.Bu durumda Hata oluşur.
TetxboxLarı kontrol edin ve sayısal olamyan textbox tespit ettiğinizde pbir uyarı ile çalışmayı sonlandırın.
Veya alan ları metin olarak düzenleyin.
Mesela burada tahminimce adet alanı sayısal bir alandır diye düşünüyorum.Diğerleride öyle olabilir.