هل من الممكن تحديث بيانات النموذج بضغطة زر

هل يمكن ارفاق المثال بتنسيق 2003

تفضل اخي :)

غير اسم الزر الى cmd_Do_Changes ، ثم على حدث النقر على الزر الصق هذا الكود:

Private Sub cmd_Do_Changes_Click()

'Dim rst As DAO.Recordset

Set rst = Me.RecordsetClone

rst.MoveLast: rst.MoveFirst
DoCmd.GoToRecord , , acFirst

For i = 1 To rst.RecordCount

Call madh_Exit(1)
Call shb_Exit(1)
DoCmd.GoToRecord , , acNext
rst.MoveNext
Next i

End Sub

جعفر

نصيحتي لك:

بدلا ان تضع المعلومات في الكود ، اجعلها في جدول ، حيث انها الطريقة الصحيحة :)

جعفر

jjafferr كتب:

تفضل اخي :)

 

غير اسم الزر الى cmd_Do_Changes ، ثم على حدث النقر على الزر الصق هذا الكود:

Private Sub cmd_Do_Changes_Click()

'Dim rst As DAO.Recordset

Set rst = Me.RecordsetClone

rst.MoveLast: rst.MoveFirst

DoCmd.GoToRecord , , acFirst

For i = 1 To rst.RecordCount

Call madh_Exit(1)

Call shb_Exit(1)

DoCmd.GoToRecord , , acNext

rst.MoveNext

Next i

End Sub

 

جعفر

بارك الله فيك  ما قصرت

وجعل ما تقدمة في ميزان حسناتك

jjafferr كتب:

نصيحتي لك:

بدلا ان تضع المعلومات في الكود ، اجعلها في جدول ، حيث انها الطريقة الصحيحة :)

 

جعفر

ممتاز ما عندي مانع بس كيف الطريقة

والسلام ختام

تفضل :)

خلاص مافي كود طويل عريض ، ولا في كلمات عربية في الكود ، كل شي في الجداول :)

وتم تعديل الكود بناء على ذلك :)

Private Sub cmd_Do_Changes_Click()

'Dim rst As DAO.Recordset

Set rst = Me.RecordsetClone

rst.MoveLast: rst.MoveFirst
DoCmd.GoToRecord , , acFirst

For i = 1 To rst.RecordCount

Me.madh = DLookup("[madh]", "tbl_Moo-Madh", "[Moo]= '" & Me.moo & "'")
Me.shb = DLookup("[shb]", "tbl_shaa-shb", "[shaa]= '" & Me.shaa & "'")
DoCmd.GoToRecord , , acNext
rst.MoveNext
Next i

End Sub

جعفر

75.تحديث.accdb.zip