Phatomas

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

السلام علیکم ورحمة الله وبركاته

كما قال استاذنا جعفر 

تكدر تعمل استعلام الترحيل هكذا 

شوف هذا الرابط

وبعد تحديث الكومبوبوكس

استعمل كود Dcount مع if

السلام عليكم

الكلام ده هايل جدا جدا .. فقط اريد نسخ السجل وليس نقل وحذف 

Private Sub Command0_Click()
On Error Resume Next
DoCmd.SetWarnings False
DoCmd.OpenQuery "ForFamilysToAlmostabadin", acViewNormal
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.GoToRecord acDataForm, "Form_Familys", acNewRec
DoCmd.GoToRecord , , acNewRec
DoCmd.SetWarnings True
Me.Date_ElEstbad = ""
Me.Sabb_ElEstbad = ""
MsgBox "تم نقل البيانات الى جدول المستبعدين ", vbInformation, "                        نقل وحذف"
Exit_Command0_Click:
    Exit Sub
Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
End Sub
 

اعتقد أن هذا الكود هو الخاص بالنقل .. اريد اغير في معلوماته بحيث ينسخ السجل دون حذفه

ملحوظة : الكود موجود في "حدث" "عند النقر" وليس "بعد التحديث"

تحياتي

22 ساعات مضت, jjafferr said:

السلام عليكم

 

ومشاركة مع اخي شفان 

ان احب استخدام استعلام الحاقي في مثل هذه الحالات ،

فاعمل 3 استعلامات ، استعلام لكل مشرف (لأن كل مشرف عنده جدوله الخاص) ،

وفي حدث بعد التحديث لمربع تحرير وسرد اختيار المشرف ، اعمل كود شبيه بهذا:

1. تأكد ان هذه البيانات غير موجودة في الجدول ،

2. استعمل استعلام الالحاق

 

جعفر

اساتذتي الاعزاء ..

اشكركم على اهتمامكم والشكر موصول للاخ شفان

استاذي العزير .. جعفر

شكرا لحضرتك بس الكود ما موجود

تحياتي 

19 دقائق مضت, Shivan Rekany said:

ممكن ترفق نسخة مصغرة من قاعدة بياناتك لكي نعمل عليه
تحياتي

حاضر .. هاحاول لان حجمها كبير

في ٢٢‏/٢‏/٢٠١٧ at 09:37, Shivan Rekany said:

تمام هل جربت ذاك الكود بعد
الصق ذاك الكود في محرر فيجوال بعد تحديث كومبوبوكس اختيار المشرف

استاذي العزيز ... عارف اني تعبتك معي

علما بأن كل مشرف له جدول خاص به وليس جدول واحد لجميع المشرفين

ملحوظة : أنا وضعت الكود في  "حدث" "عند التغيير"

مـــ تحياتي ـــع

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

استخدم هذا الكود لعل بها المطلوب
وغير MYTABLE باسم جدول المشرفين
 

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.OpenTable "MYTABLE", acViewNormal, acAdd
DoCmd.RunCommand acCmdPaste

 

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

أنا باشكر حضرتك على اهتمامك بالرد ...

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

واخيرا تحياتي لشخصك الكريم

بسم الله الرحمن الرحيم

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

لدي قاعدة بيانات تحتوي على اسماء المعلمين وتم تصميم الجداول والنماذج والتقارير وعند عرض النموذج وباختيار اسم المعلم تظهر كل بياناته ويوجد مربع تحرير وسرد يحتوي على اسماء المشرفين يتم من خلاله اختيار المشرف

الاستفسار : هل من الممكن عند اختيار اسم المشرف يتم نسخ بيانات السجل المعروض الي الجدول الخاص بالمشرف ؟؟

مــ تحياتي ــع