Foksh

قد تستفيد من هذه المشاركه تفضل وهي قابلة للتعديل والتطوير

لعل وعسى أن يكون طلبك ، ولكن في الفترة الماضية انشغلت قليلاً تفضل التعديل وان شاء الله يكون مزبوط 😅 وإن كان هناك أي تعديل فأعلمني بذلك. Lista@ (2).accdb

من باب العلم أيضاً ، أنني قمت بحذف النماذج والجداول وتوابعها من الموديولات المسؤولة عن تفعيل البرنامج ؛ والرقم السري 12345 كانت بالأساس كلمة السر الخاصة بي لفتح البرنامج لصيانته على جهاز العميل فقط لا غير ، وقد تم الغاء وظيفتها. ( من باب التوضيح 😁 )

لا أدري ان كان هذا يفي بالغرض ، 😅 تم تحديث الملف المرفق أخي @زياد الحسناوي ولكن أضف بعض اللمسات التي تراها مناسبة كإظهار المسميات مثلاُ Database2.accdb

اخي الكريم من بعد إذن الإدارة ، لاحظ أن العنوان والمحتوى لا يتفقان ، ولا يوضحان مطلبك للمساعدة التي ترغب بتلقيها ☺️. حتى لا يتم إغلاق الموضوع ( تقبلني بصدر رحب 😊 )

مبدع كعادتك يا صديقي ؛ مع أني حديث المعرفة بالأساتذة والمبدعين ( دون حصر ) 😍

اخونا الكريم ، في فكرتك الربط رح يكون على اي اساس ؟؟ ممكن توضح فكرتك بطريقة أوضح هل تقصد مثل هذه الفكرة ( جزء من برنامجي لإدارة عيادات طبية متنوعة ) Doc.accdb

فعلاً قد تكون المشكلة في الأسماء المركبة

بالمقارنة مع : كانت الفكرة من باب التسهيل على صاحب الموضوع ليس إلا

هههههه ، لا يا عم هي بتاعتي ، بس دي كنت عاملها عشان الصيانة ، وغيرتها عشان ما أتكشفش ههههههههه

ولا يهمك أستاذنا @ابو جودي ، تم التعديل وبارك الله فيك أخي وجعل الله لك في كل حرف خير جزاء في ميزان حسناتك

السلام عليكم ورحمة الله وبركاته قبل عامين تقريباً كنت قد بدأت بتصميم برنامج إدارة و حضور وانصراف لنادي رياضي أو لياقة بدنية . واليوم سأطرح البرنامج مع بعض التعديلات البسيطة التي جرت عليه كهدية وتجربة قابلة للتطوير والتحديث ومفتوح المصدر . Password : admin GYM 2022 - Final.zip الدعاء لوالدي رحمه الله ، ولوالدتي بالشفاء التام

اخي الكريم ، هذا مثال جزء من برنامج ادارة صالات الأفراح ، وفيه فكرة الحجز بتاريخ لصالات ، هي مجرد فكرة جربها ( 10001 و 10002 ) لتجربة الحجز بتاريخ محدد ، وجرب حجز موعد بتاريخ آخر لنفس الرقم Afra7 2023.zip

في حدث الزر الذي سيقوم بعملية السكانر ، وهذا الملف الذي تريده ( مع التأكيد أنني لم أجربه لعدم امتلاكي لسكانر ) Desktop.zip

جرب هذا الآن أخوي @moho58 BASEEN.accdb

تفضل هذا التعديل :- BASEEN.accdb

جرب هذه الطريقة : BASEB.accdb

تريد العرض في التقرير للصورة ؟

ما شاء الله ، أبدعت ، جميل جداً سلمت يا استاذنا وان شاء الله نستفيد من هذه التجربة

تبارك الله ، وما شاء الله ، لا خوف عليكم أساتذتنا ممكن تفيدنا بالطريقة الصحيحة للذين لا يملكون معلمات كافية عن الطريقة ، وإن دعمتها بمرفق نكن من الشاكرين

لعدم وجود سكانر عندي ، وددت المشاركة بمصادر قد تفيد إن لم تكن مجربة من قبل ، الفكرة الأولى :- option Compare Database Option Explicit Const WIA_FORMAT_JPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}" Public Sub ScanDocs() Dim intPages As Integer 'number of pages Dim img As WIA.ImageFile Dim strPath As String Dim strFileJPG As String strPath = CurrentProject.Path 'set path to save files intPages = 1 On Error GoTo ErrorHandler 'scan ScanStrat: Dim DialogScan As New WIA.CommonDialog, dpi As Integer, pp As Integer, l As Integer dpi = 250 Dim Scanner As WIA.Device Set Scanner = DialogScan.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, False, False) 'set properties device Scanner.Properties("3088").Value = 1 'Automatic Document Feeder Scanner.Items(1).Properties("6146").Value = 4 'Colour intent Scanner.Items(1).Properties("6147").Value = dpi 'DPI horizontal Scanner.Items(1).Properties("6148").Value = dpi 'DPI vertical Scanner.Items(1).Properties("6149").Value = 0 'x point to start scan Scanner.Items(1).Properties("6150").Value = 0 'y point to start scan Scanner.Items(1).Properties("6151").Value = 8.27 * dpi 'Horizontal extent Scanner.Items(1).Properties("6152").Value = 11.7 * dpi 'Vertical extent for A4 Scanner.Items(1).Properties("6154").Value = 80 'brightness ' Scanner.Items(1).Properties("6155").Value = 30 'contrast 'Start Scan if err number -2145320957 Scan document finish Do While Err.Number <> -2145320957 'error number is ADF status don't feed document Set img = Scanner.Items(1).Transfer(WIA_FORMAT_JPEG) strFileJPG = strPath & "\FileScan\temp\" & CStr(intPages) & ".jpg" img.SaveFile (strFileJPG) 'save files .jpg in temp folder DoCmd.SetWarnings False DoCmd.RunSQL "insert into scantemp (picture) values ('" & strFileJPG & "')" 'insert picture temp to table scan temp intPages = intPages + 1 'add number pages Loop 'after finish scan start convert to pdf StartPDFConversion: Dim strFilePDF As String ' Dim RptName As String strFilePDF = CurrentProject.Path & "\FileScan\" & txt_id.Value & ".pdf" 'pdf file name by textbox RptName = "rptScan" 'report picture file for export to PDF DoCmd.OpenReport RptName, acViewDesign, , , acHidden DoCmd.Close acReport, RptName, acSaveYes DoCmd.OutputTo acOutputReport, RptName, acFormatPDF, strFilePDF DoCmd.RunSQL "delete from scantemp" 'delete all data from table scantemp DeleteTemp: 'delete files temp (JPG) Dim i As Integer Dim filesname As String i = 1 'loop pages number (intpages) Do While i < intPages filesname = CurrentProject.Path & "\FileScan\temp\" & i & ".jpg" If Dir(filesname) <> "" Then 'SetAttr filesname, vbNormal Kill filesname Else Exit Do End If i = i + 1 Loop MsgBox ("done") Exit Sub ErrorHandler: Select Case Err.Number Case -2145320957 If intPages = 1 Then MsgBox ("not found document to scan") Exit Sub Else GoTo StartPDFConversion End If End Select MsgBox "Error" & ": " & Err.Number & vbCrLf & "Description: " _ & Err.Description, vbExclamation, Me.Name & ".ScanDocs" End Sub المصدر : الفكرة الثانية :- المصدر : * ولتأكيد المعلومة مرة أخرى ؛ أنا لم أقم بتجربة الأكواد لعدم امتلاكي سكانر للتأكد من صحة المواقع .

أنت كمن فسر الماءَ بالماءِ ارفق مثال

ما هيالحالة او الشرط ، ضع مرفقاً للتوضيح ، فالشروط قد تختلف طريقة كتابة الكود الخاص لها .

اخي @زياد الحسناوي اسعد الله مسائك والحاضرين والغائبين جميعاً .. للغاية التي تحاول الوصول إليها أعتقد مع التحدبثات والتطويرات التي تريدها فهي ستكون قصة طويلة ، وانا لا أفهم كثيراً في أمور المراسلات ، ولكن حاول توزيع الأمور على جدولين فقط ( صادر + وارد ) واعتقد أن الجدول الثالث هو العائق لعدم الوصول لمطلبك ( بالنسبة لي ) ، وأعتقد ان الأساتذة في المنتدى لهم رأي آخر وأبلغ مني علما ,, والله أعلم .

تبارك الله ، ما شاء الله ، سلمت يمناك أخي @ابو جودي