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