تحديث بيانات الحقول من نموذج بشرط اسماء الحقول التي في الجدول تساوي و بين اسماء الحقول التي في مربعين في النموذج

[2MUNIR1]

السلام عليكم 

 

أتمنى من الاخوة و الاخوات الكرام مساعدتي في إجاد حل لهذه المشكلة. لدي نموذجان كما موضح في الصورة الفكرة هي تحديث بيانات الجدول من نموذج Urlaubeintragen بشرط البيانات المدخلة في النموذج النقطة التي لم استطع الحصول على حلها هي شرط اسم الحقول المراد تحديث بيناتها "مربع من الحقلDvon الى الى الحقلDbis تحديث البيانات بالقيمة في مربع تحديث الىEintrag" مع ترك حقول أيام عطلة نهابة الأسبوع فارغة كما هو موضح في الصورة مع العلم انه سوف يكون اسم الجدول و الحقول و الاسم و قيمة التحديث متغيرة بحسب البيانات المدخلة في نموذج Urlaubeintragen .

استنتجت هذا الكود الذي حاولت بيه ان احصل على النتيجة ولكن لم اصل اليها.

الكود اعطاني النتيجة فقط لتحديث حقل واحد وهي تحديث قيمة الحقل الذي في "من الحقلDvon"

المثال في المرفق

شكرا سلفا

 

Private Sub EINT_Clic
 k(
    
     Dim dbs As DAO.Database
     Dim tdf As DAO.TableDef
     Dim vona As DAO.Field
     Dim bisb As DAO.Field
     
     
     Set dbs = CurrentDb
     Set tdf = dbs.TableDefs(Me.umonat)
     

     Set vona = tdf.Fields(Me.von)
     
'     Set bisb = tdf.Fields(Me.bis)
     
     
     

     DoCmd.RunSQL "UPDATE    " & tdf.Name & " SET " & tdf.Name & "." & "[" & vona.Name & "]" & " = [Forms]![Urlaubeintragen]![Eintragen] WHERE ((([Maid])=[Forms]![Urlaubeintragen]![Maname]));"
   [Forms]![Hauptformmonatplanungohneschicht]![MAanwiessenheittag].Requery
   
End Sub

Planung.rar

[ابوخليل]

عليكم السلام

اخي منير .. نرحب بك فأهلا وسهلا شرفت منتداك

المثل الشعبي يقول اترك النصائح تتركك الفضائح

ولكني دوما مصر على طبعي ونهجي في هذا المنتدى .. فآمل ان تتقبل ملاحظاتي بصدر رحب

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

الملاحظات :

الشهر يتكرر فيه اجازة نهاية الاسبوع اربع مرات

وأساس الخلل هو في التصميم  فأنت وضعت الأيام بشكل افقي .. كل سجل يمثل شهرا ... وهذا التصميم نسخة من العمل على اكسل

فلوا انك وضعت الحقول بشكل عمودي لأصبح عملك كله في جدول واحد  .. واختصرت على نفسك 12 جدولا 

وحينها تتمكن من استبعاد ايام العطل بكل سهولة ومرونة .. واصبح العمل والتحديث اكثر متعة .

 

[Foksh]

3 ساعات مضت, ابوخليل said:

فلوا انك وضعت الحقول بشكل عمودي لأصبح عملك كله في جدول واحد  .. واختصرت على نفسك 12 جدولا

كلام سليم ومنطقي 100% 🤗

وهنا سيكون كل سجل بمثابة يوم في الشهر وليس يوم في الأسبوع.

حتى أن نتائج الإستعلامات ستكون أكثر دقة وسلاسة.