figo82eg

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

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

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

جزاك الله عنا خير الجزاء استاذى الكريم @Moosakهذا هو المطلوب

هل يوجد حل من اساتذة المنتدى

للمساعدة

ارجو المساعدة ف حيث لدى مثال من استاذنا @Moosak يتم انشاء فولدرات للصور بناء على حقول بالنموذج يتم حفظ الصور بها وما اريده هو حذف الفولدرات المرتبطة بالنموذج فى حالة حذف السجل الخاص بها بنموذج ارشيف صادر ووارد مرفق مثال AttachFilesToDB.rar

للمساعده

ارجو الا تنزعجك منى استاذى واعذرنى لسهوى وخطأى لقد عدلت المثال فى المشاركة التالية وارفقة لحضرتك ومعه المثال الاخر الذى حاولت تطبيقه على مثالى ولم افلح test.rar ارشيف - Moosak.rar

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

وجدت بالمنتدى مثال عسى أن يوضح لحضراتكم الفكرة حيث حاولت تطبيقها ولم استطيع على مثالى هذا مثالى للتطبيق عليه ومرفق معه ما وجدته بالمنتدى ارشيف - Moosak.rar test.rar