النجاشي قام بنشر أغسطس 12, 2018 مشاركة قام بنشر أغسطس 12, 2018 السلام عليكم ورحمه الله وبركاته عند نموذج تنظيم تسلسل موجود به كود يعدل بجدول واحد اريده يعدل بالثلاث الجدوال شاكرين لكم احبتي تعديل بثلاث جدوال.accdb رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر أغسطس 12, 2018 مشاركة قام بنشر أغسطس 12, 2018 تسلم حبيبي أبو ياسين ما انتبهت انو مشروط عموما بنحط الشرط على نفس الكود وهو يختار المناسب وزيادة الخير خيرين يا غالي :: تحياتي 1 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 12, 2018 مشاركة قام بنشر أغسطس 12, 2018 الان, AlwaZeeR said: تسلم حبيبي أبو ياسين ما انتبهت انو مشروط عموما بنحط الشرط على نفس الكود وهو يختار المناسب وزيادة الخير خيرين يا غالي :: تحياتي تسلم حبيبي الوزير كلما كان هناك افكار كلما زاد الانسان بالعلم ونحن تلميذكم 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 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 لحقل التاريخ في النموذج شكر استاذي الوزير الله يبارك فيك كما قال استاذنا ابو ياسين مشروط برقم الفاتوره منتظر تعديلك كي اشوف المناسب لي تحياتي للجميع رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 12, 2018 مشاركة قام بنشر أغسطس 12, 2018 بالتوفيق اخي ابو زاهر 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أغسطس 12, 2018 الكاتب مشاركة قام بنشر أغسطس 12, 2018 1 دقيقه مضت, ابو ياسين المشولي said: بالتوفيق اخي ابو زاهر الله يوفق الجميع استاذي الغالي ابو ياسين 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان