سجلات النموذج من الاستعلام الجدولي

[عوف العوفي]

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

 

كيف يمكن تلافي كلمة (#Name?) التي في مربع النص بالنموذج بسبب أنه ليس لها مصدر سجلات في الاستعلام لأن النموذج يوجد فيه مربعات نصوص لكل شهور السنة؟

rr2.rar

[Shivan Rekany]

منذ ساعه, عوف العوفي said:

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

 

كيف يمكن تلافي كلمة (#Name?) التي في مربع النص بالنموذج بسبب أنه ليس لها مصدر سجلات في الاستعلام لأن النموذج يوجد فيه مربعات نصوص لكل شهور السنة؟

rr2.rar

اتفضل اليك هذا لحقل شهر 1 اعمله لكل الحقول
اولا انا غيرت اسم المربع لشهر 1 من "01" الى "sh01"

واستخدمت هذا الكود عند الفتح النموذج 

Private Sub Form_Open(Cancel As Integer)
If DCount("[شهور]", "[qr1]", "[شهور]=" & "01") < 1 Then
        Me.sh01.ControlSource = ""
        Else
        Me.sh01.ControlSource = "01"
End If
End Sub

اليك قاعدة بياناتك بعد اضافة الكود الاعلاه

 

rr2.rar

[عوف العوفي]

4 ساعات مضت, Shivan Rekany said:

اليك قاعدة بياناتك بعد اضافة الكود الاعلاه

 

هل تعلم يا Shivan أنك بتعليمك المبهر كأنك أسمعتني نشيدة بصوت عذب ورخيم ، وأنك كائن بين جنبيه وطن مليء بعيون الماء وأزاهير الورد !، وأنك كمن قطع بحرا وعبر فيفاء كي يغيث الملهوف !

لقد مكثت أسبوعا أدور دوران جملٍ حول طاحونة

شكرا للرعد وللغيث من فضل الله ثم من فضلك يا صديقي، فما أجملك وأنبلك !.

[عوف العوفي]

نعم يا أستاذنا ولكن هذا ما حصل بعدك حفظك الله

rr44.rar

[عوف العوفي]

لقد كانت مشكلة بسيطة حيث نسيت مصدر السجلات

 

لك فوح ماء الياسمين أستاذنا العزيز

[Shivan Rekany]

17 ساعات مضت, عوف العوفي said:

هل تعلم يا Shivan أنك بتعليمك المبهر كأنك أسمعتني نشيدة بصوت عذب ورخيم ، وأنك كائن بين جنبيه وطن مليء بعيون الماء وأزاهير الورد !، وأنك كمن قطع بحرا وعبر فيفاء كي يغيث الملهوف !

لقد مكثت أسبوعا أدور دوران جملٍ حول طاحونة

شكرا للرعد وللغيث من فضل الله ثم من فضلك يا صديقي، فما أجملك وأنبلك !.

شكرا لهذه الكلمات .. فرحتني كثيرا

17 ساعات مضت, عوف العوفي said:

نعم يا أستاذنا ولكن هذا ما حصل بعدك حفظك الله

rr44.rar

اسف .. انا ما فتحت النيت بعد مشاركتك هذا .. الان انا فتحت النيت لكن

13 ساعات مضت, عوف العوفي said:

لقد كانت مشكلة بسيطة حيث نسيت مصدر السجلات

 

لك فوح ماء الياسمين أستاذنا العزيز

انت جاوبت وما خليتني ان انزل المرفق 
شكرا لك

تقبل تحياتي