figo82eg

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

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

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

اشكركم جميعا هو المطلوب قعلا

ارجو المساعدة فى حالة هذا المثال لأهميته بالنسبة لى حيث لدى شاشة رئيسية وشاشة بها عملاء تم حظهرهم وحيث ان كود العميل هو كود لمجموعة من الشقق داخل مبانى سكنية كل مبنى له كود مثل 02-01-25 وكود الوحدة السكنية هو 04-02-01-25 واقوم بكنابة العقارات المحظور التعامل معها فى جدول الحظر. ما اريده هو عند كتابة الكود وحين يصل المستخدم الى كتابة رقم العقار داخل الشاشة الرئيسية ورقم العقار وموجود داخل شاشة الحظر يتم ايقاف المستخدم وظهور رسالة بأن العقار محظور بجميع وحداته السكنية New Microsoft Access Database.rar

كيف استطيع ان اقوم بإدارج الصورة الخاصة بالشريط دون الحاحة الى وجود فولدر به صور شريط الادوات بجانب قاعدة البيانات فى المثال السابق

اشكر حضرتك هو المطلوب فعلا

ارجو مساعدتى فى اتمام استعلام مرتبط باكثر من جدول يقوم بتكرر البيانات حيث ان الجدول الاول هو بيانات الموظفين الاساسية والجدول الثانى هو لبيانات اسر هذا الموظفين ما اريده أن اقوم به عمل تقرير به بيانات هؤلاء الموظفين ويندرج تحت كل موظف بيانات اسرته ومرفق صورة لما اريده مصنوعه بالاكسل ومرفق نموذج اكسس للعمل عليه Desktop.rar

وانا لدى نفس المشكلة مع برنامج الأرشفة الذى أقوم بالعمل عليه حيث يتم سحب ورقة واحدة فقط على صيغة JPG عن الضغط على زر اسكان بالبرنامج رغم انى اقوم بسحب مجموعة من الصور بشكل متتابع على صيغة PDF على برنامج الاسكانر ارجو من اساتذتنا الكرام التعاون معنا فى حالة هذه المشكلة

وفى حالة وجود اسماء بها حروف مثل ١ - ( ة ) فى نهاية الكلمة اريد استبدالها تلقائى بحرف ( ه ) ٢ - ( ي ) فى نهاية الكلمة اريد استبدالها تلقائى بحرف ( ى ) ٣ - ( عبدالله ) تكون ( عبد الله )

استاذى Kanory عند تطبيق الكود على القاعدة الخاصة بى وجدت هذه الرسالة حيث أريد عند الضغط على زر مرتبط بإستعلام أن يقوم بتصدير الإستعلام كما هو بنفس التنسيق

شكرا على مساعدتى اخوتى الكرام

ارجو المساعدة حيث استخدم الكود التالى ولكن لا يعمل عند التعديل على الحقل هل يمكن تعديل لكى ينبه المستخدم بالخطأ مع امكانية قبول او رفض الرقم المدخل Private Sub Form_Current() If Me.adadno.Value <> DLookup("[A]", "[Database]", "[crn] ='" & [Forms]![Database1]![crn] & "'") Then Beep If MsgBox("إنــتــبــه ...... يوجد خطأ ....... هل تريد إضافة القيمة؟", _ vbQuestion + vbYesNo, _ "تننبيه") = vbYes Then Exit Sub Else Undo Exit Sub End If End Sub

ارجو المساعده حيث لدى استعلام جدولى اريد وضع الصفر فى القيم الفارغه فى الاستعلام وفى التقرير المرتبط بهذا الإستعلام

اشكرك أستاذى الغالى هو المطلوب بالفعل

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

ارجو المساعدة فى كيفية التنقل بين التبويبات بإستخدام ازرار معينة أو محددة فى الكيبورد مثل زر pageup و pagedown مرفق مثال من أحد الأخوة بالمنتدى أريد التطبيق عليه Modern UI Access - Amr Ashraf.rar

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

ارجو من الاخوة مساعدتى

ارجو من الأخوة الكرام المساعدة حيث ما اريده هو عند كتابة قيمة داخل حقل الإستهلاك الحالى بجدول BASIC_DATE أن يقوم الكود بمراجعة حقل الإستهلاك القديم بجدول OLD_BASIC_DATE وفى حالة اذا كان قيمة الإستهلاك الحالى أقل من الإستهلاك السابق وتظهر رسالة " الإستهلاك الذى تريد تسجيله حالياً أقل من الإستهلاك السابق هل تريد إضافة القيمة نعم أو لا " مرفق مثال New Microsoft Access Database.accdb

جربت احد مواقع برامج الذكاء الصناعى chatgpt فى توليد كود اكسس لسحب اكثر من ورقة من خلال سكانر فيدار ( يمكن سحب كمية من الورق ) بصيغة pdf بحيث يكون الناتج ملف واحد وكانت إجابته كالتالى: حاولت تطبيق الكود لدى ولكن لم يفلح فهل اجابته سليمه ()Private Sub cmdScan_Click On Error GoTo ErrorHandler ' Create a WIA object Dim wia As Object Set wia = CreateObject("WIA.CommonDialog") ' Set scanner properties Dim img As Object Dim imgFiles As Object Dim fileName As String Dim i As Integer Set imgFiles = CreateObject("WIA.Vector") For i = 1 To 5 ' تعديل عدد الصفحات الذي تريد سحبها Set img = wia.ShowAcquireImage( _ FormatID:="{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}", _ Intent:="Color", _ ItemType:=1, _ PromptUser:=True, _ ShowPreview:=True, _ ShowUserInterface:=True) fileName = "C:\temp\scan" & i & ".jpg" img.SaveFile fileName ' Add image file to vector imgFiles.Add fileName Next i ' Convert images to PDF Dim pdf As Object Set pdf = CreateObject("AcroExch.PDDoc") If pdf.Create = True Then For i = 0 To imgFiles.Count - 1 pdf.Open imgFiles(i) pdf.Save 1, "C:\temp\scan.pdf" pdf.Close Next i End If ' Show PDF file Application.FollowHyperlink "C:\temp\scan.pdf" Exit Sub ErrorHandler: MsgBox "An error occurred while scanning: " & Err.Description End Sub

بارك الله فيك اخى الكريم ونفع الله الناس بعلمك هو المطلوب

ارجو من الأخوة مساعدتى فيما يلى : 1 - لدى شبكة أجهزة داخلية لعدد 11 جهاز بينهم ملف شير 2- يوجد لدى برنامج أكسس موجود داخل هذا الملف حتى تستطيع جميع الأجهزة العمل عليه . 3- برنامج الاكسس مقسم الى واجهات أمامية وخلفية ( الواجهة الخلفية الجداول ) يوجد معها ملف داخله ملفات بصيغة pdf مرتبطة بالبرنامج . 4- الواجهات الأمامية ( النماذج يتم توزيعها على جميع الأجهزة ويتم ربطها بالجداول الموجودة بملف الشير حيث يتم العمل عليها فى نفس الوقت تقريباً ). 5- يوجد زر بالنماذج يفتح ملفات pdf المرتبطة وعند الضغط على زر فتح المستند لا يتم فتح ملف pdf من أى جهاز على الشبكة ولكن يتم فتح الملف من الجهاز الرئيسي فقط الموجود به ملف الشير. ما اريده هو طريقة عمل امتداد للملف بالكود يفتح من أى جهاز على الشبكة حيث أن الملف CONTACT موجود مع برنامج الاكسس فى ملف الشير ولا يمكن نقله على كل الأجهزة بالشبكة مع النماذج والتقارير التى قسمتها على الأجهزة الأخرى. استخدمت هذا الكود على جهازى File_Path = "C:\Users\SMSM\Desktop\حسابات\CONTACT\" ولكن لا اعرف كيف استخلص مسار ملف البرنامج على ملف الشير فى الجهاز الرئيسى واضعه بالكود ليفتح على جميع الاجهزة مرفق مثال للمساعدة حسابات.rar

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

اشكرك استاذى الغالى @Moosakولكن يظهر معى مشكلة عند طبيق الحل على النموذج اذا كان لا يوجد مرفقات الملفات مثال الصورة المرفقة فهل من حل لها