ابوخليل

سألت الذكاء الاكتروني فأعطاني هذا الكود .. واعتبره هندسة عكسية لم اجربه بعد على اعتبار اسم الدالة المضافة : SCM_Copy Sub ExportMyCustomMenu() Dim cmb As CommandBar Dim ctrl As CommandBarControl Dim fileName As String Dim fileNo As Integer ' تحديد مسار حفظ الملف النصي الذي سيحتوي على تفاصيل القائمة fileName = CurrentProject.Path & "\SCM_Copy_Structure.txt" fileNo = FreeFile Open fileName For Output As #fileNo On Error Resume Next ' محاولة الوصول للقائمة المخصصة التي أنشأتها Set cmb = CommandBars("SCM_Copy") If cmb Is Nothing Then MsgBox "لم يتم العثور على القائمة المعنية!", vbCritical Close #fileNo Exit Sub End If ' كتابة تفاصيل القائمة الرئيسية Print #fileNo, "=== Custom Menu: " & cmb.Name & " ===" Print #fileNo, "Type: msoBarPopup" Print #fileNo, "-----------------------------------" ' المرور على كافة الأزرار والخيارات داخل القائمة واستخراج خصائصها For Each ctrl In cmb.Controls Print #fileNo, "Control Caption: " & ctrl.Caption Print #fileNo, "Control Type: " & ctrl.Type Print #fileNo, "On Action (الوظيفة المرتبطة): " & ctrl.OnAction Print #fileNo, "FaceID (أيقونة الزر): " & ctrl.FaceId Print #fileNo, "-----------------------------------" Next ctrl Close #fileNo MsgBox "تم استخراج هيكل الدالة والقائمة بنجاح في ملف نصي بجانب قاعدة البيانات!", vbInformation End Sub

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

عمل رائع محكم شكرا لك استاذ امين

وهذه مساهمة مني بادراج الوحدة النمطية الموجودة في الملف St.Sys2.rar

نعم .. طبعت ملف الـــ pdf على ورقة وهذه هي النتيجة .. احببت ان اسجلها مرئية ولكن من خارج الحاسوب من اجل تكتمل الرؤية ملف فيديو : WAM.rar

طيب انت لديك في النموذج هذا الكود خلف زر وظيفته التحكم بالتعديل من عدمه : Private Sub أمر85_Click() If MsgBox("هـــــل تريــــد تحرير السجل الحالي ؟ ", vbInformation + vbYesNo + vbMsgBoxRight + 256, "تنبيـــــه") = vbYes Then AllowEdits = True DoCmd.CancelEvent Else AllowEdits = False End If End Sub لو اضفت اليه خاصية الاضافة لأصبح التحكم بيدك Private Sub أمر85_Click() If MsgBox("هـــــل تريــــد تحرير السجل الحالي ؟ ", vbInformation + vbYesNo + vbMsgBoxRight + 256, "تنبيـــــه") = vbYes Then AllowEdits = True AllowAdditions = True DoCmd.CancelEvent Else AllowEdits = False AllowAdditions = False End If End Sub

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

ما هذا ما شاء الله النموذج الفرعي وعرفناه ولكن العجب في الصورة كيف خرقتها وجعلت جزأ منها شفافا

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

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

انا استخدم مربع بحث قوقل .. فهو يبحث في الكل .. العنوان والمتن هو الافضل عندي .. لأنه يعرض النتائج حسب التاريخ الاحدث قالاقدم ولكن يجب اختيار العبارات الدقيقة المناسبة للبحث ..

ارى من الافضل اعتماد ايجار اليوم الواحد .. سواء دفع مقدما .. او الدفع عند الارجاع وعند الارجاع ينظر كم استغرق من الايام ويتم محاسبته على الفرق ارى انها طريقة مستقرة .. ما رأيك؟ ام لك رأي آخر : مثلا نضع حقلا يدخل فيه رقم عدد الايام قبل تمرير الباركود؟

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

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