مساعدة في اضافة شرط جديد للكود

[ازهر عبد العزيز]

السلام عليكم

في هذا الكود اريد اضافة شرط جديد للكود وحو اسم المؤلف  writer

If DCount("*", "[TBLibrary]", "[TBLibrary]![bookname]=Forms![FLibraryMain]![FLibrarySub].Form![bookname]") >= 1 Then

اي يكون المعيار هو اسم الكتاب bookname + اسم المؤلف writer

[jjafferr]

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

 

سيدي الفاضل ، استعمل الطريقة الابسط والاسهل واللي انت تعرفها ، وهي بتفكيك الامر الى اوامر ابسط ، ثم اجمعها ، هذا:

dim mySQL as string
  
mySQL="[TBLibrary]![bookname]=Forms![FLibraryMain]![FLibrarySub].Form![bookname]"
mySQL= mySQL & " And "
mySQL= mySQL & "[TBLibrary]![Writer]=Forms![FLibraryMain]![FLibrarySub].Form![Writer]"  'اعمل التغيير المطلوب في هذا السطر فقط

If DCount("*", "[TBLibrary]", mySQL) >= 1 Then

 

وعلشان تتأكد ان المعادلة تعمل ، اوقف عمل السطر الثاني والثالث من المتغير mySQL بوضع علامة ' امام كل سطر ، وجرب 🙂

 

جعفر

[ازهر عبد العزيز]

منذ ساعه, jjafferr said:

 

جزبل الشكر الى ساحر ومشعوذ وملك الاكواد الاستاذ والبرفسور @jjafferr

 

سيدي الفاضل ، استعمل الطريقة الابسط والاسهل واللي انت تعرفها ، وهي بتفكيك الامر الى اوامر ابسط ، ثم اجمعها ، هذا:

التي اعرفها ولو بعد 100 سنة

وعلشان تتأكد ان المعادلة تعمل ، اوقف عمل السطر الثاني والثالث من المتغير mySQL بوضع علامة ' امام كل سطر ، وجرب 🙂

وضغت علامة ونجح الامر اذا ما فائدة هذين السطرين 

جعفر

 

[ازهر عبد العزيز]

اخيرا فهمت فائدة السطرين تحياتي 

وللعلم الكود الحالي يبحث عن اسم الكتاب والمؤلف قيل ادخالهما الى المكتبة فاذا تم ادخالهما مسبقا يتم اعلام بان الكتاب تم ادخاله فعلا

[jjafferr]

21 دقائق مضت, ازهر عبد العزيز said:

اخيرا فهمت فائدة السطرين

الله يخليك ، خليك جاهز علشان تقنع اللي ما هو مقتنع بطريقتي ، وما مقتنعين لأنها طويلة 
وبعدين نتحاسب 😁

 

جعفر