hanan_ms

@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

اشكرك استاذ @bidheel2009 ❤️☕🌹 ---- عملك شبية بنظام القديم IFS شاشة سوده واختصارات الكيبورد "تلوين الخط بنوع الخط "😇

استاذي @ابو جودي ❤️🌹🌹 تصميم كأن لجريده قديمة 😂 اتغشمر استاذي 😇 Update ☕

View File 🎁🔍📀💾Update_Sarach Nod Treeview 6 And All Show Nod And ListIMGe Change Icone All And Selected Nod Ms Access ( بحث فور للشجر وعرض كافة الجذور وتغير ايكون الشجرة مع تخصيص على اكسس )📡💿🔎 ☕🌹 برنامج للشجرة تحديث الجديد كانت للحسابات او تحاليل طبية او لاي نشاط + بحث الجذر وتخصيص محدث لاختيار Icon_For TreeView S6 للشجرة عند الضغط وتم الفتح + او اضافة للواجهة بقائمة رئيسية بالفهرسة تحدد الجذر بفتح النماذج والتقارير + -( TreeView S6 )- ====================(تحديث الجديد ) اختصار : 1-البحث من غير اغلاق النافذة وعرض المحدد من الجذر واختيار عرض كافة الجذور FixAT Add Tool TreeView.Claner !😇 كل بحث بحذر لحالة اذا بحثت يمسح ويضيف الجذر البحث ☕ 2-اختيار ايكون من ListImage مباشر Update(FixAt)☕ 3-Icon Open Nod OnClick And Change Icon ============================= يمكن تخصيص ListImage1 32 ListImage1 42 On TreeView Only One ... ====================(تحديث اقدم ) اختصار : 1-بحث من الشجرة وعرض كافة الجذور TreeView Only One ☕ 2-(FixAT)تصحيح اضافة قيد جديده مع ادخال بيانات اكثر مع التحديث والتحميل الاضافات 3- قائمة التحكم الكامل للشجرة من الالوان والخطوط اسم الخط وكامل تخصيص اعدادة الشجرة وتغير الانماط الشجرة Line 1-Tree_line 2-tree_Root_line Bord 1-ccNon 2-ccFixed Style 0-textOnly 1-Picture Text 2-PlusMines 3-Plus Picture Text 4-treelines text 5-treelines picture text 6-treelines PlusMines Text 7-treelines picture PlusMines Text 4-(FixAT)Show Root PlusMines with Update 5-Add_Menu Control TreeView Selected True Or False And Menu Save Startup Open App TreeView FullRowSelect Sorted HideSelection Enabled ChackBoxes SingleSel Scroll HotTracking ============== Indentation pathSeparator 6-(FixAT)Change Form Size And with Open Full Screen = (Mixmain) Show Video Down (تحكم بحجم النافذة وخصص زر لتتصحيح ثم تغير حجم نافذة البرنامج شاهد الفيديو في الاسفل) 7-Change Icon TreeView And Cange ImageList TreeView 6 Ezy =(Change Pakeg IMG Tree) 8-Change MousePointer on TreeView ========================= 0-ccDefault 1-ccArrow 2-ccCross 3-ccBeem 4-cclcon 5-ccSize 6-ccSizeNESW 7-ccSizeNS 8-ccSizeNWSE 9-ccSizeEW 10-ccUpArrow 11-ccHourglass 12-ccNoDrop 13-ccArrowHourglass 14-ccArrowQusition 15-ccSizeAll 99-ccCustom 💯 A Complit New Future Any Time OFF k☕ ===============( تشكيل الشجرة الى قائمة برنامج ) امكانية تعديل نمط الشجرة اختر 2 واختر من الخصائص Full_Line_Root وخصصة للبحث بتغير اسم الجذر Root تابع الفيديو في الاسفل الموضوع 🎥🎬❤️ =====================(البيانات للتجربة والحسابات نبذه منه ) =================================================================( تحديث القديم ) 1- بناء تلقائي مع تحديث تلقائي 2- تخصيص جذر للعرض القيود 3- تنوع تفقيط المبالغ لاي عملة فقط DlookUp On Function 4-واجهة ريبين Ribbon On Form 5-تغير نمط نص الجذر اذا كان ريسي او متفرع Control Nod And Selected Any item Change Style Text Nod on ActiveX TreeView S6 6-انشاء ملفات انت تحددها للكل جذر محدد على سبيل المثال عند فتح جذر قيود المحاسبية للاصول تجد انشاء ملف باسم الملفات للارفاق +مع قائمة اضافة اسماء الملفات وتحريرها Add_New_Folder_Nod For Save any File 7-تغير لون خلفية الشجرة مع الواجهة 8-قائمة الفهرسة للتعديل على : - مسميات الجذور انشاء جذور حذف الجذور -تحديث -ترمز لون المحدد للاضافة وتفريع 9-خيارات تخصيص الشجرة -فتح الجذور واغلاق الجذور 10-اضافة الجمع براس الجذر بعدد اجمالي الحقول ============================================== اتمنى ان ينال على اعجابكم Submitter hanan_ms Submitted 08/23/2024 Category قسم الأكسيس  

حاضرة استاذي @ابو جودي❤️🌹😘 اجهز المرفق☕

استاذي @ابو جودي❤️🌹🌹 عند مرفق يغير كلمة المرور كل قواعد BE في الهارد او الشبكة بضغط زر ☕ بس في مشكلة اذى سويت ضغط واصلاح ترجع اول كلمة مرور تم تعينها ؟! ============================= هل اكتفي باضافة جدول وكلمة مرور الاول والاخير وكلمية السر للتفعيل اذا رجعت القاعدة الى اول كلمة مرور ؟! 😗 بعد ضغط واصلاح اساس بسبب العملية الضغط تعطب القواعد << او غير صحيح 😇

استاذ @ابوخليل ❤️🌹 اشلون حساب الفلس بنوع الحقل قياسي منازل العشرية 3 اذا كتبت الافلاس ترجع اصفار 0.000 ما يحفظ ؟! ======================= ماردي اخليها بس ارقام بحقل Function 4 1 Len(Number,3) then or read 3 Number Reselect with add "." ?! احس انه ماله داعي يحول الارقام الى قياسي كل 000 ونقطة وبعدين فواصل =============================( لحساب المبلغ مع الافلاس 000 ) مو .00 وشكرا

View File 🎇🎁📥🗜⚙🛠🧰 Ms.Access ActiveX_TreeView_S6_Auto_Buld_Ezy_With_(Full)_Control_Nod_Ribbon_Form_2024 (بناء الشجرة تلقائي مع تحكم الجذر اكسس)-(شجرة حسابات-مع قيود الجذر)-(كامل التحكم بالشجرة) 🧰🗜🎁 2.0.0 ☕🌹 برنامج للشجرة تحديث الجديد كانت للحسابات او تحاليل طبية او لاي نشاط + او اضافة للواجهة بقائمة رئيسية بالفهرسة تحدد الجذر بفتح النماذج والتقارير + -( TreeView S6 )- ====================(تحديث الجديد ) اختصار : 1-بحث من الشجرة وعرض كافة الجذور TreeView Only One ☕ 2-(FixAT)تصحيح اضافة قيد جديده مع ادخال بيانات اكثر مع التحديث والتحميل الاضافات 3- قائمة التحكم الكامل للشجرة من الالوان والخطوط اسم الخط وكامل تخصيص اعدادة الشجرة وتغير الانماط الشجرة Line 1-Tree_line 2-tree_Root_line Bord 1-ccNon 2-ccFixed Style 0-textOnly 1-Picture Text 2-PlusMines 3-Plus Picture Text 4-treelines text 5-treelines picture text 6-treelines PlusMines Text 7-treelines picture PlusMines Text 4-(FixAT)Show Root PlusMines with Update 5-Add_Menu Control TreeView Selected True Or False And Menu Save Startup Open App TreeView FullRowSelect Sorted HideSelection Enabled ChackBoxes SingleSel Scroll HotTracking ============== Indentation pathSeparator 6-(FixAT)Change Form Size And with Open Full Screen = (Mixmain) Show Video Down (تحكم بحجم النافذة وخصص زر لتتصحيح ثم تغير حجم نافذة البرنامج شاهد الفيديو في الاسفل) 7-Change Icon TreeView And Cange ImageList TreeView 6 Ezy =(Change Pakeg IMG Tree) 8-Change MousePointer on TreeView ========================= 0-ccDefault 1-ccArrow 2-ccCross 3-ccBeem 4-cclcon 5-ccSize 6-ccSizeNESW 7-ccSizeNS 8-ccSizeNWSE 9-ccSizeEW 10-ccUpArrow 11-ccHourglass 12-ccNoDrop 13-ccArrowHourglass 14-ccArrowQusition 15-ccSizeAll 99-ccCustom 💯 A Complit New Future Any Time OFF k☕ ===============( تشكيل الشجرة الى قائمة برنامج ) امكانية تعديل نمط الشجرة اختر 2 واختر من الخصائص Full_Line_Root وخصصة للبحث بتغير اسم الجذر Root تابع الفيديو في الاسفل الموضوع 🎥🎬❤️ =====================(البيانات للتجربة والحسابات نبذه منه ) 1- بحث في الشجرة 2- تغير نمط الشجرة وحفظ الاعدادة 3-تحكم بخائص الشجرة مباشر 4- اضافة ملفات وقيود محاسبية وبيانات اضافية للشجرة =================================================================( تحديث القديم ) 1- بناء تلقائي مع تحديث تلقائي 2- تخصيص جذر للعرض القيود 3- تنوع تفقيط المبالغ لاي عملة فقط DlookUp On Function 4-واجهة ريبين Ribbon On Form 5-تغير نمط نص الجذر اذا كان ريسي او متفرع Control Nod And Selected Any item Change Style Text Nod on ActiveX TreeView S6 6-انشاء ملفات انت تحددها للكل جذر محدد على سبيل المثال عند فتح جذر قيود المحاسبية للاصول تجد انشاء ملف باسم الملفات للارفاق +مع قائمة اضافة اسماء الملفات وتحريرها Add_New_Folder_Nod For Save any File 7-تغير لون خلفية الشجرة مع الواجهة 8-قائمة الفهرسة للتعديل على : - مسميات الجذور انشاء جذور حذف الجذور -تحديث -ترمز لون المحدد للاضافة وتفريع 9-خيارات تخصيص الشجرة -فتح الجذور واغلاق الجذور 10-اضافة الجمع براس الجذر بعدد اجمالي الحقول ============================================== Submitter hanan_ms Submitted 08/21/2024 Category قسم الأكسيس  

بعد اذن الاستاذ @Mohameddd200300 استخدمة مرفقك 🌹 تقديرين تضيفين اي رقم ( عند فقط التركيز ) يتحول الى المنازل 2 يكون حقل نوعة قياسي اختاري من القيم العشرية 2 طريق ثانية حقلين بحقل على Scrollbar 2 وتركة لج دالتين قبل النقطة وبعد النقطة او تضيفين Len()-2 ؟! او Nz(Me.creat.Text, "." & me.Scrollbar) معادلات حبيبتي 😍 حساب معدل الترشيح الكبيبي @safaa salem5 👍 القيمة0.accdb

استاذي @ابو جودي❤️🌹🌹😘 محشوم وما كنت اقصد الي في بالك☕ الدوال عربية 😂 انا كنت مشغول ومارد الى بعد يومين ====================== بالعكس يأشر على شي معين يبية نوضح لح عشانك استاذ عجلة التحديث 😇

View File 🎁🗜🧰 Ms.Access ActiveX_TreeView_S6_Auto_Buld_Ezy_With_Control_Nod_Ribbon_Form_2024 (بناء الشجرة تلقائي مع تحكم الجذر اكسس)-(شجرة حسابات-مع قيود الجذر) 🧰🗜🎁 ☕🌹برنامج للشجرة كانت للحسابات او تحاليل طبية او لاي نشاط 1- بناء تلقائي مع تحديث تلقائي 2- تخصيص جذر للعرض القيود 3- تنوع تفقيط المبالغ لاي عملة فقط DlookUp On Function 4-واجهة ريبين Ribbon On Form 5-تغير نمط نص الجذر اذا كان ريسي او متفرع Control Nod And Selected Any item Change Style Text Nod on ActiveX TreeView S6 6-انشاء ملفات انت تحددها للكل جذر محدد على سبيل المثال عند فتح جذر قيود المحاسبية للاصول تجد انشاء ملف باسم الملفات للارفاق +مع قائمة اضافة اسماء الملفات وتحريرها Add_New_Folder_Nod For Save any File 7-تغير لون خلفية الشجرة مع الواجهة 8-قائمة الفهرسة للتعديل على : - مسميات الجذور انشاء جذور حذف الجذور -تحديث -ترمز لون المحدد للاضافة وتفريع 9-خيارات تخصيص الشجرة -فتح الجذور واغلاق الجذور 10-اضافة الجمع براس الجذر بعدد اجمالي الحقول ============================================== ============================================ ( Coming Soon Update )☕ لتخصيص Style treeview = DlookUp And Line H Up And Dawn = DlookUp And Change Image Icon TreeView = DlookUp Search_Nod_With_OpenForm Or Show with Run Cod بحث -treeView Query 2 -And Change Set Tablet For Treeview = DlookUp اتمنى ان ينال على اعجابكم Submitter hanan_ms Submitted 08/16/2024 Category قسم الأكسيس  

بعد اذن استاذي @ابو جودي ❤️🌹🌹 😁 المهم اذا كان طلب الاستاذ @AMINYOUSIF ❤️🌹 اضافة اصول والخصوم والمصروفات والتكاليف والميزانية والحصصة لكل سنة ببرنامج واحد سريع 1- اسهل واسرع اضافة للجذور والتحكم الكامل 2- تغير خلفية الشجرة 3- اضافة الحسابات للكل جذر من زر اضافة حساب 4- مع تخصيص الفهرس بالخط والحجم مع تحديد ترميز الفهرس على سبيل المثال فقط اضافة قيود محاسبية لتفريع C اذا كان طلبك عشان اشتغل علية ؟ واكمل الجذر الرابع بترصيد القيود والجذور لا منتهية اقصد جذور عميقه حسب طلبك للجذر الواحد تفريع غير محدود احسن لو تكون الشجرة دليل مختصر وامكانك فتح مصدر تغذية الجداول ☕ + اضافة محرك بحث للشجرة TreeView_2024_دليل الحسابات.part01.rar TreeView_2024_دليل الحسابات.part02.rar TreeView_2024_دليل الحسابات.part03.rar TreeView_2024_دليل الحسابات.part04.rar

استاذي @ابو جودي ☕ 🌹❤️😘 برنامج الترميز العالمي رائع 👍 =============== اما التفقيد مكانة حقل في الجدول نصي 😗 حقل النقدي للتفقيد تنادي بالدالة بمعالجة الحقل بشرط داخل الجدول IIF((الدالة)) مع الفحص ان تكون الارقام صحيحة كمبالغ ومنازل .000 ==============================( لتسهيل عملية التفقط الصحيحية كأداة اضافة وتعديل ) اضافة جدولة وصف الحقول فلس ,دينار.. ================================( الدالة ) DlookUp() بدل كتابتها داخل الدالة فلس Ezy ==================================( اضافة Emoj للعملات ) او PNg. Icon للعملة > (تخزين العملة داخل الجدول لا يؤثر هو سجل واحد فريد تنادية (DlookUP) ممكن تضاف خطوط للعملات 😇 رموز العملة غير عن اضافة جدول للارتفاع وانخفاض العملة اما تحديث الجدول شبة يدوي او جلب من موقع العملات بتفاق ارسال جدول من احدى المصارف للتحديث $ ================================ استاذي هذي تعميره للفرنجة 😂

@abouelhassan اذا ما اشتغل معاك اسويلك برنامج ثاني بعد اذن استاذ @Moosak ❤️🌹

الفرنجية ادخلوا للحمامات استاذي @ابو جودي ❤️🌹🌹 يغار !!! 😂 وينهم 😂

اعكس انقل مشروعك الى مرفق MyMSGBoxF احتمال يوجد خطأ في جداول الاكسس مع عادة ربط العلاقات ==================== تأكد من مكتبات VBA