Kelime bulmuyor Rakam Buluyor

[korpixy]

Sa sayın hocalar Başlık mantıksız oldu farkındayım kusuruma bakmayın. Benim sıkıntı özet olarak useform ile hazırladığım evrak kayıt proğramında arama butonuna internetten bulduğum bir kodu yapıştırdım. Sıkıntı şu oldu verinin başında rakam olması halinde arama yapıyor. Aksi halde her aramamda ilk veriyi buluyor.
Aşağıda yaptığım hata nedir üstatlar. Neden sadece sayısal verileri buluyorum.

 Private Sub cmdSearch_Click()
    blnNew = False
    txtEmpNo.Text = ""
    txtEmpName.Text = ""
    txtAdd1.Text = ""
    txtAdd2.Text = ""
    txtAdd3.Text = ""
    txtTel.Text = ""
    txtDesignation.Text = ""
   
    TRows = Worksheets("Data").Range("A1").CurrentRegion.Rows.Count
    For i = 2 To TRows
        If Val(Trim(Worksheets("Data").Cells(i, 1).Value)) = Val(Trim(ComboBox1.Text)) Then
                
            txtEmpNo.Text = Worksheets("Data").Cells(i, 1).Value
            txtEmpName.Text = Worksheets("Data").Cells(i, 2).Value
            txtAdd1.Text = Worksheets("Data").Cells(i, 3).Value
            txtAdd2.Text = Worksheets("Data").Cells(i, 4).Value
            txtAdd3.Text = Worksheets("Data").Cells(i, 5).Value
            txtTel.Text = Worksheets("Data").Cells(i, 6).Value
            txtDesignation.Text = Worksheets("Data").Cells(i, 7).Value
            
            Exit For
        End If
    Next i
    If Trim(txtEmpNo.Text) = "" Then
        cmdSave.Enaed = True
        cmdDelete.Enabbled = False
        cmdDelete.Enabled = False
        Frame2.Enabled = False
    Else
        cmdSave.Enablled = True
        Frame2.Enabled = True
    End If
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki sayıları "aşağı yuvarlama" yapan bölümü;

If [COLOR="Red"]Val[/COLOR](Trim(Worksheets("Data").Cells(i, 1).Value)[COLOR="Red"])[/COLOR] = [COLOR="Red"]Val([/COLOR]Trim(ComboBox1.Text)[COLOR="Red"])[/COLOR] Then

Şöyle deneyiniz.

If Trim(Worksheets("Data").Cells(i, 1).Text) = Trim(ComboBox1.Text) Then

Alt bölümdeki "Enaed" gibi yanlışları "Enabled" olarak düzeltiniz.

 

[korpixy]

Allah sizden razı olsun çok teşekkür ederim Plint hocam

 

[PLİNT]

Allah sizden razı olsun çok teşekkür ederim Plint hocam

Rica ederim, Allah sizdende razı olsun.

 

[korpixy]

Hocam son bir şey daha sormak istiyorum şimdi ben bu arama tuşuna bastığımda aranan kelimeden databasede 2 yada daha çok olması durumunda diğer kayıtlarında görülmesini istiyorum. Yani bu kodun bulunduğu arama tuşuna bastıkça aranan kelimeden birden fazla olması durumunda tek tek sonuçları göstermesi şimdiden yardımlarınız için çok teşekkür ederim

 

[PLİNT]

Hocam son bir şey daha sormak istiyorum şimdi ben bu arama tuşuna bastığımda aranan kelimeden databasede 2 yada daha çok olması durumunda diğer kayıtlarında görülmesini istiyorum. Yani bu kodun bulunduğu arama tuşuna bastıkça aranan kelimeden birden fazla olması durumunda tek tek sonuçları göstermesi şimdiden yardımlarınız için çok teşekkür ederim

Merhaba
Bunun için "Userform" a "Listbox" ekleyip bulunanları listeye alarak görürsünüz, daha sonrada listeden seçip "Textbox" lara aktarabilirsiniz.

 

[korpixy]

Sayın plint hocam ben size çalışmamı atayım daha iyi anlayacaksınız listbox bulunuyor useformda ama olmadı vb şifresi 19911453571
https://yadi.sk/i/Oc_bohF2qFBEj

 

[PLİNT]

Merhaba
Ek dosyayı inceleyiniz.
"Combobox" tan isim seçtikçe veya harf girdikçe listeleyecektir.
(ara butonu dosyada pasif; gerekirse kodlarının sonradan eklenenlerini silersiniz)
http://s8.dosya.tc/server2/indjk5/EVRAKKAYITsdflkdssls.zip.html

 

[korpixy]

Plint hocam çok teşekkür ederim ellerinize sağlık herşey çok güzel ama listelenen verilere tıkladığımda aşağıda ki verilerde gelirse çalışmam tamamlanacak Sizi de meşgul ediyorum hakkınızı helal edin

 

[PLİNT]

Plint hocam çok teşekkür ederim ellerinize sağlık herşey çok güzel ama listelenen verilere tıkladığımda aşağıda ki verilerde gelirse çalışmam tamamlanacak Sizi de meşgul ediyorum hakkınızı helal edin

Anlayamadım ama "Listbox" ta isim birden fazla ise hangisi seçilirse o satırdaki
veriler "TextBox" lara gelecektir.

 

[korpixy]

hocam malasef gelmiyor else without if hatası veriyor tıkladığım

Anlayamadım ama "Listbox" ta isim birden fazla ise hangisi seçilirse o satırdaki
veriler "TextBox" lara gelecektir.

 

[PLİNT]

Bir bakarmısınız yapmak istediğiniz, değişikmi?
http://i.hizliresim.com/ljdqkX.gif

 

[korpixy]

hocam aynen istediğim bu şekilde ben aramayı aktif ettiğim için mi acaba tıkladığımda hata veriyor

 

[PLİNT]

hocam aynen istediğim bu şekilde ben aramayı aktif ettiğim için mi acaba tıkladığımda hata veriyor

Ondan olmuyor

"Listbox1_Click" kodlarında nerede takılıyor

Private Sub ListBox1_Click()
            txtEmpNo.Text = ListBox1.Column(1)
      If IsDate(ListBox1.Column(2)) = True Then
      txtEmpName.Text = Format(ListBox1.Column(2), "dd/mm/yyyy")
 Else
txtEmpName.Text = ListBox1.Column(2)
 End If
            txtAdd1.Text = ListBox1.Column(3)
            txtAdd2.Text = ListBox1.Column(4)
            txtAdd3.Text = ListBox1.Column(5)
            txtTel.Text = ListBox1.Column(6)
            txtDesignation.Text = ListBox1.Column(7)
End Sub

 

[korpixy]

Hocam else de takılıyor ayrıca texbox da sıra no kisminda sadece 3 basamaklı sayı gözüküyor

 

[PLİNT]

Hocam else de takılıyor ayrıca texbox da sıra no kisminda sadece 3 basamaklı sayı gözüküyor

Merhaba
"Listbox" altındaki kodları üstteki mesajda olduğu gibi komple değiştirin, "İf" bölümünü
olması gereken yere eklememişsiniz.
If IsDate(ListBox1.Column(2)) = True Then