Hocam selamlar,
Bir combobox ım var oradan veri aratıyorum. Dört haneli numerik bir veri. Combobox ı açarak aratıyorum sonra bul düğmesine basınca o 4 haneli veri ile ilgili diğer bilgiler önüme akıyor. Aynı zamanda combobox a 4 haneli veriyi yazınca, bul düğmesine basmadan da tüm veriler önüme geliyor, aşağıdaki kod sayesinde. Sıkıntı şu ; örneğin arattığım veriler arasında 1980 diye bir veri var. El ile 1980 yazmak isterken 1 i yazdığım anda böyle bir kayıt yok diye uyarı veriyor, ama 1980 var ben onu arıyorum. Tamam diyerek devam etmek istiyorum bu sefer 19 diye bir veri yok diyor. Bunu 4 hanenin tamamını yazdıktan sonra veri yoksa uyarı vermesini nasıl sağlarım ?
Private Sub ComboBox7_Change()
'formdaki kontrolleri temizliyoruz..
For Each ct In Me.Controls
If TypeName(ct) = "TextBox" Then ct.Text = ""
If TypeName(ct) = "ComboBox" Then
If ct.Name <> "ComboBox7" Then ct.ListIndex = -1
End If
Next
Call CommandButton7_Click
End Sub
Bir combobox ım var oradan veri aratıyorum. Dört haneli numerik bir veri. Combobox ı açarak aratıyorum sonra bul düğmesine basınca o 4 haneli veri ile ilgili diğer bilgiler önüme akıyor. Aynı zamanda combobox a 4 haneli veriyi yazınca, bul düğmesine basmadan da tüm veriler önüme geliyor, aşağıdaki kod sayesinde. Sıkıntı şu ; örneğin arattığım veriler arasında 1980 diye bir veri var. El ile 1980 yazmak isterken 1 i yazdığım anda böyle bir kayıt yok diye uyarı veriyor, ama 1980 var ben onu arıyorum. Tamam diyerek devam etmek istiyorum bu sefer 19 diye bir veri yok diyor. Bunu 4 hanenin tamamını yazdıktan sonra veri yoksa uyarı vermesini nasıl sağlarım ?
Private Sub ComboBox7_Change()
'formdaki kontrolleri temizliyoruz..
For Each ct In Me.Controls
If TypeName(ct) = "TextBox" Then ct.Text = ""
If TypeName(ct) = "ComboBox" Then
If ct.Name <> "ComboBox7" Then ct.ListIndex = -1
End If
Next
Call CommandButton7_Click
End Sub