بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
kanory
-
Posts
2,256 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
136
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو kanory
-
انظر لهذا الحل ..... رواتب .rar
-
اخي @qathi نصيحة لك ... لكي تحصل على الاجابات من الزملاء ..... ضع سؤال واحد في كل مشاركة . .... .
-
المثال الموجود في الموضوع يتم التعديل فيه .... وهل هو مختلف عن برنامجك ....
-
-
بارك الله فيك .... بالعكس نحن في الخدمة ...... لم نتواجد هنا الا للاستفاده والافادة ....
-
تفضل جرب هذا ..... نسخ حقل في 1النماذج.rar
-
لا تستبدل شيئ ... انسخ والصق فقط
-
تفضل جرب هذا ..... DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE DISTINCTROW kan2 LEFT JOIN kan1 ON kan2.emp_code1 = kan1.emp_code SET kan2.madfoa_kabl_tasweat = [kan1].[safy_madfoa] " & " WHERE (((kan2.mn1)=[forms]![quary]![mm]) AND ((kan2.yr1)=[forms]![quary]![nn]));" DoCmd.SetWarnings True Me.tasweat.Requery
-
تفضل ..... [اسم_الحقل_المراد_نقل_التركيز_إليه].SetFocus
-
استبدل الكود بهذا ..... 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"
-
ارجو المساعدة في عملية نسخ حقل ضمن نموذج
kanory replied to أبو يحيى الجبلاوي's topic in قسم الأكسيس Access
هل هذا هو المطلوب ..... test.rar -
استخدم استيراد وليس ربط .... في حالة الاستيراد يعمل كملف مستقل تماما ... بالتوفيق
-
أنظر هذا المرفق ..... eeeee_2.rar
-
وعليكم السلام ..... الجدولين في النموذج ليس بينهما علاقة ربط :
-
وعليكم السلام انشئ ملفا جديدا من خلال اوفيس 16 واستورد جميع الكائنات اليها .....
-
ارفق مثالا مبسطا للتعديل عليه ؟؟؟
-
تفضل ...... انظر المرفق .... Kanory_msg.mdb
-
تفضل أخي الكريم ..... password.accdb
-
لا داعي للاعتذار ...... بارك الله فيك
