hanan_ms

بعد استاذ @ازهر عبد العزيز ☕ تعديل المرفق لطلب @فؤاد الدلوي على طريقة الاستاذ @Moosak تحديد كل انواع العناصر وتشغيلها من غير تعديل وكتابة داخل محرر الاكواد Form Table Report Macro Module مع تحرير الاضافة وتعديل سهل Open_Object_Ms_Access.rar

@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

كيف تعديل على نافذة تحريك النص ==============================(NText)☕ كيف تعديل حقل قناع للنص من غير تحديد عدد الحقول (2) NcText.rar

@Aws86A ?! يعمل الفيدر يوم الاحد اذا قدرة اجرب مرفقك بالسكانر انت جرب مرفق الي انا رفعته لك بس الجديد حدثته لك 1- بسهولة استبدال الاوراق المسحوبة 2- دوران الصفحات بالاتجاه المناسب 3-تحكم بالعرض وتحديد الصفحة ==============================( بتحديث)☕ 1- التحكم بالكل 2- تحديث الصفحة المحددة للاعادة السحب 3-اضافة انواع لاحجام الوراق تقدر تضيف زر موافق للحفظ لتقيد المستخدم بعدم التعديل الا بصلاحية Scanner_V1_02.rar

@Aws86A يعمل الفيدر جرب المرفق وقولي على النتيجة اعتذر عن بعض الاكواد في المرفق والمقطوعة 😏 =========================== بتحديث استبدال الصفحات بتغير الاسم دوران المسحوبات افقي او عامودي scanx.rar

في حل الغاء مفتاح space حدث عند الادخال حدث عند الخروج اسهل ☕ طلب @فؤاديحيى عند استاذي @ابو جودي❤️🌹🌹 شكلة استاذي بعد برنامج التقويم فكرة بالاجازة 😂 توحيد الحروف بدالة للفلترة والخاصة الهمزات الكل في كلمة او استعلام لان الفلتره فقط يستوعب حروف English في بداية الدالة ترميز 8_Unit 😇 Database1.rar

@2saad ❤️🌹🌹 تفضل طريق تتعامل معها لجميع الاصدارات الاكسس تقريبا بسيط ربط ملف اكسل بالاكسس والحاق بالجدول مع تحديث الملف (( Link_File - Link_db - Link... UrL)) ما ينفع تلحق حقل رقم بحقل نص ؟!!☕ تطابق نوع الحقول من اكسل الى اكسس والعكس Give_From_File_Ms.Excl_To_Any_Ms.Access.rar

@Aws86A مرفقك شغال ؟! وين الخلل؟ Where Flate bad ?! A======= AT ( End Paper = Finish Scanner paper ) Or A========== AT( Stop Scanner Or Selected Cod At Fix ) الخطأ عندك بالنسخ الاحتياطية او بتصميمك بشكل عام حدد الخلل وارفع المرفق ممكن تصور الرسالة الخطأ او اشلون ما اشتغل !

اذا اليوم خلصة باجر ارفع مرفق يشتغل معاك

@safaa salem5صفاء ❤️🌹🌹 (( تقسمين المشروع-1 )) FE , BE للاستعادة النسخة يقوم بنسخ وستبدال ملف القاعدة او الاتصال المباشر تحذفين خيار ضغط واصلاح يكون عند اغلاق البرنامج بمربع حوار

@Aws86A يعمل الفيدر وتغير الابعاد تأكد من الجدول DPI تأكد ان الحقول ليسة مشروط ومحدد له معيار الصحة يكون فارغ من (( غير دوال )) لتغير ابعاد الصور لاحظ الفيديو بسهوله تحجيم الصفحات العرض 8.27 الطول 11.2 وفي عضو ليش غير 11.69 !!!!!!!!!!!! المرفق السابق لا يعمل مع الاسكنر 😗 اسوي واحد ثاني ☕ شوف الفيديو

بعد اذنكم ❤️🌹🌹 + Video + طريقة ثانية ☕ محاولة على السريع بنموذج واحد لكافة النماذج لتصحيح المسميات والهمزات وصحة المدخلات عند انتهاء من كتابة الاسم اضغط دبل اكليك بالماوس ويوجد خيار اذا كان الاسم جديد يمكن اضافة عند الاخال لو عند فتح نموذج الفحص والتصحيح = اتصال وربط للقاعدة الاسماء والاغلاق اعادة ربط قاعدة المشروع 😇 من غير ازدحام ===============================================( هل نموذج مفيد ) 1- تخصيص خيار الفحص لاي نموذج حتى آخر تفريع في النموذج 2- تحديد التصحيح '================================(Cod Only One in Form One On All Form) If Me.h1 = 1 Then 'On Error GoTo Form_Open_Err '================================( Chack Spaec Text ) Dim sp As Integer Dim spp1 As String Dim spp2 As String Dim spp3 As String For sp = 1 To 3 'If sp = 1 Then Me.s1 = Str_Txt(Me.T_C1) ' Delete space from start text 'If sp = 2 Then Me.ss2 = End_Text(Me.s1) ' Delete space from end text 'If sp = 3 Then Me.s3 = Mod_Txt(Me.ss2) ' text space end 1 Next On Error Resume Next Me.T_C1 = End_Text(Me.T_C1) 'Str_Txt (Me.T_C1) '=============================( Form_To_TextBox) Dim bForm As String Dim bTextBox As String bForm = Me.frm bTextBox = Me.txt '=============================( Aout ) Dim bEnabled As Boolean Dim strength As String Dim hasUpperCase As Boolean Dim hasLowerCase As Boolean Dim hasArCase As Boolean Dim hasDigit As Boolean Dim hasSpecialChar As Boolean '========================(Cahck Contril_Text_Auto) Dim bEn_A As Boolean Dim bEn_aa As Boolean Dim bAr As Boolean Dim bSomipl As Boolean Dim bN9 As Boolean Dim bSpaice As Boolean Dim bNumber_Text As Boolean Dim bN_T As String ' No Use Error As Long '============================( Run DlookUP IF Form And TextBox ) bEn_A = DLookup("[En-Captial]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") bEn_aa = DLookup("[En-Smoll]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") bAr = DLookup("[Ar]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") bSomipl = DLookup("[sompil]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") bN9 = DLookup("[N9]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") bSpaice = DLookup("[Space_1]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") bNumber_Text = DLookup("[Number_Text]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") If IsNull(DLookup("[N_text]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ")) Then Else bN_T = DLookup("[N_text]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") End If On Error Resume Next '============================== Dim s2 As String Dim ss As String s2 = Me.T_C1 If bEn_A = -1 Then Dim cc1 As Integer For cc1 = 1 To Len(s2) ss = Mid(s2, cc1, 1) If ss Like "[A-Z]" Then hasUpperCase = True MsgBox "chang No Use lang En_captial- {[ " & s2 & " ]}- ", vbExclamation, " close don " & Date s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Next cc1 Else End If If bEn_aa = -1 Then Dim cc2 As Integer For cc2 = 1 To Len(s2) ss = Mid(s2, cc2, 1) If ss Like "[a-z]" Then hasLowerCase = True MsgBox "chang No Use lang En_Smoll- {[ " & s2 & " ]}- ", vbExclamation, " close don " & Date s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Next cc2 Else End If If bAr = -1 Then Dim cc3 As Integer For cc3 = 1 To Len(s2) ss = Mid(s2, cc3, 1) If ss Like "[Ç-í]" Then hasArCase = True MsgBox "chang No Use lang Ar- {[ " & s2 & " ]}- ", vbExclamation, " close don " & Date s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Next cc3 Else End If If bN9 = -1 Then Dim cc4 As Integer For cc4 = 1 To Len(s2) ss = Mid(s2, cc4, 1) If ss Like "[0-9]" Then hasDigit = True MsgBox "chang lang Ar- {[ " & s2 & " ]}- ", vbExclamation, " close don " & Date s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Next cc4 Else End If If bSomipl = -1 Then Dim cc5 As Integer For cc5 = 1 To Len(s2) ss = Mid(s2, cc5, 1) If ss Like "[!@#$%^&*()_+{}:<>?~]" Then hasSpecialChar = True MsgBox "chang lang Somipl- {[ " & s2 & " ]}- ", vbExclamation, " close don " & Date s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Next cc5 Else End If If bSpaice = -1 Then Dim cc6 As Integer For cc6 = 1 To Len(s2) ss = Mid(s2, cc6, 1) If ss Like "[""]" Then s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Next cc6 Else End If If bNumber_Text = -1 Then If bN_T > Len(s2) Then Else MsgBox "chang lang Ar- {[ " & s2 & " ]}- ", vbExclamation, " close don " & Date s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Else End If If DCount("[ID]", "[Chack_text_on_text]") = 0 Then Me.cmd_New.Enabled = True Else Me.T_C2 = DLookup("[name_K]", "[Chack_text_on_text]") Me.T_C2.Enabled = False Me.cmd_New.Enabled = False End If If IsDate(txt_On_txt) Then Me.s1 = txt_On_txt.Value Else Me.s1 = Date End If Me.h1 = 0 End If Form_Open_Exit: Exit Sub Form_Open_Err: MsgBox Err.Description, vbCritical, "frmCalendar.Form_Open" Resume Form_Open_Exit End Sub Text_Change_Auto_Ms_Access.rar

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