-
Posts
245 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو figo82eg
-
مساعدة فى إستعلام استخراج بيانات أخر اسبوع
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
بارك الله فى استاذى الكريم هو المطلوب جعله الله فى ميزان حسناتك -
مساعدة فى إستعلام استخراج بيانات أخر اسبوع
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
@ابوخليل اشكرك استاذى الكريم على ردك ومساعدتك الدائمة ولكن عند تطبيق المثال على عدد كبير من البيانات لا تظهر نتيجة مرفق لحضرتك المثال الذى أعمل عليه فعلى New2.rar -
مساعدة فى إستعلام استخراج بيانات أخر اسبوع
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
ارجو المساعده -
ارجو المساعدة حيث لدى قاعدة بها استعلام اريد أن استخرج منه بيانات أخر اسبوع مسجل بالقاعدة وقمت بمساعدة أحد الأخوة بالمنتدى بكود فى الإستعلام بإستخراج البيانات أخر أسبوع ( يبدأ الإسبوع من الأحد وحتى يوم السبت الئى يليه ) ما اريده هو ان يبدأ الاسبوع من يوم السبت حتى يوم الخميس من أخر أسبوع مسجل بالقاعدة مرفق مثال New Microsoft Access Database.accdb
-
تعديل على كود vba _ اضافة رقم في استعلام تحديث
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
اشكركم جميعاً اساتذتمى الكرام وجعل الله علمكم فى ميزان حسناتكم -
تعديل على كود vba _ اضافة رقم في استعلام تحديث
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
@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
-
شاشة افتتاحيه لعرض اهم ارقام قاعدة البيانات
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
بارك الله فيك استاذى الكريم هو المطلوب فعلا كما اريد بالضبط بارك الله فيكم جميعا اساتذتى الكبار وجعل الله علمكم فى ميزان حسناتكم @Foksh @ابوخليل -
ارجو المساعدة حيث لدى قاعدة بيانات بها عدد من الجداول اريد عمل شاشة افتاحية لعرض اهم بيانات هذه القاعدة وهى عرض اجمالى السجلات بكل جدول فى الشاشة مثل هذه الشاشة
-
@Foksh بارك الله فيك استاذى الكريم وجعل علمك فى ميزان حسناتك لو تعلم حل حضرتك ده انقذنى من عمل كبير جدا بشكل دورى
-
برجاء المساعدة للأهمية
-
برجاء المساعدة حيث لدى جدول بها الاف الأكود والتى ترمز الى وحدات سكنية بمجموعة من المدن ( 0401 و 0402 ) ولدى عدد 3 استعلامات تحديث تم ترتيبهم فى ماكرو لتنفيذ المطلوب بالترتيب المراد تنفيذه ما اريده هو عمل تحديث للأكواد التى تبدأ بكود مدينة معين اقوم بتحديده مسبقاً وليكن 0401 فقط دون الأكواد التى تبدأ 0402 ولكن تواجهنى مشكلة وهى ان التحديث يقوم بتحديث جميع الأكواد لتبدأ 0401 مما يعنى توحيد جميع أكواد المدن مرفق مثال موضح به ما اريده New Microsoft Access Database.accdb
-
استعلام لاختيار اخر طلب تم تسجيله بالجدول من حيث الوقت والتاريخ
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
@ابو جوديبارك الله فيك استاذى هو حل أخر فعلاً استغيدى منه إن شاء الله -
استعلام لاختيار اخر طلب تم تسجيله بالجدول من حيث الوقت والتاريخ
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
بارك الله فيك استاذى الكريم هو المطلوب جعله الله فى ميزان حسناتك -
استعلام لاختيار اخر طلب تم تسجيله بالجدول من حيث الوقت والتاريخ
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
موجود حقل tem فى جدول confirm وفى الاستعلام @Foksh -
استعلام لاختيار اخر طلب تم تسجيله بالجدول من حيث الوقت والتاريخ
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
استاذى الفاضل @Foksh بارك الله فيك لقد وصلت الى نصف المطلوب فعلاً وهو التاريخ ولكن وجدت أنه عندما حجزت رقم مائدة اكثر من مرة خلال اليوم تظهر جميع الطلبات المسجلة على هذه المائدة ما اريده هو أخر حجز بالوقت بمعنى لو وجد حجز الساعة 3 وحجز الساعة 5 فى نفس اليوم تظهر عند البحث عن الطاولة حجز الساعة 5 بإعتبار ان حجز الساعة 3 تم محاسبته وإنتهى بالفعل -
استعلام لاختيار اخر طلب تم تسجيله بالجدول من حيث الوقت والتاريخ
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
ارجو المساعدة -
استعلام لاختيار اخر طلب تم تسجيله بالجدول من حيث الوقت والتاريخ
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
اشكركم اساتذتى الكرام على مساعدتكم ولكن لم استطيع توصيل ما اريده لحضراتكم لذا تم ارفاق القاعدة التى اعمل عليها وبها ما اريده @محمد السيسي@kkhalifa1960 مطعم وجبات2.rar -
اشكركم أساتذتى الكرام على سرعة إستجابتكم لى ولجميع أعضاء المنتدى الكريم وجعله الله عملكم فى ميزان حسناتكم @ابوخليل @kkhalifa1960
-
ارجو المساعدة
-
ارجو المساعدة حيث استعنت بأحد المواضيع الخاصة برنامج كاشير خاص بمطعم الموجودة بالمنتدى لأحد الأخوة الكرام واريد التعديل بحيث يخدم برنامجى حيث اريد تسجيل رقم المائدة مع كل فاتورة صادرة وعند طلب الفاتورة الخاصة بالمائدة اكتب رقم المائدة تظهر لى أخر فاتورة مسجلة لهذه المائدة مرفق مثال مطعم وجبات2.rar
-
كود برسالة تنبيه فى حالة وجود نفس الرقم فى جدول أخر
figo82eg replied to figo82eg's topic in قسم الأكسيس Access
اشكركم جميعا هو المطلوب قعلا