النجاشي قام بنشر أغسطس 12, 2018 قام بنشر أغسطس 12, 2018 السلام عليكم ورحمه الله وبركاته عند نموذج تنظيم تسلسل موجود به كود يعدل بجدول واحد اريده يعدل بالثلاث الجدوال شاكرين لكم احبتي تعديل بثلاث جدوال.accdb
AlwaZeeR قام بنشر أغسطس 12, 2018 قام بنشر أغسطس 12, 2018 تفضل عزيزي أبو زاهر: جرب هذا الكود 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 لحقل التاريخ في النموذج 2 1
ابو ياسين المشولي قام بنشر أغسطس 12, 2018 قام بنشر أغسطس 12, 2018 بعد اذن اخي 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, " حفظ التعديلات" 1 1
AlwaZeeR قام بنشر أغسطس 12, 2018 قام بنشر أغسطس 12, 2018 تسلم حبيبي أبو ياسين ما انتبهت انو مشروط عموما بنحط الشرط على نفس الكود وهو يختار المناسب وزيادة الخير خيرين يا غالي :: تحياتي 1 1
ابو ياسين المشولي قام بنشر أغسطس 12, 2018 قام بنشر أغسطس 12, 2018 الان, AlwaZeeR said: تسلم حبيبي أبو ياسين ما انتبهت انو مشروط عموما بنحط الشرط على نفس الكود وهو يختار المناسب وزيادة الخير خيرين يا غالي :: تحياتي تسلم حبيبي الوزير كلما كان هناك افكار كلما زاد الانسان بالعلم ونحن تلميذكم 1
النجاشي قام بنشر أغسطس 12, 2018 الكاتب قام بنشر أغسطس 12, 2018 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 قام بنشر أغسطس 12, 2018 قام بنشر أغسطس 12, 2018 تفضل يا غالي 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 2
النجاشي قام بنشر أغسطس 12, 2018 الكاتب قام بنشر أغسطس 12, 2018 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 ممتاز جدا بارك الله فيك استاذي الكريم الوزيركم انت طيب القلب والشكر موصول لاستاذنا ابو ياسين ما قصر عمل عمل جميل شكرا اليكم احبتي 2
النجاشي قام بنشر أغسطس 12, 2018 الكاتب قام بنشر أغسطس 12, 2018 1 دقيقه مضت, ابو ياسين المشولي said: بالتوفيق اخي ابو زاهر الله يوفق الجميع استاذي الغالي ابو ياسين 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.