sm44ms

اشكركم جميعا ماقصرتوا يعطيكم الف عافية - ممتاز جدا

الفكره حلوه وممتازة واشكرك عليها - ولكن طلبي ياصديقي هو عند فتح النموذج الرئيسي يفتح مع بعض ويكون النموذج الصغير في الامام مثال اذا ضغطت على FINISHED CAED TEMPLATE لقتحة يفتح مع بعض FINISHED CAED ويكون FINISHED CAED في الامام نفس فكرتك

الملف كبير حاولت ولم اقدر ارفعه

اي من النماذج الذي اسوي له هذه الخاصية مع اني جربتها كله وخاصه في النموذج الصغير وقام البرنامج يلق ولايفتح ولايتسكر الا باغلاق القاعده كلها

اولا شكرا الف شكر هو كان سوال فقط عادي وقمت باتباع ماقلت انه وظبط الموضوع شكرا جزيلات

فيه شي طريقة لتغيير واجهة موقع اوفسينا الى العربية

السلام عليكم يا اصدقائي الاعزاء عندي نموذجين كالتالي FINISHED CAED TEMPLATE نموذج رئيسي افتحتة للعرض FINISHED CAED نموذج صغير يفتح فقط عند فتح الرئيسي ولكن صادفتني مشكلة انه يفتح النموذج الصغير في الخلف وليس في الامام انا اريدة عند فتح النموذج الرئيسي يفتح النموذج الصغير في الامام سويت كود له ولكن لم يفتح - مرفق لكم الكود الكود معمول عند الفتح الفتح للنموذج الرئيسي Private Sub Form_Open(Cancel As Integer) Dim db As DAO.Database Dim rst As DAO.Recordset Dim expiredCount As Long Dim activeCount As Long Set db = CurrentDb ' عد البطاقات المنتهية Set rst = db.OpenRecordset("SELECT COUNT(*) AS ExpiredCount FROM Table11 WHERE Expiry_Date < Date()") expiredCount = rst!expiredCount rst.Close ' عد البطاقات النشطة Set rst = db.OpenRecordset("SELECT COUNT(*) AS ActiveCount FROM Table11 WHERE Expiry_Date >= Date()") activeCount = rst!activeCount rst.Close Set rst = Nothing Set db = Nothing ' افتح النموذج المصغر الصغير DoCmd.OpenForm "FINISHED CAED", acNormal ' مرر البيانات إلى الحقول في النموذج المصغر FORMS("FINISHED CAED").Controls("EXP").Value = expiredCount FORMS("FINISHED CAED").Controls("FAL").Value = activeCount ' تشغيل المؤقت المؤقت لتقديم النموذج المصغر للأمام بعد الفتح Me.TimerInterval = 100 ' 100 مللي ثانية ' يمكنك تعليق رسالة MsgBox لأنك تعرض البيانات في النموذج الصغير ' MsgBox "لديك " & expiredCount & " من البطاقات المنتهية." & vbCrLf & _ ' "ولديك " & activeCount & " من البطاقات النشطة في النظام والان يتم عرض المنتهية فقط.", vbInformation, "حالة البطاقات" End Sub

مبارك عليكم الشهر الكريم اذا اردت عرض التاريخ الهجري في النموذج او التقرير ماهي الداله لذلك

الهدف منها طباعة بطاقة موظف للعمل فقط ولكن اذا لم يوجد - شو نسوي الحمد لله على كل حال اشكركم جميعا على تفاعلكم معنا وتعاونكم وهذا دليل على ابتكار الجديد والبحث عنها

اشكركم جميعا؟ Foksh الاخ جربت على التقرير عندي ولم يعمل سوف اجرب وارد لكم اليوم kkhalifa1960 الاخ يعني انسخ المربع فيوق الصوره

حاولت اكثر من مره اسويها في الباوربوينت ولم تظبط معي اذا سمحت تسوي لي نموذج من عندك جزاك الله خير هذا الي اريد

لا الصوره الاخير الذي تحت اريدها خفيفه جدا على شكل خلفيه

السلام عليكم لدي بطاقة موظف فيها الصوره الشخصية واريد ان اضيف نفس الصوره بس اريها معتمة وخفيفه

اشكرك

اشتغل ؟ ولكن فيه خطاء في التوقيت العالمي مثال - انا في ابوظبي والفرق بينها ومكة ساعه نفس الشي في عدن وبعض المدن والفرق كبير Private Sub Form_Timer() ' زيادة العداد x = x + 1 ' تحديث الوقت الحالي في Text1 Me.Text1 = Time ' تغيير المنطقة الزمنية كل 5 ثواني If x = 5 Then x = 0 currentTimeZone = currentTimeZone + 1 ' إعادة تعيين المنطقة الزمنية إذا تجاوزت الحد الأقصى If currentTimeZone > 10 Then currentTimeZone = 0 ' الحصول على الوقت حسب المنطقة الزمنية الحالية Select Case currentTimeZone Case 0 ' أبوظبي (UTC+4) Me.Text2 = Format(dateadd("h", 4, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " أبوظبي" Case 1 ' مكة المكرمة (UTC+3) Me.Text2 = Format(dateadd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " مكة المكرمة" Case 2 ' توقيت غرينتش (UTC+0) Me.Text2 = Format(TimeSerial(Hour(Time), Minute(Time), Second(Time)), "hh:nn:ss AM/PM") & " غرينتش" Case 3 ' موسكو (UTC+3) Me.Text2 = Format(dateadd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " موسكو" Case 4 ' نيويورك (UTC-5) Me.Text2 = Format(dateadd("h", -5, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " نيويورك" Case 5 ' طوكيو (UTC+9) Me.Text2 = Format(dateadd("h", 9, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " طوكيو" Case 6 ' عدن (UTC+3) Me.Text2 = Format(dateadd("h", 3, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " عدن" Case 7 ' القاهرة (UTC+2) Me.Text2 = Format(dateadd("h", 2, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " القاهرة" Case 8 ' بكين (UTC+8) Me.Text2 = Format(dateadd("h", 8, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " بكين" Case 9 ' باريس (UTC+1) Me.Text2 = Format(dateadd("h", 1, TimeSerial(Hour(Time), Minute(Time), Second(Time))), "hh:nn:ss AM/PM") & " باريس" Case 10 ' لندن (UTC+0) Me.Text2 = Format(TimeSerial(Hour(Time), Minute(Time), Second(Time)), "hh:nn:ss AM/PM") & " لندن" End Select End If End Sub