السلام عليكم ورحمة الله
قمت بكتابة هذا الكود فى زر بحث عن الارقام التى تبداء بـ "010" والارقام التى تبداء بـ "012" وطبعا عرفت الداتا والجدول
الغريبة ان الجزء الاول من الكود وهو البحث عن "010" يعمل بصورة صحيحة جداااااا والجزء الثانى
من الكود وهو البحث عن "012" يبحث فى النصف الاول فقط والنصف الاخر لا يستجيب ابدااااا
ارجو قراءة هذه الاكواد جيدا لفهمها والرد عليا
وارجو ايضا من خبراء المنتدى ابداء الرأى فى طريقتى فى عمل البرنامج من خلال هذه الطريقة وهذه الاكواد
ارجوا الضغط على Alt + Shift (Left ) to read my code perfect
شكرا لكم جميعاااا
MSFlexGrid1.Clear
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "Statement"
MSFlexGrid1.ColAlignment(0) = 4
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "Name"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "The first phone number"
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "The second phone number"
Dim db As Database
Dim Tb1 As Recordset
Set db = Workspaces(0).OpenDatabase(App.Path & "\db.mdb")
Set Tb1 = db.OpenRecordset("tb1", dbOpenDynaset)
i = 1
If OsenXPOptionButton4.Value = True Then
Do Until Tb1.EOF
t = Tb1("tel")
T1 = Tb1("tel2")
If Mid(t, 1, 3) = "010" Then
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = i
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = Tb1("name")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = Tb1("tel")
If Mid(T1, 1, 3) = "010" Then
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = Tb1("tel2")
End If
i = i + 1
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
End If
Tb1.MoveNext
Loop
End If
i = 1
If OsenXPOptionButton5.Value = True Then
Do Until Tb1.EOF
t = Tb1("tel")
T1 = Tb1("tel2")
If Mid(t, 1, 3) = "012" Then
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = i
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = Tb1("name")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = Tb1("tel")
If Mid(T1, 1, 3) = "012" Then
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = Tb1("tel2")
End If
i = i + 1
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
End If
Tb1.MoveNext
Loop
End If
