Phatomas قام بنشر فبراير 20, 2017 قام بنشر فبراير 20, 2017 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته لدي قاعدة بيانات تحتوي على اسماء المعلمين وتم تصميم الجداول والنماذج والتقارير وعند عرض النموذج وباختيار اسم المعلم تظهر كل بياناته ويوجد مربع تحرير وسرد يحتوي على اسماء المشرفين يتم من خلاله اختيار المشرف الاستفسار : هل من الممكن عند اختيار اسم المشرف يتم نسخ بيانات السجل المعروض الي الجدول الخاص بالمشرف ؟؟ مــ تحياتي ــع
Shivan Rekany قام بنشر فبراير 21, 2017 قام بنشر فبراير 21, 2017 استخدم هذا الكود لعل بها المطلوب وغير MYTABLE باسم جدول المشرفين DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.OpenTable "MYTABLE", acViewNormal, acAdd DoCmd.RunCommand acCmdPaste 2
Phatomas قام بنشر فبراير 21, 2017 الكاتب قام بنشر فبراير 21, 2017 4 ساعات مضت, Shivan Rekany said: استخدم هذا الكود لعل بها المطلوب وغير MYTABLE باسم جدول المشرفين DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.OpenTable "MYTABLE", acViewNormal, acAdd DoCmd.RunCommand acCmdPaste السلام عليكم ورحمة الله وبركاته أنا باشكر حضرتك على اهتمامك بالرد ... الموضوع ان عندي 3 مشرفين في القائمة المنسدلة .. على سبيل المثال ( احمد ، محمد ، ابراهيم ) اريد لما اختار اسم المشرف يتم نسخ البيانات في الجدول الخاص بالمشرف .. واخيرا تحياتي لشخصك الكريم
Shivan Rekany قام بنشر فبراير 22, 2017 قام بنشر فبراير 22, 2017 10 ساعات مضت, Phatomas said: السلام عليكم ورحمة الله وبركاته أنا باشكر حضرتك على اهتمامك بالرد ... الموضوع ان عندي 3 مشرفين في القائمة المنسدلة .. على سبيل المثال ( احمد ، محمد ، ابراهيم ) اريد لما اختار اسم المشرف يتم نسخ البيانات في الجدول الخاص بالمشرف .. واخيرا تحياتي لشخصك الكريم تمام هل جربت ذاك الكود بعد الصق ذاك الكود في محرر فيجوال بعد تحديث كومبوبوكس اختيار المشرف 2
Phatomas قام بنشر فبراير 23, 2017 الكاتب قام بنشر فبراير 23, 2017 في ٢٢/٢/٢٠١٧ at 09:37, Shivan Rekany said: تمام هل جربت ذاك الكود بعد الصق ذاك الكود في محرر فيجوال بعد تحديث كومبوبوكس اختيار المشرف استاذي العزيز ... عارف اني تعبتك معي علما بأن كل مشرف له جدول خاص به وليس جدول واحد لجميع المشرفين ملحوظة : أنا وضعت الكود في "حدث" "عند التغيير" مـــ تحياتي ـــع
Shivan Rekany قام بنشر فبراير 23, 2017 قام بنشر فبراير 23, 2017 ممكن ترفق نسخة مصغرة من قاعدة بياناتك لكي نعمل عليه تحياتي 1
Phatomas قام بنشر فبراير 23, 2017 الكاتب قام بنشر فبراير 23, 2017 19 دقائق مضت, Shivan Rekany said: ممكن ترفق نسخة مصغرة من قاعدة بياناتك لكي نعمل عليه تحياتي حاضر .. هاحاول لان حجمها كبير
jjafferr قام بنشر فبراير 24, 2017 قام بنشر فبراير 24, 2017 السلام عليكم ومشاركة مع اخي شفان ان احب استخدام استعلام الحاقي في مثل هذه الحالات ، فاعمل 3 استعلامات ، استعلام لكل مشرف (لأن كل مشرف عنده جدوله الخاص) ، وفي حدث بعد التحديث لمربع تحرير وسرد اختيار المشرف ، اعمل كود شبيه بهذا: 1. تأكد ان هذه البيانات غير موجودة في الجدول ، 2. استعمل استعلام الالحاق جعفر 2
Phatomas قام بنشر فبراير 25, 2017 الكاتب قام بنشر فبراير 25, 2017 22 ساعات مضت, jjafferr said: السلام عليكم ومشاركة مع اخي شفان ان احب استخدام استعلام الحاقي في مثل هذه الحالات ، فاعمل 3 استعلامات ، استعلام لكل مشرف (لأن كل مشرف عنده جدوله الخاص) ، وفي حدث بعد التحديث لمربع تحرير وسرد اختيار المشرف ، اعمل كود شبيه بهذا: 1. تأكد ان هذه البيانات غير موجودة في الجدول ، 2. استعمل استعلام الالحاق جعفر اساتذتي الاعزاء .. اشكركم على اهتمامكم والشكر موصول للاخ شفان استاذي العزير .. جعفر شكرا لحضرتك بس الكود ما موجود تحياتي
Shivan Rekany قام بنشر فبراير 25, 2017 قام بنشر فبراير 25, 2017 2 دقائق مضت, Phatomas said: اساتذتي الاعزاء .. اشكركم على اهتمامكم والشكر موصول للاخ شفان استاذي العزير .. جعفر شكرا لحضرتك بس الكود ما موجود تحياتي السلام علیکم ورحمة الله وبركاته كما قال استاذنا جعفر تكدر تعمل استعلام الترحيل هكذا شوف هذا الرابط وبعد تحديث الكومبوبوكس استعمل كود Dcount مع if 1
Phatomas قام بنشر فبراير 26, 2017 الكاتب قام بنشر فبراير 26, 2017 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 اعتقد أن هذا الكود هو الخاص بالنقل .. اريد اغير في معلوماته بحيث ينسخ السجل دون حذفه ملحوظة : الكود موجود في "حدث" "عند النقر" وليس "بعد التحديث" تحياتي
jjafferr قام بنشر فبراير 26, 2017 قام بنشر فبراير 26, 2017 السلام عليكم استاذنا الفاضل رجاء تعمل نسخة من برنامجك ، وتحذف جميع الكائنات الأخرى اللي مالها علاقة بسؤالك ، وتبقي سجل واحد له علاقة في السؤال ، وارفقه. وإنشاءالله نساعدك في الجواب جعفر
Shivan Rekany قام بنشر فبراير 26, 2017 قام بنشر فبراير 26, 2017 ما عليك فقط امسح هذا السطر منه 9 ساعات مضت, Phatomas said: DoCmd.RunCommand acCmdDeleteRecord 9 ساعات مضت, Phatomas said: الكود موجود في "حدث" "عند النقر" وليس "بعد التحديث" هو كان محتاج عند الضغط وانت محتاج عند تحديث وكما قال استاذنا جعفر اعمل نسخة مصغرة من قاعدة بياناتك لكي نعمل عليه تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.