Foksh

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

لعدم وجود سكانر عندي ، وددت المشاركة بمصادر قد تفيد إن لم تكن مجربة من قبل ، الفكرة الأولى :- 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 هل تم حل مشكلتك ؟ ☺️

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

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

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

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

أخوي @زياد الحسناوي ، تفضل طلبك الصادر في نموذج ، والوارد في نموذج آخر والتعديل أنت حر التصرف فيه 😊 Lista@.accdb

أضم صوتي لصوتك استاذ @kkhalifa1960 ، والى الأخ @شايب المقترح المنطقي

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

لم توضح لي ذلك سابقاً ، بسيطة ، التعديل القادم أبشر

اخي الكريم انا لم اعتمد على الاستعلامات التي في السابق ، لديك النوذج 0 هو الذي قمت بالتعديل عليه مستنداً الى الإستعلامات ( Q1 + الاستعلام 1 ) فقط لا غير . بمعنى آخر اختر نوع الكتاب والسنة وسيظهر لك الارقام الساقطة جميعها حسب عدد السجلات في الجدول كاملةً . وعدد السجلات في الجدول ( Informations ) في العمود الرباط هو تسلسلي 14 , فجرب لو كان هناك سجلات أكثر

كنت اعتقد أن الهدف والفكرة غير التي تصورتها أنا ، ولكن أن كان الموضوع هكذا فلم كل هذا التعب والإرهاق ، انظر فيما يلي :- 1- لو أن الشهر 28 يوم ، سيتم حساب الراتب على أنه تم خلال الـ 30 يوم ( عرى فرضية فكرتك ) ؛ ولو كان الشهر 31 يوم ، فكذلك الأمر سيتم على حساب الـ 30 يوم ؛ صحيح ؟ فلم أقوم بعد الأيام والتجزئة اليومية والكسور ......... الخ من شوائب ؟؟ فقط أنا سأعتمد الراتب على اساس الـ 30 يوم ( إن كان الشهر أقل أم أكثر ) وعدد الأيام كأيام عمل أو كأيام غياب ستجبر بعضها ( تعويضاً للكسور ) . يعني الراتب مقسوم على 30 يوم مطروح منه عدد ايام الغياب المضروب في ناتج القسمة الأولى , وصلى الله على سيدنا محمد 🥰 2- أعتقد أني طرحت كل الحروف في النقطة الأولى 🤣 .

أخوي العزيز @زياد الحسناوي ، تفضل هذا الملف بعد التعديل حسب طلبك للصادر والوارد ولكن لم يسمح لي الوقت لجعلها كل في نموذج منفصل ، وإن أردت التطبيق يكون على فكرتك بحيث يكون كل نموذج منفصل للصادر والوارد ، فاسمح لي ليوم الغد إن شاء الله في العمل يكون لي الوقت متاح إلى حد ما أكبر من البيت 😅 وعذراً من الإخوة على ارفاق الملف بباسوورد ، فهو خاص للأخ زياد صاحب المشروع . برنامج الأرشفة الالكترونية1.rar