Foksh

السلام عليكم ورحمة الله وبركاته قبل عامين تقريباً كنت قد بدأت بتصميم برنامج إدارة و حضور وانصراف لنادي رياضي أو لياقة بدنية . واليوم سأطرح البرنامج مع بعض التعديلات البسيطة التي جرت عليه كهدية وتجربة قابلة للتطوير والتحديث ومفتوح المصدر . 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 المصدر : الفكرة الثانية :- المصدر : * ولتأكيد المعلومة مرة أخرى ؛ أنا لم أقم بتجربة الأكواد لعدم امتلاكي سكانر للتأكد من صحة المواقع .

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

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

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

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

استاذنا الغالي @kkhalifa1960 ، ان للغائب عذر حتى يعود , وأعلم أنك منزعج لأن جهود الأخوه و الاساتذة قد تضيع دون شكر من القلة ، فأشكر لك شعورك نيابة عن الذين ساهموا بالرد لحل المشكلة

تفضل اخي الكريم Database1.accdb

تفضل ، وأخبرني بالنتيجة Desktop.zip

المشكلة في الكود Movesize أنه سيختلف موقع النموذج حسب دقة الشاشة من جهاز لآخر ، إلا إن كان تشغيل البرنامج على جهاز واحد فقط , والله أعلم

اخي الكريم ، رغم الخطأ في النموذج الا انه تفضل ان كان صحيح. فلم افهم فكرة اجمالي الواد و اجمالي الصادر المحاسبي.accdb

أخي الكريم بالطريقة التي تعتمدها في حفظ الملفات المرفقة ستلاحظ أنه بعد 100 صنف مثلاً سيكون حجم برنامجك كبير الى حد ما ، ولن يسمح لك الآكسيس بحجم قاعدة بيانات يتعدى الـ 2 جيجابايت ، مما سيجعل البرنامج بطيء ، وذلك لأنك اعتمدت على تخزين الملف المرفق داخل قاعدة البيانات . والأصح من الصحيح هو أن تجعل الملفات المرفقة الـ PDF تُخزن في مجلد منفصل عن القاعدة ؛ هكذا ستلاحظ الفرق في سرعة برنامجك و كفاءته . هذا من وجهة نظري طبعاً أما عن كيفية حفظ ملفات الـ PDF من المرفقات المدمجة بقاعدة البيانات فهناك طريقتين ، الأولى كالتالي صورة في المرفقات ، والطريقة الثانية عن طريق الـ VBA ولكنها ستكون مزعجة لأنها في هذا الفيديو :- ودمت بخير

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

اخونا @abanob khairy هل تم حل مشكلتك ؟ ☺️

إن شاء الله غداً سأحاول ترجمة كلامك الى ملف مرفق ، والله الموفق

بسيطة اخوي @زياد الحسناوي ولا يهمك ، ان سمحت لي الظروف الليلة ساعدل كما ترغب أو ليوم غداً إن شاء الله.

رغم انك لم توضح مطلبك بشكل واضح ، لكن ولا يهمك ، سيتم التعديل حسب رغبتك ☺️