محمود ادريس قام بنشر أكتوبر 8, 2015 مشاركة قام بنشر أكتوبر 8, 2015 (معدل) السلام عليكم سوؤال عن كيفية فتح النموذج وتضفيتة بناء على حقلين او اكثر ولكم مني كل التقدير والاحترام تم تعديل أكتوبر 8, 2015 بواسطه abenjalo رابط هذا التعليق شارك More sharing options...
محمود ادريس قام بنشر أكتوبر 8, 2015 الكاتب مشاركة قام بنشر أكتوبر 8, 2015 (معدل) هذا كود يقوم بتصفية النموذج 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 رابط هذا التعليق شارك More sharing options...
husamwahab قام بنشر أكتوبر 8, 2015 مشاركة قام بنشر أكتوبر 8, 2015 السلام عليكم استفسار لماذا لا تستخدم الاستعلامات بدل الاكواد وهذه الطريقة سوف تمكنك من التصفية عن طريق اثنين كومبو بوكس رابط هذا التعليق شارك More sharing options...
ابو عارف قام بنشر أكتوبر 9, 2015 مشاركة قام بنشر أكتوبر 9, 2015 السلام عليكم و رحمة الله و بركاته اليك التعديل على الكود حسب حقلي اسم المعرف و الجنس 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 بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
نكرو مانسر قام بنشر أكتوبر 10, 2015 مشاركة قام بنشر أكتوبر 10, 2015 السيد / ابوعـــارف تحية لك ماذا لو قمنا بتغيير هدف الكود بعض الشىء حيث نريد البحث عن سجل معين بمعرفة حقلين ولكن من خلال اثنين من التكتست بوكس والحقلين من نوع رقمى حيث بدلا من DoCmd.OpenForm stDocName, , , stLinkCriteria يكون DoCmd.FindRecord stDocName, , , stLinkCriteria ولكن الأخير لا يعمل معى رابط هذا التعليق شارك More sharing options...
محمود ادريس قام بنشر أكتوبر 10, 2015 الكاتب مشاركة قام بنشر أكتوبر 10, 2015 (معدل) الف شكر لك الاخ ابوعارف تم تطبيق الكود وهو يعمل بشكل جيد تم تعديل أكتوبر 10, 2015 بواسطه abenjalo رابط هذا التعليق شارك More sharing options...
نكرو مانسر قام بنشر أكتوبر 11, 2015 مشاركة قام بنشر أكتوبر 11, 2015 السيد / ابوعـــارف تحية لك ماذا لو قمنا بتغيير هدف الكود بعض الشىء حيث نريد البحث عن سجل معين وليس فتح نموذج معين بمعرفة حقلين ولكن من خلال اثنين من التكتست بوكس والحقلين من نوع رقمى حيث بدلا من DoCmd.OpenForm stDocName, , , stLinkCriteria يكون DoCmd.FindRecord stDocName, , , stLinkCriteria ولكن الأخير لا يعمل معى Quote رابط هذا التعليق شارك More sharing options...
نكرو مانسر قام بنشر أكتوبر 12, 2015 مشاركة قام بنشر أكتوبر 12, 2015 السيد / ابوعـــارف تحية لك ماذا لو قمنا بتغيير هدف الكود بعض الشىء حيث نريد البحث عن سجل معين وليس فتح نموذج معين بمعرفة حقلين ولكن من خلال اثنين من التكتست بوكس والحقلين من نوع رقمى حيث بدلا من DoCmd.OpenForm stDocName, , , stLinkCriteria يكون DoCmd.FindRecord stDocName, , , stLinkCriteria ولكن الأخير لا يعمل معى Quote رابط هذا التعليق شارك More sharing options...
ابو عارف قام بنشر أكتوبر 12, 2015 مشاركة قام بنشر أكتوبر 12, 2015 و لك تحية للايجاد سجل ضمن مجموعة سجلات الكود التالي: 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 اسماء تكست بوكس او ارفق المثال للتطبيق عليه بالتوفيق رابط هذا التعليق شارك More sharing options...
نكرو مانسر قام بنشر أكتوبر 12, 2015 مشاركة قام بنشر أكتوبر 12, 2015 شكراً يا أخى على مروروك مرفق المثال المراد التطبيق عليه .. رقم Set رقم OrderID المراد البحث معلومتيهما أكرمك البارىء CPD.rar رابط هذا التعليق شارك More sharing options...
ابو عارف قام بنشر أكتوبر 13, 2015 مشاركة قام بنشر أكتوبر 13, 2015 السلام عليكم اخي الكريم حاول تحويل قاعدة بيانات الى الاكسس 2003 قبل رفع حتى يستطيع اخوانك في المنتدى مساعدتك انظر التعديل، بحث بطريقتين بالتوفيق TTTT.rar رابط هذا التعليق شارك More sharing options...
نكرو مانسر قام بنشر أكتوبر 14, 2015 مشاركة قام بنشر أكتوبر 14, 2015 صنع الله لك كل الخير ياأخى مجهود أكثر من رائع رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر فبراير 12, 2019 مشاركة قام بنشر فبراير 12, 2019 (معدل) 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 رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر فبراير 14, 2019 مشاركة قام بنشر فبراير 14, 2019 الاستاذ الفاضل ابو عارف ارجوك الرد علي في طلبي هذا اضاف تصفبة لحق تالت بدل من ٢ وشكرا لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.