Foksh

وعليكم السلام ورحمة الله وبركاته.. كرر امر الطباعة عدد المرات التي تريدها من خلال زر واحد ليتم طباعة التقارير بالتسلسل. إن كان الأمر كما أتصور في Word فرضاً . فإن الويندوز سيحتفظ بأوامر الطباعة في جزء من الذاكرة العشوائية في صندوق الطباعة الذي يظهر بجانب الساعة .

وعليكم السلام ورحمة الله وبركاته.. إن كنت تقصد أنك تريد استيراد قيم من ملف اكسل الى جدول اكسيس ، فألقِ نظرة على هذا الموضوع:-

كما تفضلتم أخي @منتصر الانسي تماماً .. نجاح السطر الذي ارفقته وشاركته دليل على أنه أحد خصائص آكسيس التي يمكن من خلالها فعلاً تحديد عندد النسخ من خلال تمرير القيمة داخل سطر الإستدعاء . لكن يبدو من خلال بعض التجارب أن الأمر مرهون بعدة عوائق منها نوع الطابعة ، تعريف الطابعة نفسه ، نظام التشغيل الويندوز أو بمعنى ادق التحديثات التي تُـحدِثــُها مايكروسوفت . لذا توجهت فعلاً إلى استخدام أمر التكرار كحلقة لتكرار أمر الطباعة . وهذا الموضوع الخارجي لتوسيع الفكرة لطباعة تقرير من خلال آكسيس .

جميل جداً هذا التوضيح والطريقة الجميلة أيضاً .. التعرف على أنه إذا كانت Type = 1 وبالتالي النوع 1 = جدول هي بحد ذاتها أيضاً فكرة جميلة . وبما أن قيمة الـتعليمة Flags = -2147483645 وهي قيمة ثابتة في اكسيس لجميع إصدارات أوفيس ، وهي للتوضيح الواجب أنه ليس لأوفيس علاقة بفرضها بهذه القيمة . بل يفرضها نظام التشغيل نفسه ( Windows ) على حد علمي . أما بخصوص السطر والفكرة التالية :- فهي بحد ذاتها جريئة وإلتفاته فتحت لي أفكاراً جديدة في هذا الخصوص . فشكراً لك ولكل من ساهم بإثراء الموضوع بمشاركته الجميلة والقيمة كجوهره

افتح موضوعك الجديد بهذا الطلب ، وأنا على يقين أنك ستجد الكثير من الحلول والأفكار التي ستجد بها حل يرضيك .

أعلم يقيناً ذلك وبقناعة مطلقة ، إلا أنني .. في أحد المشاريع لبرنامج خاص بمكتب تسهيلات الفيزا لأحد الأصدقاء . كان لي توجه بحيث !!!!! 1. عند تشغيل قاعدة البيانات يتم الإتصال بقاعدة البيانات الخلفية الأساسية . واستخراج قاعدة بيانات خلفية أخرى بنفس الجداول مخفية في مسار داخل الويندوز ( لعدم أهميته لأنه خالي من البيانات ) 2. عند الإغلاق يتم إعادة ربط قاعدة البيانات قبل اغلاقها بقاعدة الجداول الخلفية الوهمية ( التي لا تحتوي على بيانات ) . طبعاً الثغرة واضحة جداً لمن يتمعن إلا أنها كانت متينة عند عدم عمل قاعدة البيانات بأنه لن يجد أي شخص بيانات داخل قاعدة البيانات الخلفية .

ما شاء الله عليك .. أولاً نشكر معلمنا أبو خليل لمشاركته وجعله الحافز الذي أنرت به موضوعي المتواضع .. شرح جميل جداً وطريقة مبتكرة أيضاً وجميلة .. سلمت تلك الأنامل والأفكار النيراتِ

هو المطلوب بعينه ، ولكن إن لم يكن معلمي يدري ، فمن يدري !!!

هل هذا سيطبق على الحضور والإنصراف ، أم على الحضور فقط ؟؟؟ لأن الإنصراف قد يتبع لقواعد العمل الإضافي ( وقد لا يتبع ) ولكن من باب التوسع هل سيتم الأخذ بعين الإعتبار لهذه النقطة ؟؟

ماذا لو كان ولأي سبب ، أن يقوم الموظف بالمغادرة قبل أو بعد عدد الساعات المحدد كمعيار !!!

السادة الأفاضل الكرام ، الأساتذة ( @kanory ، @عمر ضاحى ، @Barna ) الذين ساهموا بمشاركتهم بالتجربة والإفادة بالنتيجة .. بدايةً شكراً لكم لمشاركتكم ، وأعلم أنكم بخبرتكم قادرون على تحقيق المطلوب بشتى السُبل والطـُرق . كانت البداية بأن الملف بصيغة ACCDB ؛ أي أنني تركت لمن يرغب بالمشاركة - باب التجربة مفتوحاً - بأكواد أو استعلامات أو أي طريقة يراها مناسبة لتحقيق المطلوب . 💥 ولكن كمطور فطبعاً لن يتم تسليم أي مشروع لأي عميل بهذا الشكل - الغير محمي - وبالتالي لا بد من حماية وتشفير الملف وتقفيله بعد إتمام المشروع بصيغة ACCDE مع باقي الإحتياط التي يتخذها المصمم والمطور والمبرمج ، صحيح ؟ ☢ وهنا جاءت الفكرة التي رغبت بتجربتها وتنفيذها ، بحيث سيكون التنفيذ والإختبار على ملف مقفل فقط بحفظه بصيغة ACCDE لم أضع كلمة مرور - له - على محرر الأكواد . لذا أرجو منكم الإفادة بالتجربة على نفس الملف ولكن بصيغة ACCDE . مع العلم أن المكون هو جدول واحد و سجل واحد فقط . ولن يهمني كثيراً اسم الجدول بقدر ما يهمني السجل الذي يحتويه الجدول كبيانات كما أرجو أن يتم ذكر الطريقة التي تم بها التعرف على هذا السجل والجدول . ولن أطلب أي أكواد بقدر ما يهمني الطريقة ذاتها . HideTBL V1-32.zip HideTBL V1-64.zip

وعليكم السلام ورحمة الله وبركاته.. لدي سؤالين اثنين فقط . ❓هل استعلام الإلحاق QR_INV_ADD يقوم بنسخ بيانات لكل صنف موجود في الفاتورة ؟ ❓ وهل الاستعلام QR_INV_UPD يحدّث الجدول TB_11 بالكامل أم يحدّث فقط عناصر الفاتورة الحالية ؟ طبعاً انا لم أطلع على المرفق ، ولكني مفترض انك قمت بتقسيم قاعدة البيانات ، وإنك تستخدم الفهارس بشكل صحيح .

أخواني وأساتذتي ومعلمينا ( دون استثناء ) أدعوكم لتجربة قيد الإختبار ، بحيث يوجد في قاعدة البيانات الحالية المرفقة جدول باسم Table1 . يحتوي سجلات محمية . وأريد تجربة إن كان بالإمكان استيراد هذه السجلات أو معرفة القيم التي فيها ، و بأي وسيلة أو طريقة تخطر على بال من يحاول التجربة بالتعرف على السجلات . الهدف حماية السجلات من العبث ومنع استيرادها بتاتاً . 1. القاعدة غير محمية بكلمة مرور أو حتى أنها غير محفوظة بصيغة Accde ... 2. ما يهمني هو الطريقة التي تم بها الكشف عن الجدول . وليس النتيجة ذاتها Hide TBL.accdb

شكراً لك ثقتكم معلمي الفاضل .. وبانتظار أفكاركم التي أثق أنها ستكون كمحيط اما بحيرتي الصغيرة في تنفيذي

اعتقد يمكن تحقيق ذلك من خلال استخدام OpenArgs كمتغير لعدد النسخ المستهدف طباعتها . وبالتالي نطبق فكرة الطباعة عند فتح التقرير بحيث يتم الطباعة مباشرةً بحلقة تكرارية لعدد مرات الطباعة عند فتح التقرير . بحيث أولا نفتح التقرير من خلال زر ، مع تمرير قيمة المعامل OpenArgs وهنا سيكون 3 كمثال :- DoCmd.OpenReport "اسم تقريرك", acViewNormal, , , , "3" وداخل حدث عند فتح التقرير ، نحدد عدد الصفحات ( كما في المثال السابق ) الصفحة الأولى أو الحالية ، نستخدم الفكرة التالية :- Private Sub Report_Open(Cancel As Integer) Dim c As Integer If Not IsNull(Me.OpenArgs) Then For c = 1 To Val(Me.OpenArgs) - 1 DoCmd.PrintOut acPages, 1, 1 Next c End If End Sub جرب وأخبرنا بالنتيجة

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

وعليكم السلام ورحمة الله وبركاته .. بعد الإطلاع مرتين على الملف المرفق وطريقة عملك عليه ، جرب الحدثين التاليين في الأزرار .. Private Sub a1_Click() Dim curID As Long Dim nxt As Variant If Nz(Me.ek, "") = "" Then curID = Me.no_rece + 1 Else curID = CLng(Me.ek) End If nxt = DMin("no_rece", "enar_dman", "no_rece > " & curID) If Not IsNull(nxt) Then Me.ek = nxt Me.Requery Else MsgBox "لا يوجد سجل تالي", vbInformation + vbMsgBoxRight, "" End If End Sub Private Sub a2_Click() Dim curID As Long Dim prv As Variant If Nz(Me.ek, "") = "" Then curID = Me.no_rece - 1 Else curID = CLng(Me.ek) End If prv = DMax("no_rece", "enar_dman", "no_rece < " & curID) If Not IsNull(prv) Then Me.ek = prv Me.Requery Else MsgBox "لا يوجد سجل سابق", vbInformation + vbMsgBoxRight, "" End If End Sub طبعاً قد تحتاج لزر "سجل جديد" إذا كان النموذج الحالي إدخال البيانات . وهذه الفكرة بدلاً من التكرار للحدثين في الزرين ،يمكن دمجهم في دالة واحدة والإستدعاء فقط من خلال الزرين يميز السابق والتالي :- Private Sub a1_Click() GoToRecord True End Sub Private Sub a2_Click() GoToRecord False End Sub Private Sub GoToRecord(isNext As Boolean) Dim curID As Long Dim newID As Variant Dim fld As String: fld = "no_rece" If Nz(Me.ek, "") = "" Then If isNext Then curID = Me(fld) + 1 Else curID = Me(fld) - 1 End If Else curID = CLng(Me.ek) End If If isNext Then newID = DMin(fld, "enar_dman", fld & " > " & curID) Else newID = DMax(fld, "enar_dman", fld & " < " & curID) End If If Not IsNull(newID) Then Me.ek = newID Me.Requery Else If isNext Then MsgBox "لا يوجد سجل تالي", vbInformation + vbMsgBoxRight, "" Else MsgBox "لا يوجد سجل سابق", vbInformation + vbMsgBoxRight, "" End If End If End Sub test.zip

وعليكم السلام ورحمة الله وبركاته .. جرب في حدث بعد التحديث لمربع النص الغير منضم الفكرة التالية .. Private Sub AMOUNT_AfterUpdate() Dim vAmount As Double vAmount = Nz(Me.AMOUNT, 0) DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Table1 SET JOR = Nz(US,0) * " & vAmount DoCmd.SetWarnings True DoCmd.Requery End Sub

وعليكم السلام ورحمة الله وبركاته ، بما أنك لم تحصل على طلبك ، فدعني أوجهك إلى بعض التعديلات التي تجعل من مشروعك سليماً من ناحية التأسيس .. أولاً لاحظت أنك وللأسف تستعمل مسميات عربية للحقول واسماء الجداول . وهذه نقطة ضعف ومشكلة كبيرة . أيضاً تستعمل الأسماء من مقطعين بفاصل = مسافة مثل :- "الاسم رباعى" . وهنا الأصح هو استعمالك لمسميات انجليزية كمثال "FullName" أو "Full_Name" أو أي أسماء تدل على الحقل و وظيفته . ثانياً أيضاً يوجد لديك مشكلة في تسمية الحقول الموجودة في جدول الحضور .. انظر الصورة :- 🚫 أسماء حقول = أرقام هذا خاطئ وبشكل كبير كتسمية للحقول .. لذا وكي تحصل على إجابات لطلبك ، عليك أن تقوم بتصويب الملف المرفق وتصحيح أخطائك ؛ وحتماً ستجد العديد من الحلول الأخرى .

قريباً .. التحدي الصعب بتطبيق لعبة الدومينو بواسطة آكسيس بأسلوب السحب والإفلات وتطبيق اللعبة الحقيقية على أرض آكسيس 😅 لمحة مصورة من اللعبة :-

وعليكم السلام ورحمة الله وبركاته .. أختنا الكريمة أهلاً وسهلاً بك في أول مشاركة لك ونتمنى أن تجدي إجابة لمواضيعك مستقبلاً .. ولكن نرجو منك مستقبلاً الإلتزام لقوانين المنتدى بحيث :- فتح الموضوع في قسمه المناسب ، فموضوعك هذا في قسم اكسل وطلبك يختص بآكسيس . إن يكون العنوان ذا وضوح وعلاقة بالمشكلة وأن يصف المشكلة بوضوح . شرح وتوضيح المشكلة بشكل مفصل داخل موضوع المشاركة . ففي موضوعك الأول لم توضحي ما المشكلة التي تعانين منها . إرفاق ملف ليتم التعديل عليه وعلاج المشكلة التي تحتاجيتها . ففي مرفقك ملف نصي طويل يحتوي شرح المطلوب ، ولكن هنا توضح لي إنك بحاجة لمشروع كامل وليس طلب لمشكلة محددة . لذا سيتم نقل طلبك إلى قسم :- إعلانات شخصية للأعضاء

وعليكم السلام ورحمة الله وبركاته .. راجع هذا الفيديو للأستاذ أحمد عبد المنعم :-

وعليكم السلام ورحمة الله وبركاته .. استخدم خاصية البحص أخي الكريم في المنتدى ، وستجد بعض المواضيع التي تحدثت عن طلبك . أذكر منها موضوع للأستاذ موسى الكلباني @Moosak في هذا الموضوع . أو هذه الفكرة للأستاذ محمد عصام @ابو جودي في هذا الموضوع .. وهذه المشاركة فيها الكثير من الإجابات الجميلة ..

وعليكم السلام ورحمة الله وبركاته .. أخي الكريم 🤗، طلبك تكرر عدة مرات لهذا الموضوع ، وفي آخرها كان في الموضوع التالي :- راجع وتابع مواضيعك وقم بإغلاق ما تم حله .. شكراً لك 💐

مشاركة مع الأخوة .. جرب المرفق التالي بعد تعديل مصدر بيانات التقرير للسجل الحالي وطباعته .. Private Sub أمر25_Click() On Error Resume Next Dim ID As Long ID = Me.رقم_الهوية DoCmd.OpenReport "T1", acViewNormal, , "[رقم الهوية]=" & ID On Error GoTo 0 End Sub ملفك بعد التعديل :- الطالب.zip