hanan_ms قام بنشر أغسطس 27 قام بنشر أغسطس 27 مهام المرفق 1-تصحيح وانشاء المسار تلقائي والملفات عند السحب 2-فحص اذا تم السحب سابقا بوجود ملف PDF 3- تلقائي استخراج الكل عند السحب jpg bmb png tiff GIF 4- مع تفعيل الاعدادة With div.items(1) .Properties("6146").Value = 1 'Colour intent (1 for color, 2 for grayscale, 4 for b & w) .Properties("6147").Value = DPI 'DPI horizontal .Properties("6148").Value = DPI 'DPI vertical .Properties("6149").Value = 0 'x point to start scan .Properties("6150").Value = 0 'y point to start scan .Properties("6151").Value = 8.27 * DPI 'Horizontal extent .Properties("6152").Value = 11.69 * DPI 'Vertical extent for letter End With تعديل على المرفق عند انتهاء من السحب يطبع المسحوبات ويستخرج PDF ======================= المطلوب: تصحيح اخطاء الفيدر والاعدادة With div.items(1) وتغير وحدة القياس 8.27 * DPI 11.69 * DPI عند التغير الارقام تظهر رسالة خطأ سكانر وطباعة واستخراج PDF- تلقائي بعد انتهاء من السحب.rar
hanan_ms قام بنشر أغسطس 30 الكاتب قام بنشر أغسطس 30 !طلب مساعدة ولا رد لو كان تغير لون او استعلام لتشكرة من زمان 😇🌹❤️ + Video + محاولة مع نفسي 😏 1- اذا ما عندك اسكانر (جهاز الماسح الضوئي للاوراق والمستندات) اضافة المسحوبات على الفرعي من غير تشغيل استعلام ☕ Private Sub Form_Timer() If Form_F_in.hck = 1 Then Dim Folder_test As String Folder_test = "C:\Users\Ezril\Desktop\New folder (79)\scan\test scaner" 'Application.CurrentProject.Path & "\" & "test scaner" Form_F_in.In_No = "888" DoCmd.Save acForm, "F_in" Dim rung As Integer For rung = 1 To 2 Forms![F_in]![T_In_Attache_Path subform].Form![In_Attache_Path] = Folder_test & "\" & rung & ".png" Forms![F_in]![T_In_Attache_Path subform].SetFocus SendKeys "{DOWN}", True On Error Resume Next DoCmd.GoToRecord , , acNext Next Form_F_in.hck = 0 Form_F_in.sc.Requery End If End Sub On Error Resume Next '... ليس فقط لتجاوز الاخطاء المنطقية - استدعاء ناقص من مصدر برمجة اكسس -وستهداف التركيز 2- استخراج المسحوبات Pdf وطباعة 3-اداة اقتصاص الزائد بعد الانتهاء من سحب المستندات من السكانر 4- قائمة تعديل وضبط المقياس بزر الاعدادة 5- عند تجربتك للماسح الضوئي جرب الكود مع الاستبدال نسخ التقرير واضافة Report1A$2 If Me.XXS = 0 Then If Me.Do = -1 Then DoCmd.OpenReport "Report1A$3", acViewPreview, , , acHidden DoCmd.OutputTo acReport, "Report1A$3", "PDFFormat(*.pdf)", IMG_PDF & "\" & Me.In_ID & "-" & Format(Now(), "Hh-Nn-ss-AM-PM") & ".pdf" DoCmd.OutputTo acReport, "Report1A$3", "PDFFormat(*.pdf)", IMG_PDF & "\" & Me.In_ID & ".pdf" '=======================================================( Out Print DoEvents Me.w.Visible = True Me.w.ControlSource = "=""" & IMG_PDF & "\" & Me.In_ID & ".pdf" & """" Me.w.Requery DoEvents DoCmd.SelectObject acReport, "Report1A$1" DoCmd.RunCommand acCmdPrint End If وطلب تصحيح بترتيب الدوال والمرفق او البديل Scn_Curp.rar
Aws86A قام بنشر أغسطس 30 قام بنشر أغسطس 30 السلام عليكم هل يعمل الفيدر لديك مع قاعدة البيانات لان حاولت مع غير قاعدة بيانات وما اشتغل ويايه؟
hanan_ms قام بنشر أغسطس 30 الكاتب قام بنشر أغسطس 30 7 hours ago, Aws86A said: هل يعمل الفيدر لديك مع قاعدة البيانات لان حاولت مع غير قاعدة بيانات وما اشتغل ويايه؟ (( هو شغال فقط اضغط زر (( اسكان معاك خيارين حدد الي يناسبك اما السكانر مو معاي حاليا بس يتوفر ارفقه مع الفيديو والتحديث اذا معاك سكنر بانسونك او كانون ممكن تعطيني النتيجة
hanan_ms قام بنشر سبتمبر 1 الكاتب قام بنشر سبتمبر 1 @Aws86A يعمل الفيدر وتغير الابعاد تأكد من الجدول DPI تأكد ان الحقول ليسة مشروط ومحدد له معيار الصحة يكون فارغ من (( غير دوال )) لتغير ابعاد الصور لاحظ الفيديو بسهوله تحجيم الصفحات العرض 8.27 الطول 11.2 وفي عضو ليش غير 11.69 !!!!!!!!!!!! المرفق السابق لا يعمل مع الاسكنر 😗 اسوي واحد ثاني ☕ شوف الفيديو
Aws86A قام بنشر سبتمبر 1 قام بنشر سبتمبر 1 السلام عليكم اذا ممكن ايميل لان انا لدي نفس الفكرة لكن الفيدر لم يعمل لدي
hanan_ms قام بنشر سبتمبر 4 الكاتب قام بنشر سبتمبر 4 @Aws86A مرفقك شغال ؟! وين الخلل؟ Where Flate bad ?! A======= AT ( End Paper = Finish Scanner paper ) Or A========== AT( Stop Scanner Or Selected Cod At Fix ) الخطأ عندك بالنسخ الاحتياطية او بتصميمك بشكل عام حدد الخلل وارفع المرفق ممكن تصور الرسالة الخطأ او اشلون ما اشتغل !
Aws86A قام بنشر سبتمبر 4 قام بنشر سبتمبر 4 (معدل) السلام عليكم الخلل عندي من اربط السكنر واختار مسح عن طريق الفيدر يسوي المسح عن الطريق الفلات باد وبالنسبة للتصميم اني احتاجه هيج السكنر الي عندي ايبسون وعندي من اسوي سكنر عن طريق الفلات باد حجم الصورة جبير تم تعديل سبتمبر 4 بواسطه Aws86A
hanan_ms قام بنشر سبتمبر 6 الكاتب قام بنشر سبتمبر 6 @Aws86A يعمل الفيدر جرب المرفق وقولي على النتيجة اعتذر عن بعض الاكواد في المرفق والمقطوعة 😏 =========================== بتحديث استبدال الصفحات بتغير الاسم دوران المسحوبات افقي او عامودي scanx.rar
Aws86A قام بنشر سبتمبر 6 قام بنشر سبتمبر 6 السلام عليكم هل جربت الملف الخاص بي من قبلك يعني اشتغل الفيدر يمك لان اني يمي ما اشتغل
hanan_ms قام بنشر سبتمبر 6 الكاتب قام بنشر سبتمبر 6 @Aws86A ?! يعمل الفيدر يوم الاحد اذا قدرة اجرب مرفقك بالسكانر انت جرب مرفق الي انا رفعته لك بس الجديد حدثته لك 1- بسهولة استبدال الاوراق المسحوبة 2- دوران الصفحات بالاتجاه المناسب 3-تحكم بالعرض وتحديد الصفحة ==============================( بتحديث)☕ 1- التحكم بالكل 2- تحديث الصفحة المحددة للاعادة السحب 3-اضافة انواع لاحجام الوراق تقدر تضيف زر موافق للحفظ لتقيد المستخدم بعدم التعديل الا بصلاحية Scanner_V1_02.rar
hanan_ms قام بنشر سبتمبر 11 الكاتب قام بنشر سبتمبر 11 @Aws86A ان شاء الله اشتغل معاك الفيدير ?! يعمل الفيدر كنت مشغولة وايد تحديث + فيديو + صور +مرفق بس اكمل شوي واذا في احد عنده تعديل او استبدال وتصحيح يعديل بالمرفق ويرفعة للتحديث مع فيديو سحب الاوراق من الاسكانر للمساعده _🌹❤️ ما في متطوع يفحص 😇 ==============================( التحديث)☕ 1- خيار سحب المرفقات اما ملون او ابيض واسوط 2-مع السحب QR-Barcode (Scanner-Add_Image ) 3- بيحث ب QR-Barcode - with Number IMG 4- تحديث تلقائي مع اضافة تصحيح التحديث 5-اضافة ادوات الدوران 90 180 90- 6-ترقيم الصفحات الممسوح بالسكانر والصور المضافة تلقائي مع التحديث والفتح 7- تحديث الصفحة المحددة للاعادة السحب والاستبدال 8- اضافة انواع لاحجام الوراق بوحدة القياس الانش IN-Che ( A0 A1 A2 A3 A4 A5 A6 B4 B5 Letter And lager And Add U Custom Nmae Size with H W Inche ... ) 9-اضافة وتصحيح عرض التقارير لطباعة المسحوبات السكانر ( برواز كامل -برواز محدد - فقط المسحوب والكل معرض QR-Barcode ) 10- مع بعض الاضافات الاخرى ==============================( السابق ) 1- بسهولة استبدال الاوراق المسحوبة 2- دوران الصفحات بالاتجاه المناسب 3-تحكم بالعرض وتحديد الصفحة scanner_QRbarcod_Full_Control_paper_V1_7_0.part1.rar scanner_QRbarcod_Full_Control_paper_V1_7_0.part2.rar scanner_QRbarcod_Full_Control_paper_V1_7_0.part3.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.