بيانات النموذج الفرعي عند الضغط عليها

[hh88]

 

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

ان يظهر البيانات بالنموذج الرئيسي اعلاه في حقول الادخال "التكست" لغرض التعديل عليها

امل الافادة  

 

وشكرا 

عند النقر مرتين1.rar

[hh88]

مع التحية اساتذة المنتدى الجميل 

هل من حل 

[jjafferr]

وعليكم السلام

 

تفضل ، ضع هذا الكود على زر التعديل في النموذج الفرعي:

    Me.Parent.الاسم = Me.Phone
    Me.Parent.مربع_تحرير_وسرد65 = Me.Country
    Me.Parent.الادارة = Me.City

 

ولكن:

اسماء الحقول في النموذج الرئيسي والنموذج الفرعي ، ماشاءالله تفتح النفس للخطأ

فنصيحتي ان تعدل فيهم مادام البرنامج في اوله

 

جعفر

[hh88]

20 hours ago, jjafferr said:

وعليكم السلام

 

تفضل ، ضع هذا الكود على زر التعديل في النموذج الفرعي:

    Me.Parent.الاسم = Me.Phone
    Me.Parent.مربع_تحرير_وسرد65 = Me.Country
    Me.Parent.الادارة = Me.City

 

ولكن:

اسماء الحقول في النموذج الرئيسي والنموذج الفرعي ، ماشاءالله تفتح النفس للخطأ

فنصيحتي ان تعدل فيهم مادام البرنامج في اوله

 

جعفر

شكراً اخي جعفر

ساقوم بتطبيق كود

parent

على جميع السجلات بالاسماء الصحيحة

الف  مليون شكر يا ستاذي

[hh88]

On 22/07/2017 at 3:27 PM, jjafferr said:

وعليكم السلام

 

تفضل ، ضع هذا الكود على زر التعديل في النموذج الفرعي:

    Me.Parent.الاسم = Me.Phone
    Me.Parent.مربع_تحرير_وسرد65 = Me.Country
    Me.Parent.الادارة = Me.City

 

ولكن:

اسماء الحقول في النموذج الرئيسي والنموذج الفرعي ، ماشاءالله تفتح النفس للخطأ

فنصيحتي ان تعدل فيهم مادام البرنامج في اوله

 

جعفر

استاذي الكريم جعفر 

عند الضغط على تعديل وتم تعديل السجل  وضغطت حفظ يحفظها كسجل جديد

اريد ان يحفظ على السجل بعد التعديل  وليس حفظه كسجل جديد 

هل من طريقة 

وشكرا جزيلا   

[jjafferr]

وعليكم السلام

 

انا عملت حسب طلبك ، ولكن الظاهر كان في اشياء اخرى انت لم تخبرنا عنها ، وانا لم انتبه لها

1. احذف زر الحفظ ، لأن النموذج الرئيسي يأخذ بياناته من الجدول ،

2. استعمل الكود التالي بدلا عن السابق

    Dim rst As DAO.Recordset
    Set rst = Me.Parent.RecordsetClone
    
    rst.FindFirst "[التسلسل]=" & Me.التسلسل
    Me.Parent.Bookmark = rst.Bookmark
    
'او
    
    Me.Parent.RecordsetClone.FindFirst "[التسلسل]=" & Me.التسلسل
    Me.Parent.Bookmark = Me.Parent.RecordsetClone.Bookmark

3. التعديل يتم حفظه مباشرة في الجدول ، وبدون زر الحفظ

 

جعفر

[hh88]

7 hours ago, jjafferr said:

وعليكم السلام

 

انا عملت حسب طلبك ، ولكن الظاهر كان في اشياء اخرى انت لم تخبرنا عنها ، وانا لم انتبه لها

1. احذف زر الحفظ ، لأن النموذج الرئيسي يأخذ بياناته من الجدول ،

2. استعمل الكود التالي بدلا عن السابق

    Dim rst As DAO.Recordset
    Set rst = Me.Parent.RecordsetClone
    
    rst.FindFirst "[التسلسل]=" & Me.التسلسل
    Me.Parent.Bookmark = rst.Bookmark
    
'او
    
    Me.Parent.RecordsetClone.FindFirst "[التسلسل]=" & Me.التسلسل
    Me.Parent.Bookmark = Me.Parent.RecordsetClone.Bookmark

3. التعديل يتم حفظه مباشرة في الجدول ، وبدون زر الحفظ

 

جعفر

اشكرك اخي جعفر 

الكود اشتغل تمام التمام

الف الف شكر على ماتقدمه

الله يكتب لك الاجر وجعله في ميزان حسناتك

 

تقبل خالص تحياتي