اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر (معدل)

 

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

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

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

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

تم تعديل بواسطه alaa aboul-ela
قام بنشر
  في 11‏/1‏/2018 at 20:12, alaa aboul-ela said:

 

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

Expand  

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

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

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

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

  • Thanks 1
قام بنشر (معدل)

السلام عليكم

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

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

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

تم تعديل بواسطه alaa aboul-ela
قام بنشر
  في 21‏/1‏/2018 at 21:34, 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

Expand  

DoCmd.OpenForm "courses"

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

DoCmd.GoToRecord , , acNewRec

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

Forms!courses!name = Me.names

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

 

 

 

لم تثقل علي

بخدمتك دائما

 

 

  • Like 1
  • Thanks 1
  • 4 months later...
قام بنشر

السلام عليكم

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

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

شكرا مقدما

قام بنشر
  في 4‏/6‏/2018 at 21:28, alaa aboul-ela said:

up

Expand  

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

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

 

 

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

 

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

  • Like 1
قام بنشر

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

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

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

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

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

قام بنشر

السلام عليكم

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

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

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

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

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

تحياتي ...

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