اذهب الي المحتوي
أوفيسنا

نسخ سجل من نموذج عن طريق مربع التحرير والسرد


Phatomas

الردود الموصى بها

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

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

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

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

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

السجل.jpg

رابط هذا التعليق
شارك

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

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

 

  • Like 2
رابط هذا التعليق
شارك

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

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


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

 

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

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

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

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

رابط هذا التعليق
شارك

10 ساعات مضت, Phatomas said:

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

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

1234.jpg

1235.jpg

رابط هذا التعليق
شارك

السلام عليكم:smile:

 

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

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

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

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

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

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

 

جعفر

  • Like 2
رابط هذا التعليق
شارك

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

السلام عليكم:smile:

 

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

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

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

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

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

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

 

جعفر

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

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

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

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

تحياتي 

رابط هذا التعليق
شارك

2 دقائق مضت, Phatomas said:

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

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

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

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

تحياتي 

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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
 

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

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

تحياتي

 

بدون عنوان1.jpg

رابط هذا التعليق
شارك

السلام عليكم استاذنا الفاضل

 

رجاء تعمل نسخة من برنامجك ، وتحذف جميع الكائنات الأخرى اللي مالها علاقة بسؤالك ، وتبقي سجل واحد له علاقة في السؤال ، وارفقه.

 

وإنشاءالله نساعدك في الجواب:smile:

 

جعفر

رابط هذا التعليق
شارك

ما عليك فقط امسح هذا السطر منه

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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information