طريقة خروج تنبيه في وقت محدد

استخدم التايمر في النموذج

يعني في خصايص النموذج الفاصل الزمين لعدد الوقت 1000 يعني كل ثانيه

في حدث عند عداد الوقت اكبت

Private Sub Form_Timer()

Dim theTime As Date

theTime = الموعد

' يستخرج الموعد إما من نموذج مفتوح أو من الجدول مباشرة

If Time() = theTime Then

MsgBox "حان الوقت", , ""

DoCmd.OpenForm "النموذج"

End Sub

اقتباس

عندي مشروع بنيان ودي انزله بالمنتدي بس مو عارف اشلون ليستفيد منه الجميع المشروع مفتوح ممكن تغيير اي شي فيه بس مو عارف اشلون انزله بالمنتدي ولكم جزيل الشكر

أخي الكريم/ rich12

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

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

الخيار الأخير يمكنك إرساله على بريدي assq@gawab.com وسوف أتولى أمره لكي يستفيد منه الجميع في المنتدى ان شاء الله.

ولك خالص تحياتي. (f)

السلام عليكم ورحمة الله وبركاته

اقتباس

الف شكر وتمنياتي لكم بالتوفيق إن شاء الله

اخي الكريم

اولا مرحبا بك في منتداك ونرجو لك طيب الاقامة والفائدة في آن واحد

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

فمعنى عبارتك خطير جدا ( إن شاء الله = خلق الله او ايجاد الله ) .

يعطيكم الف عافيه ولكم الكثير من التقدير

اما بالنسبه الي الملاحضه فأنا اشكرك ولك مني جزيل الشكر (وإن شاء الله)

ما اغلط فيها مره ثانيه

وشكرا

يعطيك العافيه ادري يمكن اثقل عليك (osama457) بس اذا ممكن مثال علي السريع بسرااحه حاولت بس ما عرفت يعني اتعرف مبتدأ بالأكواد

اذا في مجال ولكم جزيل الشكر

ان شاء الله هذا اللي تبي

sss.zip

مشكوووووووووور وماتقصر ويعطيك الف عافيه

هو مو نفس الي انا ابيه ولكن يفي بالغرض ولك جزيل الشكر علي متابعة موضوعي والله يكثر من امثالك

شكـــــــــــرا