تحديث حقل بنموذج فرعى Subform من خلال حقل اخر بنموذج اساسى

[Abdelaziz Osman]

السلام عليكم ورحمه الله

بملف العمل المرفق اريد تحديث الحقل kind  داخل النموذج الفرعى AGR بعدما اقوم بتحديث الحقل kind بالنموذج الاساسى FO4

على سبيل المثال عندما اقوم بانشاء سجل جديد بالنموذج FO4 , واقوم بكتاية جملة "عامل تستيف" بالحقل kind 

يتم ادخال نفس الجملة بالحقل kind بالنموذج الفرعى AGR

Subform.accdb

[kkhalifa1960]

تفضل استاذ @Abdelaziz Osman الحقل المشار اليه للتحديث هذا حقل جديد مايصير في هذه الحالة تحديث ولكن اضافة سجل جديد . تفضل دبل كليك على الكلمة المطلوبه بالفورم الرئيسي وطالع الناتج . ووافني بالرد .

Subform.rar

[Abdelaziz Osman]

4 دقائق مضت, kkhalifa1960 said:

تفضل استاذ @Abdelaziz Osman الحقل المشار اليه للتحديث هذا حقل جديد مايصير في هذه الحالة تحديث ولكن اضافة سجل جديد . تفضل دبل كليك على الكلمة المطلوبه بالفورم الرئيسي وطالع الناتج . ووافني بالرد .

Subform.rar 26.57 kB · 0 downloads

لم افهم سيدى عندما كتبت  كلمة "عامل" فى الحقل المطلوب  لم يحدث شئ للحقل الاخر لم يتغير 

[kkhalifa1960]

اعتذر ارسلت الملف الخطأ ..... تفضل أخي جرب ووافني بالرد .

Subform.rar

[Abdelaziz Osman]

6 دقائق مضت, kkhalifa1960 said:

اعتذر ارسلت الملف الخطأ ..... تفضل أخي جرب ووافني بالرد .

Subform.rar 26.33 kB · 0 downloads

لم يحدث تغيير سيدى

[kkhalifa1960]

الملف يعمل بشكل جيد تفضل الشرح .

                                                                      

[Abdelaziz Osman]

4 دقائق مضت, kkhalifa1960 said:

الملف يعمل بشكل جيد تفضل الشرح .

                                                                      

تمام سيدى الا يمكن يحدث التحديث بعد الضغط على زرار enter بالكيبورد

[kkhalifa1960]

16 دقائق مضت, Abdelaziz Osman said:

تمام سيدى الا يمكن يحدث التحديث بعد الضغط على زرار enter بالكيبورد

لايمكن لأن قبل ما تغير الكلمة بيكون حدث علشان كدة دبل كليك . تحياتي لك .

تم تعديل فبراير 8 بواسطه kkhalifa1960

[أبوبسمله]

من بعد اذن اخى واستاذى @kkhalifa1960 جزاه الله كل خير

@Abdelaziz Osman

غير الحدث لعند الخروج

Private Sub kind_Exit(Cancel As Integer)
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.OpenQuery "Query1"
DoCmd.SetWarnings True
'Me.Requery
Me.AGR.Requery
End Sub

بالتوفيق

[سامي الحداد]

السلام عليكم

مشاركة مع الاساتدة 

بدون استعلام 

11 ساعات مضت, Abdelaziz Osman said:

تمام سيدى الا يمكن يحدث التحديث بعد الضغط على زرار enter بالكيبورد

Private Sub Kind_AfterUpdate()
    Dim frm As Form
    If Not IsNull(Me.kind) Then
       
        Set frm = Me!AGR.Form
        frm!kind = Me.kind
    End If
End Sub

بالتوفيق

Subform (1).accdb

[Abdelaziz Osman]

2 ساعات مضت, سامي الحداد said:

السلام عليكم

مشاركة مع الاساتدة 

بدون استعلام 

Private Sub Kind_AfterUpdate()
    Dim frm As Form
    If Not IsNull(Me.kind) Then
       
        Set frm = Me!AGR.Form
        frm!kind = Me.kind
    End If
End Sub

بالتوفيق

Subform (1).accdb 488 kB · 1 download

تمام سيدى اشكرك 

[Abdelaziz Osman]

5 ساعات مضت, سامي الحداد said:

السلام عليكم

مشاركة مع الاساتدة 

بدون استعلام 

Private Sub Kind_AfterUpdate()
    Dim frm As Form
    If Not IsNull(Me.kind) Then
       
        Set frm = Me!AGR.Form
        frm!kind = Me.kind
    End If
End Sub

بالتوفيق

Subform (1).accdb 488 kB · 5 downloads

عمل جيد اخى الفاضل  ولكن التعبير المشار اليه بالصورة التالية جعل بعض الاكواد الاخرى لاتعمل بالشكل المطلوب

ولكن بالفعل عمل جيد

[سامي الحداد]

16 ساعات مضت, Abdelaziz Osman said:

ولكن التعبير المشار اليه بالصورة التالية جعل بعض الاكواد الاخرى لاتعمل بالشكل المطلوب

هذا بسبب المتغيرات غير المعلنة

المشكلة انه يتم استخدام المتغيرات دون الإعلان عنها باستخدام

Dim أو Public أو Private.

قم بتعريف كافة المتغيرات قبل استخدامها

تحقق من وجود متغيرات غير معلنة، وأخطاء مطبعية،

يمكنك استخدام Debug.Print لمعرفة اين الخطاء وايضا في محرر الاكواد استخدم  Debug → Compile 

واليك تعديل  بسيط للكود ولكن تأكد اولا من كل  المتغيرات في برنامجك.

Option Compare Database
Option Explicit

Private Sub Kind_AfterUpdate()
    Dim frm As Form
    If Not IsNull(Me.Kind) Then
       Set frm = Me.AGR.Form
       frm!Kind = Nz(Me.Kind, "")
       Set frm = Nothing
    End If
End Sub

بالتوفيق

[أبوبسمله]

في 9‏/2‏/2025 at 06:56, سامي الحداد said:

السلام عليكم

مشاركة مع الاساتدة 

بدون استعلام 

Private Sub Kind_AfterUpdate()
    Dim frm As Form
    If Not IsNull(Me.kind) Then
       
        Set frm = Me!AGR.Form
        frm!kind = Me.kind
    End If
End Sub

بالتوفيق

Subform (1).accdb 488 kB · 9 downloads

احسنت اخى سامى

كان تعديلى منصب على جزئيه واحده فقط

جزاك الله عنا كل خير

تمنياتى لكم بالتوفيق

[أبوبسمله]

ملاحظه اخى @سامي الحداد

بالنسبه لتعديلك فانه يقوم بتحديث الحقل الواقف عليه

وفى طلب السائل تحديث

في 8‏/2‏/2025 at 14:44, Abdelaziz Osman said:

بملف العمل المرفق اريد تحديث الحقل kind  داخل النموذج الفرعى AGR

وكذلك

في 8‏/2‏/2025 at 14:44, Abdelaziz Osman said:

عندما اقوم بانشاء سجل جديد بالنموذج FO4

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

ع كل لديه الان سواء التحديث او الاضافه وهذه للاضافه منى

Private Sub Kind_AfterUpdate()
        
    Me.AGR.SetFocus
    DoCmd.GoToRecord , , acNewRec
    Me.AGR.Form!kind = Me.kind
    
End Sub

تمنياتى للجميع بالتوفيق

Subform_1.accdb