figo82eg

بارك الله فى استاذى الكريم هو المطلوب جعله الله فى ميزان حسناتك

@ابوخليل اشكرك استاذى الكريم على ردك ومساعدتك الدائمة ولكن عند تطبيق المثال على عدد كبير من البيانات لا تظهر نتيجة مرفق لحضرتك المثال الذى أعمل عليه فعلى New2.rar

ارجو المساعده

ارجو المساعدة حيث لدى قاعدة بها استعلام اريد أن استخرج منه بيانات أخر اسبوع مسجل بالقاعدة وقمت بمساعدة أحد الأخوة بالمنتدى بكود فى الإستعلام بإستخراج البيانات أخر أسبوع ( يبدأ الإسبوع من الأحد وحتى يوم السبت الئى يليه ) ما اريده هو ان يبدأ الاسبوع من يوم السبت حتى يوم الخميس من أخر أسبوع مسجل بالقاعدة مرفق مثال New Microsoft Access Database.accdb

اشكركم جميعاً اساتذتمى الكرام وجعل الله علمكم فى ميزان حسناتكم

@kkhalifa1960 أستاذى الكريم تظهر معى هذه الرسالة عند تطبيق الكود Private Sub Command84_Click() Dim cityCode As String Dim strSQL As String DoCmd.SetWarnings True = False ' استخراج كود المدينة من المربع النصي cityCode = Me.Text82.Value ' التحقق من أن تم إدخال كود المدينة If Len(cityCode) > 0 Then ' نقل السجلات المستهدفة إلى جدول مؤقت "Test" strSQL = "SELECT * INTO Test FROM [BASIC_DATE] WHERE Left(crn, 4) = '" & cityCode & "';" DoCmd.RunSQL strSQL ' Delete4 strSQL = "UPDATE Test SET crn = Right(crn, Len(crn)-4) WHERE Left(crn, 4) = '" & cityCode & "';" DoCmd.RunSQL strSQL ' Delete3 right strSQL = "UPDATE Test SET crn = Left(crn,Len(crn)-3) & Right(crn,2) " DoCmd.RunSQL strSQL ' Repete strSQL = "UPDATE Test SET crn = Left([crn],2)+[crn];" DoCmd.RunSQL strSQL ' Addo strSQL = "UPDATE Test SET crn = '" & cityCode & "' & crn & "00";" DoCmd.RunSQL strSQL ' حذف السجلات من الجدول الأصلي "BASIC_DATE" DoCmd.RunSQL "DELETE FROM [BASIC_DATE] WHERE Left(crn, 4) = '" & cityCode & "';" ' إدراج السجلات المحدثة من "Test" إلى الجدول الأصلي "BASIC_DATE" DoCmd.RunSQL "INSERT INTO [BASIC_DATE] SELECT * FROM Test;" ' حذف الجدول المؤقت "Test" DoCmd.DeleteObject acTable, "Test" ' رسالة تأكيد MsgBox "تم تحديث السجلات بنجاح!", vbInformation DoCmd.Requery Else ' رسالة في حالة عدم إدخال كود المدينة MsgBox "الرجاء إدخال كود المدينة أولاً!", vbExclamation End If DoCmd.SetWarnings True = True End Sub وده الكود كامل بحاول اضيف فيه السطر السابق لكى اضيف 00 ولكن لايقبل

ارجو المساعدة فى الjعديل على كود لكى استفيد منه فى برنامجى وهو ' Addo strSQL = "UPDATE Test SET crn = '" & cityCode & "' & crn;" DoCmd.RunSQL strSQL حيث اريد من الكود السابق أن يضيف 00 نهاية crn

بارك الله فيك أستاذى الكريم @ابوخليل هو المطلوب كما اريد بالرابط

ارجو المساعدة حيثى تواجهنى مشكلة عند تصميم نماذج بأكسس نسخة فوق ٢٠٠٣ حيث اجد اماكن الأزرار بالنماذج وبعض كائنات النماذج تتغير اماكنها على الشاشة عند نقل البرنامج من شاشة الى اخرى . مع العلم ان الكائنات تكون مضبوطة على الجهاز الذى تم انشاء النموذج عليه او اى شاشة بنفس الأبعاد.

بارك الله فيك استاذى الكريم هو المطلوب فعلا كما اريد بالضبط بارك الله فيكم جميعا اساتذتى الكبار وجعل الله علمكم فى ميزان حسناتكم @Foksh @ابوخليل

ارجو المساعدة حيث لدى قاعدة بيانات بها عدد من الجداول اريد عمل شاشة افتاحية لعرض اهم بيانات هذه القاعدة وهى عرض اجمالى السجلات بكل جدول فى الشاشة مثل هذه الشاشة

@Foksh بارك الله فيك استاذى الكريم وجعل علمك فى ميزان حسناتك لو تعلم حل حضرتك ده انقذنى من عمل كبير جدا بشكل دورى

برجاء المساعدة للأهمية

برجاء المساعدة حيث لدى جدول بها الاف الأكود والتى ترمز الى وحدات سكنية بمجموعة من المدن ( 0401 و 0402 ) ولدى عدد 3 استعلامات تحديث تم ترتيبهم فى ماكرو لتنفيذ المطلوب بالترتيب المراد تنفيذه ما اريده هو عمل تحديث للأكواد التى تبدأ بكود مدينة معين اقوم بتحديده مسبقاً وليكن 0401 فقط دون الأكواد التى تبدأ 0402 ولكن تواجهنى مشكلة وهى ان التحديث يقوم بتحديث جميع الأكواد لتبدأ 0401 مما يعنى توحيد جميع أكواد المدن مرفق مثال موضح به ما اريده New Microsoft Access Database.accdb

@ابو جوديبارك الله فيك استاذى هو حل أخر فعلاً استغيدى منه إن شاء الله