figo82eg

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

ارجو من الأخوة الكرام المساعدة حيث ما اريده هو عند كتابة قيمة داخل حقل الإستهلاك الحالى بجدول 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

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

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

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

بارك الله فيك استاذى الغالى وجعله الله فى ميزان حسناتك وزادك الله من فضله وعلمه .

انا عاوز مسار ملف pdf مش انا الى احدده عاوز المسار لانه متغير حسب حقول النموذج زى الكود ده . بمعنى مسار الملف يتم تحديده بناءا على الملفات الى انشائها البرنامج كما هو بمثال استاذنا @Moosak واريد ان يتم فتحها اذا كانت الملفات موجودة بنفس مسار حقل crn حيث يكون ملف pdf داخله بنفس رقم crn ومرفق مثال لما اريد ارشيف - Moosak.rar

المطلوب زر يفتح ملف pdf فى مسار الوارد او الصادر على اى مستعرض pdf بمجرد الصغط عليه . حيث ان ملف pdf موجود ومرقم برقم crn داخل مسار الوارد او الصادر . حاولت لهذا الكود ولكن لابد من من تحديد الفولدرات يدوى داخل الكود وهذا ما لا اريده اريد الكود يفتح الملف اذا كان مرقم بنفس رقم crn داخل مسار المستند الموجود بالنموذج

استزيد من علمكم اساتذتى الكبار فى تصحيح هذا الكود لمحاولة استكمال برنامجى بعد الإستفادة من مشاركتكم العظيمة Private Sub OpenFile_Click() Dim File_Path As String, File_Name As String, Name_Path As String File_Path = Application.CurrentProject.Path & "\وارد\" File_Name = Dir(File_Path & Me.crn & "*.pdf") If File_Name = "" Then MsgBox "المستند غير محفوظ" Exit Sub End If While File_Name <> "" Name_Path = File_Path & File_Name Application.FollowHyperlink Name_Path File_Name = Dir() Wend End Sub ويتم تغير مسار فتح الملف بالمسار التالى Application.CurrentProject.Path & D & [Text10] & D & [نوع_الخطاب] & D & [Combo1] & D & [crn] & D)

@rockjone33بارك الله فيك اخى الكريم وزادك الله من فضله وعلمه

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