نجوم المشاركات

لتجربة الأصناف اختر من الأرقام 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1020 1400 1110 1000 الكاشير.xlsm

شكر خاص للاخ محمد احمد لطفى , و شكر ايظا للاستاذ الكبير kkhalifa1960 نعم تم التجربة بنجاح , ولكم الفضل و خاصة مثال الاستاذ kkhalifa1960 اكثر من رائع, احترامي و تقديري لكم

WS = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8")

= SUMIFS(B2:B20, E2:E20, ">="&I2, F2:F20, "<="&J2, C2:C20, L2,D2:D20,K2) =NB.SI.ENS(E2:E20;">="&I2;F2:F20;"<="&J2;D2:D20;K2;C2:C20;L2) الجمع والعد بشروط عدة.xlsx

وممكن أضيف اي صفحات تاني عادي

Sub TEST_Protect() WS = Array("ورقة1", "ورقة4") On Error Resume Next For i = LBound(WS) To UBound(WS) Sheets(WS(i)).Protect userinterfaceonly:=True, Password:="1234" Next i On Error GoTo 0 End Sub كووود.xlsm

اذا لم تتمكن من ضبط العملية وتريد ملف تنفيذي باسم قاعدة بياناتك الحقيقية زودني بالاسم والامتدااد على فكرة .. في حالتنا هذه الذي نضعه على سطح المكتب هو اختصار للملف التنفيذي

اذا تستخدم التحزيم ضم الملف التنفيذي الأول الى برنامج التنفيذ واعطه امر تشغيل قبل او بعد اكتمال التنفيذ .. لا فرق غالبا انا اعطيه امر التشغيل بعد اكتمال التنصيب .. وسيكون الملف التنفيذي ضمن مجلد البرنامج ، وعمله فقط يشتغل اول مرة فقط لذا يمكنك توجيه تنصيبة الى مجلد تيمب وندوز هذه هي الاسطر المسؤولة عن التخفيض ، وفتح قاعدة البيانات انظر اختلاف اصدارة اكسس تختلف في كل سطر استتلت لك صفحة الفيجوال كاملة وحولتها الى ملف تكست تجدها في المرفق Dim strVS As String On Error Resume Next strVM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\16.0\Access\Security", "VBAWarnings", 1) ShellExecute Me.hwnd, "open", App.Path & "\Seq.accdb", "", "", 1 code.rar

عاشت ايدك استاذ وجزاك الله خيراً على الحل وعلى انك عرفتني والمستفيد من هذا الموضوع بخصائص السجلات في الـــفجول بيسك

تفضل أستاذ @gavan محاولتي . PDF.rar

وعليكم السلام ورحمة الله وبركاته أخي @ابو عبد الله العراقي 🙂 ضع هذا الكود على زر [ التالي ] ليخبرك عندما تصل إلى نهاية السجلات : Private Sub cmdNext_Click() If Me.CurrentRecord < Me.Recordset.RecordCount Then DoCmd.GoToRecord , , acNext Else MsgBox "لقد وصلت إلى نهاية السجلات" End If End Sub وضع هذا الكود على زر [ السابق ] ليخبرك عندما تصل إلى بداية السجلات : Private Sub cmdPrevious_Click() If Me.CurrentRecord > 1 Then DoCmd.GoToRecord , , acPrevious Else MsgBox "لقد وصلت لبداية السجلات" End If End Sub

تفضل جرب بالتوفيق Shell "cmd /c start """" """ & CurrentProject.Path & "\" & Me.id & ".pdf""", vbNormalFocus

نعم .. ذكرت .. اعذروني هذا حكم السن اكسس يحمي نفسه عند تشغيله ، فيصعب تنفيذ تخفيض الأمان بل يمتنع ما دام في وضع التشغيل والعرض اقوم غالبا بتخفيض الأمان عند التنصيب ، حيث احمل السكربت ضمن حزمة البرنامج وبرنامج التنصيب يقوم بالمهمة واحيانا اعمل ملف يشغل قاعدة البيانات وفي الوقت نفسه يخفض الأمان وهو ما ارفقته هنا .. يجب ان يكون الملف بجانب القاعدة انقر على الملف وسوف يفتح قاعدة البيانات على الحد الأدنى من الأمان jj3.rar

السلام عليكم كيف الغاء هذة الرسالة بشكل نهائي تحذير مرجع دائري تحتوي صيغة واحدة أو أكثر على مرجع دائري وقد لا يتم حسابها بشكل صحيح. المراجع الدائرية هي أية مراجع موجودة ضمن أية صيغة، كما أنها تعتمد على نتائج تلك الصيغة.

وغفل عن أشياااااااء كثييييرة بعد .. خليها على الله بس 😅🖐🏻 لكن هناك حيل للتغلب على أغلب المشاكل .. ومنها موضوع المهندس القدير جعفر 🙂 والذي أشار له الأستاذ @kanory

اعتقد بانه يجب ترحيل البيانات الى اكسل ...لان الاكسل يدمج الحقول ويجعلها حقل واحد ويمكنه توسيط الكلمة في المنتصف رأيي ان تطرح سؤالك في قسم الاكسل ..فيه من الاساتذة الكبار