زر بحث - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 |