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

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

@بلال اليامين بس غير الكود وللصور جمع فلتر عند حدث الزر : 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 في الهارد او الشبكة بضغط زر ☕ بس في مشكلة اذى سويت ضغط واصلاح ترجع اول كلمة مرور تم تعينها ؟! ============================= هل اكتفي باضافة جدول وكلمة مرور الاول والاخير وكلمية السر للتفعيل اذا رجعت القاعدة الى اول كلمة مرور ؟! 😗 بعد ضغط واصلاح اساس بسبب العملية الضغط تعطب القواعد << او غير صحيح 😇