figo82eg

اشكرك أستاذى الكبير @jjafferr على مشاركتك وردك الذى استفدت منه كثير . ولكن خاننى التعبير فى كلمة تبويب والمطلوب هو ما نفذه استاذى @kkhalifa1960 اشكركم جميعا على دعمك لأعضاء هذا المنتدى العظيم وجعل علمكم فى ميزان حسناتكم

ارجو المساعدة حيث لدى نموذج به عدد من الازرار مرتبطة وب supform عند الضغط تفتح تبويبات مختلفة. ما اريده وهو عند الضغط على زر تبويب ١ يتغير لون الزر الى اللون الاحمر ويظل مستمر بنفس اللون لحين الضغط على التبويب ٢ يتغير لون زر تبويب ٢ باللون الاحمر وهكذا

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

ارجو من حضرتكم المساعدة حيث لدى قاعدة بيانات استخدم هذا الكود لتشغيل عجلة الماوس ولكن يقابلنى مشكلة هى عند تحديث اى بيانات على السجل وعند استخدام عجلة الماوس للأمام وللخلف لا يقوم البرنامج بحفظ اى تعديل ولابد من الضغط على زر حفظ . مع اننى كنت استخدم قاعدة البيانات على اوفيس ٢٠٠٣ وعند تحديث اى بيانات على السجل اقوم بتحريك عجلة الماوس يحفظ السجل والكود هو : If (Count < 0) And (Me.CurrentRecord > 1) Then DoCmd.GoToRecord , , acPrevious ElseIf (Count > 0) And (Me.CurrentRecord <= Me.Recordset.RecordCount) Then DoCmd.GoToRecord , , acNext End if فهل هناك حل

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

@ابوخليل اشكرك استاذى الكريم على ردك ومساعدتك الدائمة ولكن عند تطبيق المثال على عدد كبير من البيانات لا تظهر نتيجة مرفق لحضرتك المثال الذى أعمل عليه فعلى 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

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

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

موجود حقل tem فى جدول confirm وفى الاستعلام @Foksh

استاذى الفاضل @Foksh بارك الله فيك لقد وصلت الى نصف المطلوب فعلاً وهو التاريخ ولكن وجدت أنه عندما حجزت رقم مائدة اكثر من مرة خلال اليوم تظهر جميع الطلبات المسجلة على هذه المائدة ما اريده هو أخر حجز بالوقت بمعنى لو وجد حجز الساعة 3 وحجز الساعة 5 فى نفس اليوم تظهر عند البحث عن الطاولة حجز الساعة 5 بإعتبار ان حجز الساعة 3 تم محاسبته وإنتهى بالفعل

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

اشكركم اساتذتى الكرام على مساعدتكم ولكن لم استطيع توصيل ما اريده لحضراتكم لذا تم ارفاق القاعدة التى اعمل عليها وبها ما اريده @محمد السيسي@kkhalifa1960 مطعم وجبات2.rar

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