نماذجaccess سؤال حول نقل قيمه نصية من نموذج لاخر

[saif13]

السلام عليكم اخواني الاعزاء

سؤالي هو

 

كيف يمكنني نقل قيمه نصية  من نموذج لاخر

عن طريق الكود

علما ان كل نموذج يعتمد على جدول مختلف

حيث اني احتاج فقط حقلين من الجدول الاول

ستظهر في النموذج الاول

وعندما انقر على زر الامر سانتقل للنموذج الثاني واكمل الحقول

وترجع جميع القيم للجدول رقم2

مع جزيييل الشكر

[عبد اللطيف سلوم]

3 ساعات مضت, saif13 said:

السلام عليكم اخواني الاعزاء

سؤالي هو

 

كيف يمكنني نقل قيمه نصية  من نموذج لاخر

عن طريق الكود

علما ان كل نموذج يعتمد على جدول مختلف

حيث اني احتاج فقط حقلين من الجدول الاول

ستظهر في النموذج الاول

وعندما انقر على زر الامر سانتقل للنموذج الثاني واكمل الحقول

وترجع جميع القيم للجدول رقم2

مع جزيييل الشكر

نزل  مثال عملي لكي يسهل فهم السؤال والتطبيق

[عبد اللطيف سلوم]

forms![xx]!n1=forms![x2]![n2]

xx ... اسم النموذج

n1... اسم الحقل في الجدول

x2....اسم النموذج الذي تريد النقل اليه

n2.... اسم الحقل المنقول اليه

[jjafferr]

في ٢٠‏/٧‏/٢٠١٩ at 05:28, saif13 said:

1. حيث اني احتاج فقط حقلين من الجدول الاول ، ستظهر في النموذج الاول

2. وعندما انقر على زر الامر سانتقل للنموذج الثاني

3. واكمل الحقول ، وترجع جميع القيم للجدول رقم2

 

1. النموذج الاول frm_1 فيه الحقلين a1 و a2 ،

2. قصدك وانت على النموذج الاول ، وفيه زر "cmd_Open_frm_2" ، تنقر عليه لتفتح النموذج الثاني frm_2

3. وعند فتح النموذج الثاني ، تأخذ قيمة a1 و a2 من frm_1 ، وتعطيهم الى b1 و b2 في النموذج frm_2

Private Sub cmd_Open_frm_2_Click()

    DoCmd.OpenForm "frm_2"
    Forms!frm_2!b1 = Forms!frm_1!a1
    Forms!frm_2!b2 = Forms!frm_1!a2
    
    DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

.

 

هذا نفس كلام اخي عبداللطيف ، ولكن بتفصيل اكثر 🙂

 

جعفر

[مسفر]

وهذه مشاركة مني أيضا بعد أذن الأستاذة 

ترجمت فيها الأمر بطريقتين 

 

test.accdb

[saif13]

مشكورين شباب ما قصرتو وتم حل المشكله 👍👍