[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

إخواني الأكارم لو تكرّمتم فضلا لا أمرًا النّظر بهذه الإشكالية التي أرهقتني كثيرًا

حاولت لأكثر من يوم و بعثرت كلمة Drawflex في كل مكان .. أضفت و أنقصت لكن دون فائدة رغم بساطة الإشكالية

كيف يمكن إعادة البيانات كلها على شبكة الفليكس لمّا أمسح الحروف داخل التاكسات

بهذه الصورة قمت بكتابة حرف العين .. فظهرت لي البيانات داخل الفليكس جريد 

أريد لما أمسح حرف العين تظهر البيانات كلها و عددها 7 الموجودة بقاعدة البيانات على الشبكة 

بمعنى أبحث .. تظهر البيانات حسب نتيجة البحث

ألغي البحث .. تظهر البيانات كلها 

خالص الاحترامات

[Mohamad Anan]

و عليكم السلام و رحمة الله و بركاته

PHP كود :

If Trim$(Text1.Text) <> "" Then
    zSearch = "[Prenom] LIKE '" & Trim$(Text1.Text) & "%'"
Else
    zSearch = "[Prenom] LIKE '%'"
End If 


أو نلغي الشرط:

PHP كود :

zSearch = "[Prenom] LIKE '" & Trim$(Text1.Text) & "%'" 


[sendbad100]

وعليكم السلام ورحمة الله وبركاته

اضافة  الى مشاركة الاخ /  Mohamad Anan     مشكورا

PHP كود :

Private Sub Command1_Click()

Dim zSearch As String


If Trim(Text1.Text) = "" Then GoTo sendbad101:

If Trim$(Text1.Text) <> "" Then zSearch = "[Prenom] LIKE '" & Trim$(Text1.Text) & "%'"
 
If Trim$(Text2.Text) <> "" Then
If Trim$(zSearch) <> "" Then
zSearch = zSearch & " And [Mere] LIKE '" & Trim$(Text2.Text) & "%'"
Else
zSearch = "[Mere] LIKE '" & Trim$(Text2.Text) & "%'"
End If
End If

If Trim$(Text3.Text) <> "" Then
If Trim$(zSearch) <> "" Then
zSearch = zSearch & " And [Groupage] LIKE '" & Trim$(Text3.Text) & "%'"
Else
zSearch = "[Groupage] LIKE '" & Trim$(Text3.Text) & "%'"
End If
End If

If Trim$(Text4.Text) <> "" Then
If Trim$(zSearch) <> "" Then
zSearch = zSearch & " And [Rhesis] LIKE '" & Trim$(Text4.Text) & "%'"
Else
zSearch = "[Rhesis] LIKE '" & Trim$(Text4.Text) & "%'"
End If
End If

If Trim$(Text5.Text) <> "" Then
If Trim$(zSearch) <> "" Then
zSearch = zSearch & " And [Grandpere] LIKE '" & Trim$(Text5.Text) & "%'"
Else
zSearch = "[Grandpere] LIKE '" & Trim$(Text5.Text) & "%'"
End If
End If

If Trim$(zSearch) = "" Then Set MSHFlexGrid1.DataSource = Nothing: Exit Sub
If RS.State = 1 Then RS.Close
RS.CursorLocation = adUseClient
RS.Open "Select * From TB1 Where " & zSearch, DB, adOpenStatic, adLockPessimistic
If RS.RecordCount > 0 Then
Set MSHFlexGrid1.DataSource = RS.Clone
Else
Set MSHFlexGrid1.DataSource = Nothing
End If

DrawFlex

Exit Sub


sendbad101:

If RS.State = 1 Then RS.Close
RS.CursorLocation = adUseClient
'RS.Open "Select * From TB1 Where " & zSearch, DB, adOpenStatic, adLockPessimistic
RS.Open "Select * From TB1 Order By [Code] ASC", DB, adOpenStatic, adLockPessimistic
If RS.RecordCount > 0 Then
Set MSHFlexGrid1.DataSource = RS.Clone
Else
Set MSHFlexGrid1.DataSource = Nothing
End If

DrawFlex

End Sub 


[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

بارك الله فيكما و لكما و رزقكما من حيث لا تحتسبان

Mohamad Anan

Sendbad100

جزاكما الله خير الجزاء و زادها بموازين حسناتكما و أثابكما جنّات النّعيم و حشركما بزمرة النبيّين و الأتقياء و الشهداء و الصّالحين

أحسن الله إليكما مثلما أحسنتما إليَّ بهذيْن العمليْن و الحلّيْن الرّائعين و كلاهما إشتغلا معي أحسن إشتغال و أفضل إستعمال

هذا هو المطلوب بتمامه و كماله و لله الحمد و الشّكر

أكّرر شكري و تقديري و امتناني و عرفاني لكما بالجميل عسى المولى العلي القدير أن يعوّضكما بخير منها إن شاء الله

إحتراماتي