تغير قيمة عمود من نموذج رئيسى

[محمد احمد لطفى]

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

عند تحديث مربع النص
change 

فى النموذج الرئيسي 

يتم تغير قيمة العمود كله 

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

وجزاكم الله خيراً

test120.rar

[jjafferr]

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

 

انا غيّرت اسم حقل النص change في النموذج الرئيسي الى Change_to_this ،

ثم ضع هذا الكود على حدث "بعد التحديث" للحقل اعلاه:

Private Sub Change_to_this_AfterUpdate()
    mySQL = "UPDATE Q1 SET [الحالة] = " & [Forms]![test1]![Change_to_this]
    
    DoCmd.SetWarnings False
        DoCmd.RunSQL mySQL
    DoCmd.SetWarnings True
    
    Me.SUB.Form.Requery
    
End Sub

 

جعفر

[صالح حمادي]

السلام عليكم

Me.SUB.SetFocus
DoCmd.GoToRecord , , acFirst

 For i = 1 To [SUB].Form![nombre]
    Me.SUB.SetFocus
    [SUB].Form![work] = Me.نص36
    DoCmd.GoToRecord , , acNext
 Next i

Me.نص36.SetFocus

جرب هذا المثال البسيط فهو يفي بالغرض

 

test120.rar

[صالح حمادي]

32 دقائق مضت, jjafferr said:

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

 

انا غيّرت اسم حقل النص change في النموذج الرئيسي الى Change_to_this ،

ثم ضع هذا الكود على حدث "بعد التحديث" للحقل اعلاه:

Private Sub Change_to_this_AfterUpdate()
    mySQL = "UPDATE Q1 SET [الحالة] = " & [Forms]![test1]![Change_to_this]
    
    DoCmd.SetWarnings False
        DoCmd.RunSQL mySQL
    DoCmd.SetWarnings True
    
    Me.SUB.Form.Requery
    
End Sub

 

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

 mySQL = "UPDATE Q1  SET [ÇáÍÇáÉ] = [Forms]![test1]![Change_to_this] where id=Forms![test1]![id1] "
    
    DoCmd.SetWarnings False
        DoCmd.RunSQL mySQL
    DoCmd.SetWarnings True
    
    Me.SUB.Form.Requery

 

[محمد احمد لطفى]

30 minutes ago, jjafferr said:

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

 

انا غيّرت اسم حقل النص change في النموذج الرئيسي الى Change_to_this ،

ثم ضع هذا الكود على حدث "بعد التحديث" للحقل اعلاه:

Private Sub Change_to_this_AfterUpdate()
    mySQL = "UPDATE Q1 SET [الحالة] = " & [Forms]![test1]![Change_to_this]
    
    DoCmd.SetWarnings False
        DoCmd.RunSQL mySQL
    DoCmd.SetWarnings True
    
    Me.SUB.Form.Requery
    
End Sub

 

جعفر

جائت هذه الرسالة

17 minutes ago, صالح حمادي said:

السلام عليكم

Me.SUB.SetFocus
DoCmd.GoToRecord , , acFirst

 For i = 1 To [SUB].Form![nombre]
    Me.SUB.SetFocus
    [SUB].Form![work] = Me.نص36
    DoCmd.GoToRecord , , acNext
 Next i

Me.نص36.SetFocus

جرب هذا المثال البسيط فهو يفي بالغرض

 

test120.rar

جائت هذه الرسالة

Just now, صالح حمادي said:

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

 mySQL = "UPDATE Q1  SET [ÇáÍÇáÉ] = [Forms]![test1]![Change_to_this] where id=Forms![test1]![id1] "
    
    DoCmd.SetWarnings False
        DoCmd.RunSQL mySQL
    DoCmd.SetWarnings True
    
    Me.SUB.Form.Requery

 

جائت هذه الرسالة

[jjafferr]

شكرا أخي صالح على الملاحظة ،

لما شفت ان مصدر بيانات النموذج الفرعي عبارة عن استعلام ، اعتقدت بأن المعيار موجود هناك

 

اخي محمد ، اليك الكود المعدل ، والمرفق

Private Sub Change_to_this_AfterUpdate()
    mySQL = "UPDATE Q1"
    mySQL = mySQL & " SET [الحالة] = '" & Me.Change_to_this & "'"
    mySQL = mySQL & " Where [id] = " & Me.id1
    
    DoCmd.SetWarnings False
        DoCmd.RunSQL mySQL
    DoCmd.SetWarnings True
    
    Me.SUB.Form.Requery
    
End Sub

 

جعفر

683.test120.mdb.zip

[محمد احمد لطفى]

هل من مساعدة

12 hours ago, jjafferr said:

شكرا أخي صالح على الملاحظة ،

لما شفت ان مصدر بيانات النموذج الفرعي عبارة عن استعلام ، اعتقدت بأن المعيار موجود هناك

 

اخي محمد ، اليك الكود المعدل ، والمرفق

Private Sub Change_to_this_AfterUpdate()
    mySQL = "UPDATE Q1"
    mySQL = mySQL & " SET [الحالة] = '" & Me.Change_to_this & "'"
    mySQL = mySQL & " Where [id] = " & Me.id1
    
    DoCmd.SetWarnings False
        DoCmd.RunSQL mySQL
    DoCmd.SetWarnings True
    
    Me.SUB.Form.Requery
    
End Sub

 

جعفر

683.test120.mdb.zip

مازال هناك خطأ

[ابوخليل]

كود الاستاذ جعفر الاخير  شغال 100%

الصق هذه في اعلى الكود  

Dim mySQL

انظر المرفق حيث الغيت خاصية الانتقال بين الحقول  في الرئيسي  حتى  يبقى  التغيير  ظاهرا

test20.rar

[محمد احمد لطفى]

جزاكم الله خيراً

On 7/17/2017 at 1:07 AM, صالح حمادي said:

السلام عليكم

Me.SUB.SetFocus
DoCmd.GoToRecord , , acFirst

 For i = 1 To [SUB].Form![nombre]
    Me.SUB.SetFocus
    [SUB].Form![work] = Me.نص36
    DoCmd.GoToRecord , , acNext
 Next i

Me.نص36.SetFocus

جرب هذا المثال البسيط فهو يفي بالغرض

 

test120.rar

 

On 7/16/2017 at 0:52 AM, jjafferr said:

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

 

انا غيّرت اسم حقل النص change في النموذج الرئيسي الى Change_to_this ،

ثم ضع هذا الكود على حدث "بعد التحديث" للحقل اعلاه:

Private Sub Change_to_this_AfterUpdate()
    mySQL = "UPDATE Q1 SET [الحالة] = " & [Forms]![test1]![Change_to_this]
    
    DoCmd.SetWarnings False
        DoCmd.RunSQL mySQL
    DoCmd.SetWarnings True
    
    Me.SUB.Form.Requery
    
End Sub

 

جعفر

 

2 hours ago, ابوخليل said:

كود الاستاذ جعفر الاخير  شغال 100%

الصق هذه في اعلى الكود  

Dim mySQL

انظر المرفق حيث الغيت خاصية الانتقال بين الحقول  في الرئيسي  حتى  يبقى  التغيير  ظاهرا

test20.rar

 

[jjafferr]

أخي محمد

 

المفروض ان تختار الجواب الاصح ، كأفضل مشاركة ، ولا تختار مشاركتك!!

ولقد سبق ان قمت بنفس الشيء في مشاركة سابقة ايضا

 

جعفر

[محمد احمد لطفى]

أسف أستاذى جيفارا