جمع جميع شروط فتح النموذج في كود واحد

[alsihran]

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

بالمرفق نموذج Form1

يوجد بالنموذج رز أمر لفتح نموذج Table1

1- بشرط التاريخ

2- بشرط الرقم

3- بشرط النص 

وهي تعمل بشكل سليم 

المطلوب جمع الشروط الثالثة في كود واحد 

حاولت اعملها بالطريقة هذي لكن يظهر عندي خطأ 

DoCmd.OpenForm "Table1", acNormal, "", "[pc]=" & "'" & [Text0] & "'" And "[StartDate]=" & "#" & [StartDate] & "#" And "[txt]=" & " '" & [Text2] & "'", acReadOnly, acNormal

 

 

‏‏nbm2.accdb

[jjafferr]

وعليكم السلام 🙂

 

وبدون الرجوع الى المرفق :

dim myWhere as string

myWhere="[pc]='" & [Text0] & "'"
myWhere=myWhere & " And [StartDate]=#" & [StartDate] & "#"
myWhere=myWhere & " And [txt]='" & [Text2] & "'"

DoCmd.OpenForm "Table1", acNormal, myWhere , acReadOnly, acNormal

 

البساطة مافي احسن منها ، كل جملة بنفسها وبدون اخطاء 🙂

 

جعفر

[alsihran]

15 ساعات مضت, jjafferr said:

كل جملة بنفسها وبدون اخطاء

شكرا لك استاذنا

للاسف يفتح النموذج بدون سجلات 

[jjafferr]

فيه فاصلة ناقصة في الكود اعلاه:

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

[alsihran]

16 ساعات مضت, jjafferr said:

فيه فاصلة ناقصة في الكود اعلاه:

نفس الشي فتح النموذج بدون سجلات 😬

 

[AlwaZeeR]

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

بعد اذن استاذنا العزيز جعفر

 

استبدل السطر

myWhere=myWhere & " And [StartDate]=#" & [StartDate] & "#"

بهذا

myWhere = myWhere & " And [StartDate]=#" & Format([StartDate], "yyyy\/mm\/dd") & "#"

 

[jjafferr]

وعليكم السلام اخوي ابو الكرم 🙂

 

الآن تذكرت موضوع سابق مع اخونا السهران ، وصادفت نفس مشكلة التاريخ ، فقمت بعلاجها بطريقة تشبه طريقتك ، عن طريق

الدالة 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

[alsihran]

49 دقائق مضت, AlwaZeeR said:

استبدل السطر

شكر لك تمام

33 دقائق مضت, jjafferr said:

رجاء ، دائما استخدم الدالة في برامجك (او طريقة اخرى مثل ما وضع اخوي ابو الكرم) ، لأنه دائما تصير لك مشكلة مع التاريخ في برامجك

مشكلة التاريخ معاااي هذي بسبب التنسيق على ما اعتقد ونوعية التقويم 

شكرا لك

 

[ابوبسمله]

سبحان الله كنت سوف اذكرك بهذا الموضوع اخى واستاذى العزيز @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