منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
زر بحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : زر بحث (/showthread.php?tid=36136)



زر بحث - elgwadsoft - 17-08-20

محتاج عمل كود زر بحث في 2 عمود واحد باللغة العربية والاخر بالانجليزية بحيث نتمكن من البحث باي من اللغتين في نفس Textbox
برجاء مراجعة الكود ادناة
Private Sub Mysearch()

    Me.TextBox1.Text = ""
    Me.TextBox2.Text = ""
    Me.TextBox3.Text = ""
    
    Dim isearch As Long
    Dim i As Long
    
    isearch = Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count
    
    For i = 2 To isearch
    
        If IsEmpty(Sheet1.Cells(i, 1)) = False Then
        
            If IsError(Sheet1.Cells(i, 1)) = False Then
        
                If Trim(LCase(Sheet1.Cells(i, 1))) = Trim(LCase(Me.TextBox4.Text)) Then
                
                    Me.TextBox1.Text = Sheet1.Cells(i, 1)
                    Me.TextBox2.Text = Sheet1.Cells(i, 2)
                    Me.TextBox3.Text = Sheet1.Cells(i, 3)
                    
                    Exit For
                    
                End If
        
            End If
        End If
    
        If i = isearch Then
        
            MsgBox "áÇ ÊæÌÏ ÈíÇäÇÊ", vbInformation
            Me.TextBox4.Text = ""
            Me.TextBox4.SetFocus
            
        End If
    
    Next i
    

End Sub