اضافة سجل من نموذج لنموذج اخر بمجرد الضغط على السجل

[alaa aboul-ela]

 

مرفق ملف ارجو الافادة بخصوص كيفية اضافة سجل من نموذج  الاسماء في نموذج الكورسات بمجرد الضغط على السجل في نموذج الاسماء

وهل الافضل والاسهل اضافة سجل من نموذج ام استعلام  أو جدول مع شرح الفروقات والتفضيلات لو تكرمتم ..

تحياتي للجميع

اضافة سجل من نموذج في نموذج اخر بمجرد الضغط عليه.rar

تم تعديل يناير 11, 2018 بواسطه alaa aboul-ela

[alaa aboul-ela]

السلام عليكم

رفع ..

[co2002co]

On 1/11/2018 at 11:12 PM, alaa aboul-ela said:

 

مرفق ملف ارجو الافادة بخصوص كيفية اضافة سجل من نموذج  الاسماء في نموذج الكورسات بمجرد الضغط على السجل في نموذج الاسماء

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

اسعد الله اوقاتك بكل خير

تفضل اخي الكريم

اضافة سجل من نموذج في نموذج اخر بمجرد الضغط عليه.rar

[alaa aboul-ela]

جزاكم الله خيرا واجزلكم العطاء

[alaa aboul-ela]

السلام عليكم

استاذي الفاضل

كان لي استفسار واسف لو كنت اثقلت عليك

Option Compare Database
Option Explicit

Private Sub names_Click()
DoCmd.OpenForm "courses"
 DoCmd.GoToRecord , , acNewRec
 Forms!courses!name = Me.names
 Forms!courses!age = Me.age
 Forms!courses!gender = Me.gender

End Sub
الاستفسار الاول

ارغب التعديل على الكود ليناسب نموذج فرعي على نموذج الكورسات

الإستفسار الثاني 

ارغب االتعديل على الكود ليتناسب مع باقي النماذج

(وليكن مثلا ( النموذج النشط او المفتوح حاليا

 سواءا كان

نموذج الكورسات

او

نموذج المتدربين

 

اضافة سجل عن طريق الضغط مزدوجا واستدعاء اللغة من نموذج اللغات.rar

تم تعديل يناير 21, 2018 بواسطه alaa aboul-ela

[alaa aboul-ela]

تم ارفاق الملف المراد التعديل عليه

اضافة سجل عن طريق الضغط مزدوجا واستدعاء اللغة من نموذج اللغات.rar

[alaa aboul-ela]

up

[co2002co]

22 hours ago, alaa aboul-ela said:

Private Sub names_Click()
DoCmd.OpenForm "courses"
 DoCmd.GoToRecord , , acNewRec
 Forms!courses!name = Me.names
 Forms!courses!age = Me.age
 Forms!courses!gender = Me.gender

End Sub

DoCmd.OpenForm "courses"

يعني انك تريد فتح نموذج معين

DoCmd.GoToRecord , , acNewRec

يعني انك تريد النموذج المعين في وضع سجل جديد

Forms!courses!name = Me.names

تعني نقل هذا الحقل من النموذج الحالي الى الحقل في النموذج المعين

 

 

 

لم تثقل علي

بخدمتك دائما

 

 

[co2002co]

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

 

تفضل اخي الكريم

 

اضافة سجل عن طريق الضغط مزدوجا واستدعاء اللغة من نموذج اللغات.rar

تم تعديل يناير 22, 2018 بواسطه co2002co

[alaa aboul-ela]

تسلم يا رب  كتر خيرك .. الله يفتح عليك

متشكر جدا 

[co2002co]

العفو

عزيز وغالي

[alaa aboul-ela]

السلام عليكم

استاذي الغالي

اريد بعد اضافة اللغة في النموذج الفرعي اغلاق نموذج اللغات ...

شكرا مقدما

[alaa aboul-ela]

up

[alaa aboul-ela]

up

[co2002co]

في ٥‏/٦‏/٢٠١٨ at 00:28, alaa aboul-ela said:

up

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

كل عام وانت بالف خير

 

 

عذرا من لم اكن متابع للموقع الفتره الي طافت

 

ممكن تقول لي ايش حاب تعمل بالضبط

[alaa aboul-ela]

وحضرتك بالف صحة وسلامة والاهل بخير

وحمد الله على السلامة

في الملف الذي سبق وقمتم بالتعديل عليه اريد بعد الضغط مزدوجا على اللغة من شاشة اللغة lang_ frm تنزل في الشاشة الفرعية للكورسات course_frm

وبعدها يتم اغلاق شاشة اللغات lang_frm

ومشكور مقدماً 

[alaa aboul-ela]

up

[alaa aboul-ela]

السلام عليكم

بفضل الله تم حل المشكلة

يتم اضافة الكود التالي

DoCmd.Close acForm, "frm_lang", acSaveYes

 

الى الكود الذي تفضلتم بعمله في حقل اللغة

Option Compare Database

Private Sub lang_DblClick(Cancel As Integer)

'DoCmd.OpenForm "frm_Courses"
    Forms!frm_Courses.SetFocus
    Forms!frm_Courses!sfrm_matrial.SetFocus
        DoCmd.GoToRecord , , acNewRec
            Forms!frm_Courses!sfrm_matrial!ID_Number = Forms!frm_Courses!ID_Number
            Forms!frm_Courses!sfrm_matrial!material = Me.lang
           
End Sub

ليكون الكود بالشكل النهائي التالي

Option Compare Database

Private Sub lang_DblClick(Cancel As Integer)

'DoCmd.OpenForm "frm_Courses"
    Forms!frm_Courses.SetFocus
    Forms!frm_Courses!sfrm_matrial.SetFocus
        DoCmd.GoToRecord , , acNewRec
            Forms!frm_Courses!sfrm_matrial!ID_Number = Forms!frm_Courses!ID_Number
            Forms!frm_Courses!sfrm_matrial!material = Me.lang
            DoCmd.Close acForm, "frm_lang", acSaveYes
           
End Sub

وتم تجربته وعمل بكفاءة 

واثرت اضافته هنا ليستفيد الجميع

تحياتي ...