طلب كود تصفية النموذج بناء على حقلين

[محمود ادريس]

السلام عليكم

سوؤال عن كيفية فتح النموذج وتضفيتة بناء على حقلين او اكثر

ولكم مني كل التقدير والاحترام

تم تعديل أكتوبر 8, 2015 بواسطه abenjalo

[محمود ادريس]

هذا كود يقوم بتصفية النموذج Form2 حسب اسم المصرف اريد بالاضاف الى المصرف مثلا  الشهر او الجنس

 

Private Sub أمر147_Click()

   Dim stDocName As String

    Dim stLinkCriteria As String

 

 

    stDocName = "FORM2"

    If stLinkCriteria <> اسمالمصرف Then

 stLinkCriteria = "[اسمالمصرف]=" & "'" & Me![اسمالمصرف] & "'"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

 Else

 MsgBox "يرجى اختيار اسم الموضوع من القائمة", vbInformation, 

 اسمالمصرف.SetFocus

End If

Exit_أمر147_Click:

    Exit Sub

 

Err_أمر147_Click:

    MsgBox Err.Description

   

    Resume Exit_أمر147_Click

End Sub

تم تعديل أكتوبر 8, 2015 بواسطه abenjalo

[husamwahab]

السلام عليكم

استفسار

لماذا لا تستخدم الاستعلامات بدل الاكواد

وهذه الطريقة سوف تمكنك من التصفية عن طريق اثنين كومبو بوكس

[ابو عارف]

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

اليك التعديل على الكود حسب حقلي اسم المعرف و الجنس

Private Sub أمر147_Click()
   Dim stDocName As String
    Dim stLinkCriteria As String
 

 
    stDocName = "FORM2"
   
 stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الجنس]='" & [الجنس] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_أمر147_Click:
    Exit Sub
 

Err_أمر147_Click:
    MsgBox Err.Description
   
    Resume Exit_أمر147_Click
End Sub

و هذا على حسب اسم المعرف و الشهر اذا تنسيق حقل الشهر نص

Private Sub أمر147_Click()
   Dim stDocName As String
    Dim stLinkCriteria As String
 

 
    stDocName = "FORM2"
   
 stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الشهر]='" & [الشهر] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_أمر147_Click:
    Exit Sub
 

Err_أمر147_Click:
    MsgBox Err.Description
   
    Resume Exit_أمر147_Click
End Sub

و هذا اذا نتسيق حقل الشهر رقم

Private Sub أمر147_Click()
   Dim stDocName As String
    Dim stLinkCriteria As String
 

 
    stDocName = "FORM2"
   
 stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الشهر]=" & [الشهر]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_أمر147_Click:
    Exit Sub
 

Err_أمر147_Click:
    MsgBox Err.Description
   
    Resume Exit_أمر147_Click
End Sub

بالتوفيق

[نكرو مانسر]

السيد / ابوعـــارف

تحية لك

ماذا لو قمنا بتغيير هدف الكود بعض الشىء 

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

والحقلين من نوع رقمى

حيث بدلا من 

DoCmd.OpenForm stDocName, , , stLinkCriteria

يكون

DoCmd.FindRecord stDocName, , , stLinkCriteria

ولكن الأخير لا يعمل معى

[محمود ادريس]

الف شكر لك الاخ ابوعارف

تم تطبيق الكود وهو يعمل بشكل جيد

تم تعديل أكتوبر 10, 2015 بواسطه abenjalo

[نكرو مانسر]

 

السيد / ابوعـــارف

تحية لك

ماذا لو قمنا بتغيير هدف الكود بعض الشىء 

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

والحقلين من نوع رقمى

حيث بدلا من 

DoCmd.OpenForm stDocName, , , stLinkCriteria

يكون

DoCmd.FindRecord stDocName, , , stLinkCriteria

ولكن الأخير لا يعمل معى

 

•  
• Quote

[نكرو مانسر]

السيد / ابوعـــارف

تحية لك

ماذا لو قمنا بتغيير هدف الكود بعض الشىء 

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

والحقلين من نوع رقمى

حيث بدلا من 

DoCmd.OpenForm stDocName, , , stLinkCriteria

يكون

DoCmd.FindRecord stDocName, , , stLinkCriteria

ولكن الأخير لا يعمل معى

 
 
Quote

[ابو عارف]

و لك تحية

للايجاد سجل ضمن مجموعة سجلات الكود التالي:

Dim rst As Recordset
Set rst = Form.RecordsetClone
rst.FindFirst "ID=" & [Text1] & " And Code=" & [Text2]
If Not rst.EOF Then Bookmark = rst.Bookmark

ملحوظة:

ID و Code اسماء الحقلين و Text1 و Text2  اسماء تكست بوكس

او ارفق المثال للتطبيق عليه

بالتوفيق

[نكرو مانسر]

شكراً يا أخى على مروروك

مرفق المثال المراد التطبيق عليه ..

رقم Set

رقم OrderID

المراد البحث معلومتيهما

أكرمك البارىء

 

 

CPD.rar

[ابو عارف]

السلام عليكم

اخي الكريم حاول تحويل قاعدة بيانات الى الاكسس 2003 قبل رفع حتى يستطيع اخوانك في المنتدى مساعدتك

انظر التعديل، بحث بطريقتين 

بالتوفيق

TTTT.rar

[نكرو مانسر]

صنع الله لك كل الخير ياأخى 

مجهود أكثر من رائع 

 

[jo_2010]

Dim rst As Recordset
Set rst = Form.RecordsetClone
rst.FindFirst "ID=" & [Text1] & " And Code=" & [Text2]
If Not rst.EOF Then Bookmark = rst.Bookmark

 

 

الخبير الفاضل ابو عارف

هذا الكود الرائع يعمل بصورة جيدة بحثت عنة كثيرا حتى وجدتة فلك كل الشكر

ماذا افعل اذا اردت التصفية 3 حقول بد من 2 ارجو افادتى ولل خالص الشكر

واعطاء رسالة فى حالة عدم وجود بيانات مطابقة للحقول التصفية

 

تم تعديل فبراير 12, 2019 بواسطه jo_2010

[jo_2010]

الاستاذ الفاضل ابو عارف 

ارجوك الرد علي في طلبي هذا اضاف تصفبة لحق تالت بدل من ٢ وشكرا لك