kanory

استبدل الكود بهذا ..... DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE DISTINCTROW tasweat LEFT JOIN safy_madfoa ON tasweat.emp_code1 = safy_madfoa.emp_code SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa] " & vbCrLf & _ "WHERE (((tasweat.mn1)=[forms]![quary]![mm]) AND ((tasweat.yr1)=[forms]![quary]![nn]));" DoCmd.SetWarnings True Me.tasweat.Requery

جرب هذا الكود ..... DoCmd.RunSQL "UPDATE DISTINCTROW tasweat LEFT JOIN safy_madfoa ON tasweat.emp_code1 = safy_madfoa.emp_code SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa] " & vbCrLf & _ "WHERE (((tasweat.mn1)=[forms]![quary]![mm]) AND ((tasweat.yr1)=[forms]![quary]![nn]));"

اذن . لاحظ ان السجلات في الجدول المنسوخ والمنسوخ اليه هناك سجلات غير فريدة اي متكررة من حيث العام والشهر لموظف واحد بنفس الكود . الاختلاف فقط في المبلغ . هل هذا طبيعي في برنامجك

هل هناك علاقة بين الجدولين ..... لأن رقم الموظف مكرر في تلك الجداول ؟؟؟؟؟؟

هل جربت الكود ونسخ كل القيم .... هناك شرطين في الكود وهو توافق السنه والشهر في النموذج ... كرم جرب على قاعدة بها بيانات متنوعة ... سوف اجرب عند توفر الكمبيوتر لاني على الموبايل الان . [forms]![quary]![mm], tasweat.yr1 = [Forms]![quary]![nn];"

ضع هذا الكود تحت زر النسخ .... DoCmd.RunSQL "UPDATE safy_madfoa INNER JOIN tasweat ON safy_madfoa.emp_code = tasweat.emp_code1 SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa], tasweat.mn1 = [forms]![quary]![mm], tasweat.yr1 = [Forms]![quary]![nn];"

تفضل .... Dim FormCount As Integer Dim i As Integer FormCount = Forms.Count For i = FormCount - 1 To 0 Step -1 If Forms(i).Name <> FormName Then DoCmd.Close acForm, Forms(i).Name End If Next i DoCmd.OpenForm "kanory"

هل هذا هو المطلوب ..... test.rar

استخدم استيراد وليس ربط .... في حالة الاستيراد يعمل كملف مستقل تماما ... بالتوفيق

أنظر هذا المرفق ..... eeeee_2.rar

وعليكم السلام ..... الجدولين في النموذج ليس بينهما علاقة ربط :

وعليكم السلام انشئ ملفا جديدا من خلال اوفيس 16 واستورد جميع الكائنات اليها .....

ارفق مثالا مبسطا للتعديل عليه ؟؟؟

تفضل ...... انظر المرفق .... Kanory_msg.mdb

تفضل أخي الكريم ..... password.accdb

لا داعي للاعتذار ...... بارك الله فيك

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

دائما أخي عدي عند السؤال ضع مثال ليتم التعديل عليه ..... حتى تسهل على المجيب ... وتجد اجابات سريعة للاسئلة أنظر المرفق ..... Kanory_msg.mdb

اخي @عبد الله قدور هل جربت تغيير اعدادات اللغة في ويندوز

هذه الطريقة الصحيحة ..... انظر الجدول وحقل kanory ثم انظر النموذج والتعديل الذي حصل فيه .... هذا هو الصح لتك البيانات نصحة من أخوك الصغير ( أكتب اسماء الحقول بالانجليزية لأنها اسهل في كتابة الاكواد ) الترقية.rar

ملاحظة بسيطة : الحالة التعليمية لماذا هي مجزأة . يقرأ . ابتدائية . متوسط ..... المفروض جميعها تسجل في حقل واحد الا أذا كان لك وجهة نظر برمجية أخرى ( غاية في ذلك ) .... هل أعدلها أم أعمل على الملف المرسل كما هو ؟؟؟؟

ادرج مثال مصغر ليتم الشرح عليه ...

أو أعمل استعلام لمصدر البيانات للنموذج مبني عليه ثم ضع هذا في الحقل المراد اجراء الفلتر له اربط التقرير مع نفس الاستعلام ' عمل تصفي في النموذج حسب حقل محدد ' ff2 اسم النموذج ' mr1 اسم الكمبو بكس ' ضع هذه العبارة في معيار الحقل المفلتر في الاستعلام forms![ff2]!Mr1 ' ضع هذا في النموذج Me.Requery

تفضل .... ' عمل تصفيه في النموذج حسب حقل محدد ' ff2 اسم النموذج ' mr1 اسم الكمبو بكس ' kanory هو الحقل المراد إجراء الفلتر عليه Me.Filter = "kanory = forms![ff2]!Mr1" Me.FilterOn = True Me.Requery

هناك طرق عديدة لذلك منها Select Case