منتصر الانسي

يمكنك ذلك عن طريق القوائم المختصرة قمت بتعديل مثالك حيث قمت بإضافة وحدة نمطية بإسم mdlPrintMenu تقوم بإنشاء قائمة مختصرة بإسم PrintMenu ومن خاصية Shortcut Menu Bar الخاصة بالتقرير (لا أتذكر الإسم بالعربي تماما ولكن يمكن أن يكون شريط قائمة الاختصارات) نقوم بإختيار PrintMenu من القائمة إن شاء الله يكون هذا الحل هذا هو الحل الذي تبحث عنه مع تحياتي LAb.rar

اقتراحي ان يتم تحويل الوقت الى ثواني لانها أدنا وحدة للوقت (هذه دالة تقوم بالتحويل) Public Function fncTimeToSec(varTime As Variant) As Double On Error GoTo OnErrors Dim curTime1 As Double If IsNull(varTime) Or varTime = "" Then fncTimeToSec = 0 Else If Len(varTime) > 5 Then curTime1 = CLng(Left(varTime, 2)) * 3600 curTime1 = curTime1 + CLng(Mid(varTime, 4, 2)) * 60 curTime1 = curTime1 + CLng(Mid(varTime, 7, 2)) Else curTime1 = CLng(Left(varTime, 2)) * 60 curTime1 = curTime1 + CLng(Mid(varTime, 4, 2)) End If fncTimeToSec = curTime1 End If ToExit: Exit Function OnErrors: fncTimeToSec = 0 Resume ToExit End Function ثم نقوم باجراء العملية الحسابية ثم نعيد تحويلها الى وقت بإستخدام هذه الدالة Public Function fncSecToTime(dblSeconds As Double) As String On Error GoTo OnErrors Dim curTime1 As Double If IsNull(dblSeconds) Or dblSeconds = 0 Then fncSecToTime = 0 Else curTime1 = Int(dblSeconds) fncSecToTime = Format(Int(curTime1 / 3600), "00") _ & ":" & Format(Int((curTime1 Mod 3600) / 60), "00") _ & ":" & Format((curTime1 Mod 3600) Mod 60, "00") End If ToExit: Exit Function OnErrors: fncSecToTime = 0 Resume ToExit End Function جرب وإن شاء الله تنجح مع تحياتي

تم تعديل الكود في مثالك مع تحياتي LAb.rar

اهلا وسهلا اخي @عبدالله المجرب المنتدى منور بكم أنتم وبقية الأخوان كنت قد لاحظت غيابك لأنك من الأشخاص الذين أعرف عنهم إجتهادهم بالمشاركة والمساهمة في أغلب المواضيع ألف شكر على هذه الكلمات الجميلة

انا لم اقصد ان ماقلته غير صحيح بل قصدت في حال اذا تطلب الأمر إظهار جميع السجلات وخاصة عندما تكون العلاقات معقدة خصوصا إذا شملت أكثر من حقل واحد ولكن في 90% وأكثر من الحالات فكما تفضلت فإن استخدام صلة بين الجدولين في الاستعلام هي الحل الأفضل تحياتي

اخي الفاضل @ابوخليل حقول التاريخ أساساً هي حقول رقمية يكون الجزء الصحيح منها هو التاريخ (اليوم يساوي 1 صحيح) والكسور تمثل الوقت (الثانية تساوي 1 من 10000 تقريبا) مثلما ذكر الأخ @شايب هذا صحيح ليس للأسباب المذكورة فقط وإنما لأنك ننفذ دوال VBA مع محرك البيانات ولغة SQL وهذا ايضاً صحيح ولكن النتائج عادة ستقتصر على السجلات التي يوجد مايقابلها في الجدول الأخر الحل الأفضل من وجهة نظري هو إستخدام الإستعلامات الفرعية وهي سهلة جداَ أرفق لكم مثال الأخ ابو خليل وقد قمت بعمل حل له بإستخدام استعلام فرعي وقمت بإضافة بعض الأشياء لتوضيح سبب المشكلة وكذا لمعرفة القيمة الرقمية لأي للتاريخ والوقت مع تحياتي d8.rar

اخي العزيز إذا كان التقرير يختفي خلف النموذج فعليك تعديل أمر فتح التقرير كالتالي DoCmd.OpenReport "youssef", acViewPreview, , , acDialog ستقوم المعلمة acDialog بفتح التقرير فوق النموذج أما إذا كان يقلق نهائيا فالاحتمالات كثيرة وسندخل في مرحلة التخمين التي قد يكون ضررها أكثر من فائدتها فيفضل ان ترفق مثال أو على الاقل تنسخ لي الكود في وضعه الحالي مع تحياتي

مثالك هنا أخت @hanan_ms يخص هذا الموضوع ولكن ورغم أنك قمت بتعديل خارج الموضوع انما الفكرة في حد ذاتها رائعة لتأمين التطبيق وسأعمل بها ولكني وجدت أنه عند إغلاق النموذج frmStart من زر X ييتم تجاوز الكود ويتم الخروج من الاكسس حتى يعد ان أضفت الأمر SetAccessCloseAbility False الى حدث OnLoad للنموذج (وللتأكيد أقصد النموذج frmStart وليس start) مع تحياتي

طالما والدمج المطلوب سيكون في اكسل يفضل نشر طلبك في منتدى اكسل

هذا في إعتقادي لأنك عامل أمر الإغلاق بعد أمر الفتح جرب حذف سطر إغلاق التقرير وإن شاء الله تنحل المشكلة مع تحياتي

يوجد حل غير مباشر ستجده في المرفق مع تحياتي تكبير حجم الخط.rar

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

صراحة معنا بالمنتدى ثلاثة آباء مبهرين @ابوخليل و @ابو جودي و @ابو البشر ما شاء الله الأفكار رائعة والتنفيذ أروع نتعلم منه الكثير ألف شكر لكم وبالتوفيق إن شاء الله مع تحياتي

لا أدري إذا كنت قد فهمت ماتقصده بالضبط ولكن قمت بتعديل ملفك وشاهد إذا كان هو المطلوب او لا مجلد جديد (3).rar

سعيد جدا لأنه نال إستحسانكم كلام من جماله أعجز عن الرد بالرد الذي يمكن أن يعبر عن مدى سعادتي وامتناني به والشكر موصول للأخ @SAROOK مع تحياتي

Private Sub JOS_Click() Dim TaskDialog As cTaskDialog Set TaskDialog = New cTaskDialog With TaskDialog .Init .ParenthWnd = Me.hWnd .Flags = TDF_RTL_LAYOUT .MainInstruction = "طباعة تقرير" .Content = "هل تريد طباعة تقرير المخنبر" 'التعديل الأول إلغاء هذا السطر لأنك لست بحاجته '.CommonButtons = TDCBF_OK_BUTTON .IconMain = TD_SHIELD_OK_ICON .CommonButtons = TDCBF_YES_BUTTON Or TDCBF_NO_BUTTON .Title = "المعمل الطبى" .ShowDialog 'التعديل الثاني إلغاء هذا السطر لأنه كان لغرض توضيح الأمثلة فقط 'Me.lblButton.Caption = .ResultMain 'تعديل الكود كما يلي If .ResultMain = 6 Then 'القيمة المرتجعة من النقر على زر نعم هو الرقم 6 DoCmd.PrintOut DoCmd.close acReport, "External_lab_Mokh" ElseIf .ResultMain = 7 Then 'القيمة المرتجعة من النقر على زر لا هو الرقم 7 DoCmd.close acReport, "External_lab_Mokh" End If End With Set TaskDialog = Nothing End Sub إنسخ الكود بهذا الوضع وجربه

هذه طريقة إستخدام نفس المبدأ ولكن للحصول على ساعة تشبه الساعة الحائطية مع تحياتي AnalogClockWithoutTimer.rar

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

جرب هذا المثال SetFormBackColors_v1.2.rar

اعرض الملف إمنح تطبيقك المظهر الإحترافي بإستخدام مربع حوار المهام بديل لـ MsgBox {سلسلة الأدوات المساعدة المخصصة} أرفق لك إحدى الأدوات الرائعة التي يمكن أن تغنيك عن الكثير من النماذج وتجعل رسائل التنبيه تشبه رسائل ويندوز حاولت قد الإمكان تبسيط طريقة الإستخدام وتوضيحها في التعليقات أرجو أن تنال إعجابكم مع تحياتي صاحب الملف منتصر الانسي تمت الاضافه 07/05/25 الاقسام قسم الأكسيس  

اعرض الملف فتح أكثر من نسخة للنموذج تتفاعل مع النماذج الأخرى {سلسلة الأدوات المساعدة المخصصة} الأداة اليوم توضح طريقة فتح نسخ متعددة للنموذج وكيفية الإتصال مع النماذج الأخرى لإرسال وإستقبال القيم بينها بحيث تكون القيم الراجعة مختلفة بإختلاف النسخة التي تقوم بالإستدعاء مع تحياتي صاحب الملف منتصر الانسي تمت الاضافه 06/24/25 الاقسام قسم الأكسيس  

هل تم تحديث ويندوز أم تم تنصيب نسخة جديدة

كذلك يمكن عند طباعة أصل ونسختين إضافة كلمة صورة للنسختين