alsihran قام بنشر يناير 2, 2021 مشاركة قام بنشر يناير 2, 2021 السلام عليكم ورحمة الله وبركاتة بالمرفق نموذج Form1 يوجد بالنموذج رز أمر لفتح نموذج Table1 1- بشرط التاريخ 2- بشرط الرقم 3- بشرط النص وهي تعمل بشكل سليم المطلوب جمع الشروط الثالثة في كود واحد حاولت اعملها بالطريقة هذي لكن يظهر عندي خطأ DoCmd.OpenForm "Table1", acNormal, "", "[pc]=" & "'" & [Text0] & "'" And "[StartDate]=" & "#" & [StartDate] & "#" And "[txt]=" & " '" & [Text2] & "'", acReadOnly, acNormal nbm2.accdb رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 2, 2021 مشاركة قام بنشر يناير 2, 2021 وعليكم السلام 🙂 وبدون الرجوع الى المرفق : dim myWhere as string myWhere="[pc]='" & [Text0] & "'" myWhere=myWhere & " And [StartDate]=#" & [StartDate] & "#" myWhere=myWhere & " And [txt]='" & [Text2] & "'" DoCmd.OpenForm "Table1", acNormal, myWhere , acReadOnly, acNormal البساطة مافي احسن منها ، كل جملة بنفسها وبدون اخطاء 🙂 جعفر 4 رابط هذا التعليق شارك More sharing options...
alsihran قام بنشر يناير 3, 2021 الكاتب مشاركة قام بنشر يناير 3, 2021 15 ساعات مضت, jjafferr said: كل جملة بنفسها وبدون اخطاء شكرا لك استاذنا للاسف يفتح النموذج بدون سجلات رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 3, 2021 مشاركة قام بنشر يناير 3, 2021 فيه فاصلة ناقصة في الكود اعلاه: dim myWhere as string myWhere="[pc]='" & [Text0] & "'" myWhere=myWhere & " And [StartDate]=#" & [StartDate] & "#" myWhere=myWhere & " And [txt]='" & [Text2] & "'" DoCmd.OpenForm "Table1", acNormal,, myWhere , acReadOnly, acNormal ولكني لاحظت ان تنسيق التاريخ عندك مختلف من الجدول الى النموذج الاول الى النموذج الثاني ، فعملت تنسيق واحد للجميع في المرفق 🙂 جعفر __nbm2.zip 2 رابط هذا التعليق شارك More sharing options...
alsihran قام بنشر يناير 4, 2021 الكاتب مشاركة قام بنشر يناير 4, 2021 16 ساعات مضت, jjafferr said: فيه فاصلة ناقصة في الكود اعلاه: نفس الشي فتح النموذج بدون سجلات 😬 رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر يناير 4, 2021 مشاركة قام بنشر يناير 4, 2021 السلام عليكم ورحمة الله وبركاته بعد اذن استاذنا العزيز جعفر استبدل السطر myWhere=myWhere & " And [StartDate]=#" & [StartDate] & "#" بهذا myWhere = myWhere & " And [StartDate]=#" & Format([StartDate], "yyyy\/mm\/dd") & "#" 2 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 4, 2021 مشاركة قام بنشر يناير 4, 2021 وعليكم السلام اخوي ابو الكرم 🙂 الآن تذكرت موضوع سابق مع اخونا السهران ، وصادفت نفس مشكلة التاريخ ، فقمت بعلاجها بطريقة تشبه طريقتك ، عن طريق الدالة DateFormat : هدية: استخدام التاريخ بطريقة تعمل مع مجموعة السجلات - قسم الأكسيس Access - أوفيسنا (officena.net) وعليه ، يصبح الكود : Dim myWhere As String myWhere = "[pc]='" & [Text0] & "'" myWhere = myWhere & " And [StartDate]=" & DateFormat([StartDate]) myWhere = myWhere & " And [txt]='" & [Text2] & "'" DoCmd.OpenForm "Table1", acNormal, , myWhere, acReadOnly, acNormal . اخوي السهران : رجاء ، دائما استخدم الدالة في برامجك (او طريقة اخرى مثل ما وضع اخوي ابو الكرم) ، لأنه دائما تصير لك مشكلة مع التاريخ في برامجك🙂 جعفر __nbm2.zip 1 1 رابط هذا التعليق شارك More sharing options...
alsihran قام بنشر يناير 4, 2021 الكاتب مشاركة قام بنشر يناير 4, 2021 49 دقائق مضت, AlwaZeeR said: استبدل السطر شكر لك تمام 33 دقائق مضت, jjafferr said: رجاء ، دائما استخدم الدالة في برامجك (او طريقة اخرى مثل ما وضع اخوي ابو الكرم) ، لأنه دائما تصير لك مشكلة مع التاريخ في برامجك مشكلة التاريخ معاااي هذي بسبب التنسيق على ما اعتقد ونوعية التقويم شكرا لك رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر يناير 4, 2021 مشاركة قام بنشر يناير 4, 2021 سبحان الله كنت سوف اذكرك بهذا الموضوع اخى واستاذى العزيز @jjafferr ولكن تاخرت بسبب تنزيل ويندوز 10 وعمل تحديثات له جزاك الله خيرا استاذنا العزيز 42 دقائق مضت, jjafferr said: وعليكم السلام اخوي ابو الكرم 🙂 الآن تذكرت موضوع سابق مع اخونا السهران ، وصادفت نفس مشكلة التاريخ ، فقمت بعلاجها بطريقة تشبه طريقتك ، عن طريق الدالة DateFormat : هدية: استخدام التاريخ بطريقة تعمل مع مجموعة السجلات - قسم الأكسيس Access - أوفيسنا (officena.net) وعليه ، يصبح الكود : Dim myWhere As String myWhere = "[pc]='" & [Text0] & "'" myWhere = myWhere & " And [StartDate]=" & DateFormat([StartDate]) myWhere = myWhere & " And [txt]='" & [Text2] & "'" DoCmd.OpenForm "Table1", acNormal, , myWhere, acReadOnly, acNormal اخوي السهران : رجاء ، دائما استخدم الدالة في برامجك (او طريقة اخرى مثل ما وضع اخوي ابو الكرم) ، لأنه دائما تصير لك مشكلة مع التاريخ في برامجك🙂 جعفر __nbm2.zip 113.68 kB · 5 downloads رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان