تعديل البيانات بثلاث جدوال

[النجاشي]

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

عند نموذج تنظيم تسلسل

موجود به كود يعدل بجدول واحد اريده يعدل بالثلاث الجدوال 

شاكرين لكم احبتي

 

 

تعديل بثلاث جدوال.accdb

[AlwaZeeR]

تفضل عزيزي أبو زاهر:

جرب هذا الكود

With CurrentDb
.Execute "UPDATE AfwtIar SET AfwtIar.Atarih =# " & Format([x], "dd/mm/yyyy") & "#"
.Execute "UPDATE Hrakatsanf SET Hrakatsanf.Atarih =# " & Format([x], "dd/mm/yyyy") & "#"
.Execute "UPDATE HRR SET HRR.Atarih = # " & Format([x], "dd/mm/yyyy") & "#"
End With

مع تغيير x لحقل التاريخ في النموذج

 

[ابو ياسين المشولي]

بعد اذن اخي AlwaZeeR

اظن هذا هو طلبه

لانه مشروط برقم الفاتورة

DoCmd.SetWarnings False

DoCmd.RunSQL ("UPDATE [AfwtIar] SET [AfwtIar].[Atarih]= [forms]![تنظيم_تسلسل]![Atarih].[value] " _
& " WHERE ((([AfwtIar].Rjmfatwra)=[forms]![تنظيم_تسلسل]![Rjmfatwra]));")
DoCmd.RunSQL ("UPDATE [HRR] SET [HRR].[Atarih]= [forms]![تنظيم_تسلسل]![Atarih].[value] " _
& " WHERE ((([HRR].Rjmfatwra)= [forms]![تنظيم_تسلسل]![Rjmfatwra]));")
DoCmd.RunSQL ("UPDATE [Hrakatsanf] SET [Hrakatsanf].[Atarih]= [forms]![تنظيم_تسلسل]![Atarih].[value] " _
& " WHERE ((([Hrakatsanf].Rjmfatwra)=[forms]![تنظيم_تسلسل]![Rjmfatwra]));")

DoCmd.SetWarnings True

MsgBox "تم التعديل بنجاح", vbInformation, " حفظ التعديلات"

 

[AlwaZeeR]

تسلم حبيبي أبو ياسين

ما انتبهت انو مشروط 

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

وزيادة الخير خيرين يا غالي

::

تحياتي

 

[ابو ياسين المشولي]

الان, AlwaZeeR said:

تسلم حبيبي أبو ياسين

ما انتبهت انو مشروط 

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

وزيادة الخير خيرين يا غالي

::

تحياتي

 

تسلم حبيبي الوزير

كلما كان هناك افكار كلما زاد الانسان بالعلم

ونحن تلميذكم 

[النجاشي]

26 دقائق مضت, ابو ياسين المشولي said:

بعد اذن اخي AlwaZeeR

اظن هذا هو طلبه

لانه مشروط برقم الفاتورة

DoCmd.SetWarnings False

DoCmd.RunSQL ("UPDATE [AfwtIar] SET [AfwtIar].[Atarih]= [forms]![تنظيم_تسلسل]![Atarih].[value] " _
& " WHERE ((([AfwtIar].Rjmfatwra)=[forms]![تنظيم_تسلسل]![Rjmfatwra]));")
DoCmd.RunSQL ("UPDATE [HRR] SET [HRR].[Atarih]= [forms]![تنظيم_تسلسل]![Atarih].[value] " _
& " WHERE ((([HRR].Rjmfatwra)= [forms]![تنظيم_تسلسل]![Rjmfatwra]));")
DoCmd.RunSQL ("UPDATE [Hrakatsanf] SET [Hrakatsanf].[Atarih]= [forms]![تنظيم_تسلسل]![Atarih].[value] " _
& " WHERE ((([Hrakatsanf].Rjmfatwra)=[forms]![تنظيم_تسلسل]![Rjmfatwra]));")

DoCmd.SetWarnings True

MsgBox "تم التعديل بنجاح", vbInformation, " حفظ التعديلات"

 

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

منذ ساعه, AlwaZeeR said:

تفضل عزيزي أبو زاهر:

جرب هذا الكود

With CurrentDb
.Execute "UPDATE AfwtIar SET AfwtIar.Atarih =# " & Format([x], "dd/mm/yyyy") & "#"
.Execute "UPDATE Hrakatsanf SET Hrakatsanf.Atarih =# " & Format([x], "dd/mm/yyyy") & "#"
.Execute "UPDATE HRR SET HRR.Atarih = # " & Format([x], "dd/mm/yyyy") & "#"
End With

مع تغيير x لحقل التاريخ في النموذج

 

شكر استاذي الوزير  الله يبارك فيك كما قال استاذنا ابو ياسين مشروط برقم الفاتوره

منتظر تعديلك كي اشوف المناسب لي

تحياتي للجميع

[AlwaZeeR]

تفضل يا غالي

With CurrentDb
.Execute "UPDATE AfwtIar SET AfwtIar.Atarih =#" & Format([x], "dd/mm/yyyy") & "#" & "WHERE AfwtIar.Rjmfatwra ='" & Me!Rjmfatwra & "'"
.Execute "UPDATE Hrakatsanf SET Hrakatsanf.Atarih =# " & Format([x], "dd/mm/yyyy") & "#" & "WHERE Hrakatsanf.Rjmfatwra ='" & Me!Rjmfatwra & "'"
.Execute "UPDATE HRR SET HRR.Atarih = # " & Format([x], "dd/mm/yyyy") & "#" & "WHERE HRR.Rjmfatwra ='" & Me!Rjmfatwra & "'"
End With

 

[النجاشي]

10 دقائق مضت, AlwaZeeR said:

تفضل يا غالي

With CurrentDb
.Execute "UPDATE AfwtIar SET AfwtIar.Atarih =#" & Format([x], "dd/mm/yyyy") & "#" & "WHERE AfwtIar.Rjmfatwra ='" & Me!Rjmfatwra & "'"
.Execute "UPDATE Hrakatsanf SET Hrakatsanf.Atarih =# " & Format([x], "dd/mm/yyyy") & "#" & "WHERE Hrakatsanf.Rjmfatwra ='" & Me!Rjmfatwra & "'"
.Execute "UPDATE HRR SET HRR.Atarih = # " & Format([x], "dd/mm/yyyy") & "#" & "WHERE HRR.Rjmfatwra ='" & Me!Rjmfatwra & "'"
End With

 

ممتاز جدا بارك الله فيك استاذي الكريم  الوزيركم انت طيب القلب

والشكر موصول لاستاذنا ابو ياسين ما قصر عمل عمل جميل

شكرا اليكم احبتي 

[ابو ياسين المشولي]

بالتوفيق اخي ابو زاهر

[النجاشي]

1 دقيقه مضت, ابو ياسين المشولي said:

بالتوفيق اخي ابو زاهر

الله يوفق الجميع استاذي الغالي ابو ياسين