hanan_ms

بعد اذن استاذ @أبو إبراهيم الغامدي 🌹 صفاء اعتقد ان هو بعد طلبك بحث محدد ينقصة معامل </> =========================================(Video + Image + Form) اما البحث العام لا اعلم بضبط حجم مساحة تخزين في الفورم لاستيعاب عدد السجلات المطلوب لان يثقل لدرجة بطيييء والعميل يطر هو للاغلاق نفترض عد الاسجلات Dcount من 1 الى 6000 ومن 6000 الى 12000 سيكون الوسيط شريط التحريك Scrollbar حجز الاستعلامات او الجدول وعرض مجموعة المسموحة للتخزين اشلون اسويها مع الكود Me.RecordSource ="Select * From TblLabData Where Ege Like '*" & Me.TxtSearch & "*'" وشكرا 😇 Search By Characters.rar

صفاء تقصدين اقصد احاول المساعده 😇 استاذي @ابو جودي ❤️🌹🌹 بتأكيد جواب ثاني Function = ((),()) =================================== انا احاول dim NBX as string NBX = len(me.this_number) if left(me.text, NBX) = 5 then ' give And this why for save no give me Null = Error = ( Qury Nurmal cod iif(isnull([text1]) or [text1] ="" ,"",[text1]) .......... me.text1 = set_text_S1(me.text) me.text2 = set_text_S2(me.text) me.text3 = set_text_S3(me.text) compilt with me.text . . end with or docmd.gotorecord ' docmd.openform "", SQL,,,, me.filter =true end if Public Function set_text_S1(ByVal strname As String) As String set_text_S1 = left(strname, InStrRev(strname, "-")) End Function Public Function set_text_S2(ByVal strname As String) As String set_text_S2 = left(strname, InStrRev(strname, " ")) End Function Public Function set_text_S3(ByVal strname As String) As String set_text_S3 = mID(strname, Len(strname) + InStrRev(strname, " ")) End Function

ست! راجل وكمان تشوف عيوني بتشوف النور ده اصلي 😂 استاذ @Moosak ❤️🌹 الاكواد وتصفيف من ايديك غير واحلا الكيك ينوكل من ايد صنيعي اما انا وين محترفه! جبت العيد بالمرفقك موضح بعض الفكره وطبعا انا مستأذنة منه بستخدام مرافقاته تحميل وتجربة https://www.mediafire.com/file/0ic3il3u6siwvuw/list+menu+moosack.rar/file

شكرا استاذ @Moosak ❤️🌹 برنامج ممتاز 💯 ممكن تطوير اذا سمح لك الوقت قائمة (List menu ) 1- اضافة زرين سهم باليمين والشمال اذا صغطة الشمال تبدأ (( مجموعة جديده )) من رقم 1 هل بفضل عمل عدد الجداول على عدد المجموعات؟! او يمكن من جدول واحد عند اضافة حقل جديد مجموعة رقم 1 اظهار للكل بحقل =1 حقل 2 اظهار الكل بحقل =2 =================== 2- قائمة الاعدادة 3اضافة اسم فورم 1واسم العنصر 2وتحديد نوع العنصر تحديد نوع العنصر اذا كان صفحة ويب حقل رقم 4 اكتب الموقع او مسار الملف =================== 3- اضافة اعدادة جديده Progress bar تحديد الوقت او يعمل عند شرط رقم يقف الشرط نوع الشرط عام من غير سجل جدول على سبيل المثال شرط يبدأ من فورم آخر -يتحقق من الاتصال الجدول -يتأكد من نوع الحساب Admin -يرقم ترقيم تلقائي برمجي كان جدول اساسي او فرعي نفس العملية -يتأكد ان مسار المطلوب موجود ... اذا كان الكل صحيح او خطأ فقط كتابة الكود Form_List_Menu.DoP=0 ========================= 4- تغير لون الحقل والنص لكل سجل القائمة اذا كان لون الحقل اصفر يكون لون النص اسود ============================== لو كان الزر لا يظهر فلاش كويري لاستبدلته من حقول الى ازرار عند حدث التفصيلي الى حديث عند التلوين < لتغير الون الزر عند تحريك المؤشر مع الرموز وتغير الرمز ايقونة عند الضغط تكبير الخط مع السمك ================================= وشكرا

بعد استاذ @ازهر عبد العزيز ☕ تعديل المرفق لطلب @فؤاد الدلوي على طريقة الاستاذ @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

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

@بلال اليامين بس غير الكود وللصور جمع فلتر عند حدث الزر : Private Sub Command1_Click() On Error GoTo ABC '======================= Dim varFileX2 As Variant Dim destpathX2 As Variant '=========================== Dim X As Object Set X = Application.FileDialog(msoFileDialogFilePicker) 'Application.FileDialog(3) With X .AllowMultiSelect = False .Filters.Clear .Title = "pleas Selcted item PHOTO .. File_IMG" .Filters.Add "All png", "*.png;*.jpg" .Filters.Add "All File", "*.*" If .Show = True Then For Each varFileX2 In .SelectedItems destpathX2 = varFileX2 Me.ImgPath = destpathX2 Me.Image0.Picture = Me.ImgPath Next Else If Me.ImgPath = "" Then Me.Image0.Picture = "" End If MsgBox " No selected File IMG" End If End With Set X = Nothing ABB: Exit Sub ABC: Resume ABB End Sub

!طلب مساعدة ولا رد لو كان تغير لون او استعلام لتشكرة من زمان 😇🌹❤️ + 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

مهام المرفق 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

اشرايكم ☕❤️🌹 استاذ @عمر ضاحى☕❤️🌹 استاذ @bidheel2009 ❤️🌹 واستاذ @AlwaZeeR ❤️🌹 with_FixAT واساتذه الكرام قبل التحديث ============================ تحديث قريبا برنامج مفتوح المصدر v.2.9.7 التحديث القادم : 1-يحدد الجر المحدد باللون بذوقك ولكل جذر لون عند الضغط ولكل جذر باسم IMG_ICon خاص فية = (بالاسم) 2-Root كامل لكل جذر = Link db Auto from Number YYYY 3- Chinge Lest Box To Tree ON Nod = (One Tablet NOD A,B,C,D) تخصيص اكثر - تحكم اكثر بتخصيص =============================( nod ) لكل جدول تدخل فية البيانات وتقدر تخلي اجزاء منة نموذج صندوق حوار او نموذج جدول اومصمم للحسابات او تحاليل طبية والكل الى شجر ===================================(Update no loading update tree look liest treeview )😇 سريع بالفتح من غير شريط تقدم للتحديث ☕😇 just now by hanan_ms