أشكرك استاذي الكريم وجعل الله ما قدمته من علم لابناءك واخوانك من العالم العربي وانت ومن يسير على طريقتك في بذل الجهد والعطاء. تقبل خالص تحياتي حسين الجذمي من السعودية. علي فكرة معلميني مصريين من 1406 - 1418 لهم كل الشكر والتقدير والاحترام .
السلام عليكم 👋 عاشت ايدك على معلومات وان شاء الله يجازيك 🙏🏻 🌷 بس عندي مشكله انا بعد ما اعمل فلتره وبرضو انا عامله لما اضغط عل حقل بيانات المستخدم يروحلي عل فورمه ثانيه المشكله انو في الفرمه الي بروحلها ازرار التنقل مش شغاله لو ممكن تساعدني 🙏🏻🌷
ربنا يبارك فيك وفي عمرك اخي عبد العاطي ... ويجزاك الخير على شرحك وتعبك في ايصال المعلومة .. ياخي انا عندي نموذج بحث متعدد مربعات كثيرة تحرير وسرد وكذلك مربعات اختيار ... عملت الكود للبحث وفلترة النموذج لجميع المربعات واشتغل معاي الفلتر في النموذج ..ولكن لا يتم تطبيق التصفية على الاستعلام وكذلك التقرير لان التقرير مبنى على نفس الاستعلام المربوط بجدولين ... فهل هناك حل في رأيك لذلك .. حاولت اضيف كود فلترة النموذج ولكن لا يعمل ولا يتم التنفيذ
@@MeezaTech هذا كود احد مربعات الاختيار Dim strSql As String If IsNull(Me.chkCanceled) Then strSql = "select * from SalesSearchQ where [Canceled] like 0" Else strSql = "select * from SalesSearchQ where [Canceled]= " & Me.chkCanceled & "" Me.RecordSource = strSql Me.Requery End If ........... وهذا كود احد مربعات القوائم المنسدلة Dim strSql As String If IsNull(Me.cmbSalCutomerAddressA) Then strSql = "select * from SalesSearchQ " Me.Requery Else strSql = "select * from SalesSearchQ where [SalCutomerAddressA]= '" & Me.cmbSalCutomerAddressA & "'" Me.RecordSource = strSql Me.Requery End If ----- الكود يقوم بفلترة النموذج وعندما افتح التقرير لا تظهر نتيجة الفلتر اتمنى منك مساعدتي لأني فعلا احتاج الحل .. هذا البرنامج احتاجه في عملي وقمت بتصميمه ليساعدني على ادارة العمل بشكل اسرع ولكن لم اعرف سبب عدم تطبيق الفلتر لقد قمت بالتحقق من قائمة بيانات في شاشة خصائص النموذج لا يظهر فيها الفلتر الذي تم تنفيذه وقمت بتشغيل filter on loud ولكن لا فائدة ... ولا أدري ما السبب
جزاك الله خير وفرت علينا الاستعلامات
أشكرك استاذي الكريم وجعل الله ما قدمته من علم لابناءك واخوانك من العالم العربي وانت ومن يسير على طريقتك في بذل الجهد والعطاء. تقبل خالص تحياتي حسين الجذمي من السعودية.
علي فكرة معلميني مصريين من 1406 - 1418 لهم كل الشكر والتقدير والاحترام .
ربنا يجازيك كل خير والله انا عندي برنامج اكسس في العمل بأخد من حضرتك المعلومة اطبقها علي الملف عندي في العمل مباشرة روعة روعة روعة
جميل وبارك الله فيك
للبحث بجزء من الكلمة يجب ان تضيف الامر trim الى كود البحث
وجزاكم الله خير
بارك الله فيك بس ياريت استخدمت البحث بالرقم والاسم حتى تعم الفائدة
ملاحظة هناك سرعة في الشرح وكأنك تستعرض مهاراتك وتحياتي لك
رائع جدا
الله يبارك ف حضرتك انا جربت الكود بس ف بحث ارقام مش شغال
السلام عليكم 👋
عاشت ايدك على معلومات وان شاء الله يجازيك 🙏🏻 🌷
بس عندي مشكله انا بعد ما اعمل فلتره وبرضو انا عامله لما اضغط عل حقل بيانات المستخدم يروحلي عل فورمه ثانيه
المشكله انو في الفرمه الي بروحلها ازرار التنقل مش شغاله لو ممكن تساعدني 🙏🏻🌷
ربنا يبارك فيك وفي عمرك اخي عبد العاطي ... ويجزاك الخير على شرحك وتعبك في ايصال المعلومة .. ياخي انا عندي نموذج بحث متعدد مربعات كثيرة تحرير وسرد وكذلك مربعات اختيار ... عملت الكود للبحث وفلترة النموذج لجميع المربعات واشتغل معاي الفلتر في النموذج ..ولكن لا يتم تطبيق التصفية على الاستعلام وكذلك التقرير لان التقرير مبنى على نفس الاستعلام المربوط بجدولين ... فهل هناك حل في رأيك لذلك .. حاولت اضيف كود فلترة النموذج ولكن لا يعمل ولا يتم التنفيذ
ضع زر في النموذج لفتح التقرير لان الشروط مصدرها النموذج بالتالي التقرير أو الاستعلام لا يعمل إذا كان النموذج مغلقا
@@MeezaTech تسلم على ردك السريع ولكن فعلا هذا ما حصل وقمت بكتابة كود فتح التقرير بناء على القيمة من النموذج ولكن لا يعمل الفلتر
@@MeezaTech هذا هو الكود الذي اضفته لزر الامر
DoCmd.OpenReport "SalesSearchR", acViewPreview, ,me.Filter , acDialog
..........
@@MeezaTech هذا كود احد مربعات الاختيار
Dim strSql As String
If IsNull(Me.chkCanceled) Then
strSql = "select * from SalesSearchQ where [Canceled] like 0"
Else
strSql = "select * from SalesSearchQ where [Canceled]= " & Me.chkCanceled & ""
Me.RecordSource = strSql
Me.Requery
End If
...........
وهذا كود احد مربعات القوائم المنسدلة
Dim strSql As String
If IsNull(Me.cmbSalCutomerAddressA) Then
strSql = "select * from SalesSearchQ "
Me.Requery
Else
strSql = "select * from SalesSearchQ where [SalCutomerAddressA]= '" & Me.cmbSalCutomerAddressA & "'"
Me.RecordSource = strSql
Me.Requery
End If
-----
الكود يقوم بفلترة النموذج وعندما افتح التقرير لا تظهر نتيجة الفلتر
اتمنى منك مساعدتي لأني فعلا احتاج الحل .. هذا البرنامج احتاجه في عملي وقمت بتصميمه ليساعدني على ادارة العمل بشكل اسرع ولكن لم اعرف سبب عدم تطبيق الفلتر
لقد قمت بالتحقق من قائمة بيانات في شاشة خصائص النموذج لا يظهر فيها الفلتر الذي تم تنفيذه وقمت بتشغيل filter on loud
ولكن لا فائدة ... ولا أدري ما السبب
@@hamadsas ارسل الملف علي الإيميل وانتظر الرد أن شاء الله في وقت لاحق لان يوجد بعض الأخطاء
فديتك