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

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

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

عند تحديث مربع النص
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

[صالح حمادي]

  في 16‏/7‏/2017 at 21:52, 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

 

Expand  

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

 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

 

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

  في 16‏/7‏/2017 at 21:52, 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

 

جعفر

Expand  

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

  في 16‏/7‏/2017 at 22:07, صالح حمادي 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.rarFetching info...

Expand  

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

  في 16‏/7‏/2017 at 22:26, صالح حمادي 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

 

Expand  

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

[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

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

هل من مساعدة

  في 17‏/7‏/2017 at 08:53, 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.zipFetching info...

Expand  

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

[ابوخليل]

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

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

Dim mySQL

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

test20.rar

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

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

  في 16‏/7‏/2017 at 22:07, صالح حمادي 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.rarFetching info...

Expand  

 

  في 16‏/7‏/2017 at 21:52, 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

 

جعفر

Expand  

 

  في 18‏/7‏/2017 at 11:53, ابوخليل said:

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

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

Dim mySQL

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

test20.rarFetching info...

Expand  

 

[jjafferr]

أخي محمد

 

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

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

 

جعفر

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

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