sm44ms

جربته وممتاز ولكن الخيار له مصدر بيانات في الجدول عندي ------ والذي سويته انت بدون مصدر للبيانات Select Case Nz(OP) Case 1 txtTest = "فعال" Case 2 txtTest = "مستقل" End Select الي اريده Case1 مصدر بياناته FAAL Case2 مصدر بياناته MOSTQEEL اذا يستوي الا جزاك الله خير واذا لم يستوي خلاص بكتفي بهذا وشكرا

بجربة ربي يحفظكم جميعا إنّي أسألك أن تكون عونًا لصديقي في غربته مؤنسًا له في وحشته وأن تُثبّته على طاعتك وتصرف عنه ما يشغله عن ذكرك وعبادتك.

طلب بسيط جزاكم الله خير حسب الرسمه

شكرا لكم جمعيا ما قصرتوا بارك الله فيكم الحين التقييم لكم كيف اختار الاجابة الافضل

الاخ الفاضل خليفة هذا الكود انت اعطيتني اياه وشغال 100%100 Private Sub Form_Timer() On Error Resume Next If [TT] = "استقالة" Then If [TT].ForeColor = vbYellow Then [TT].ForeColor = vbBlack [TT].BackColor = vbBlack Else [TT].ForeColor = vbYellow [TT].BackColor = vbBlack End If Else [TT].ForeColor = vbBlack [TT].BackColor = vbWhite End If End Sub عندي حقل بنفس النموذج ( اسمه فعال ) ابا اطبق الكود لانع مايستوي لانه عند عداد الوقت ولايستوي اكثر من كود الطريق ممكن جزاك الله خير شي مهم من وين تختار افضل الاجابه او تصنيف للموظف

عاجز عن الشكر بارك الله فيك صرح يقدم كل جديد ربي يوفقكم

لو ابا اغير اللون بدل الازرق الى اي لون اخر كيف

الف شكر الف شكر هذا هووووووووووووووووووووووووووووووووووووووووووووووووو بارك الله فيك

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

السلام عليكم لدي نموذج مصدره استعلام من جدولين في النموذج الرئيسي حقل اسمه حالة الموظف يعني مكتوب داخل الحقال ::::: استقالة ابي الحقل هذا يومض باللون الاحمر متحرك مثل الاشارة اذا كانت حالة الموظف _ استقالة _ وفي حالة انه فعال يتم الحقل عادي وجزاكم الله خيرا

جزاكم الله خير جميعا الكل فيكم ما قصر ربي يحفظكم

20 موظف تمشي بعد التجربة انا عندي 4000 موظف

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

Private Sub Form_Load() Z.Value = "" Call khaher_m2 End Sub Private Sub Form_Timer() Me.yy.Caption = MID(Me.yy.Caption, 2, (Len(Me.yy.Caption) - 1)) & left(Me.yy.Caption, 1) End Sub هذا الكود يظهر فقط السجل الاول فقط وانا ابا كل الموظفين

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

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

جزاك الله خير ظبط معي ومشكورين

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

اخي الفاضل Foksh جربت المرفق الذي ارفقته وكلهم ممتازة بس ماضبط معي وهذا الي ابغاه نفس فكرتكم

kkhalifa1960 اخي الفاضل المحترم جزلك الله خير الفكرة حلوووه وهاي الي ابيها ..... ولكن طبقتها على النظام عندي ما اشتغل النموذج الي عندي مصدر الجدول 11 والتقرير مصدر الجدول 11 مع العلم بان عندي النموذج والتقرير فقط ... حيث ان مربع الخيار في النموذج امام السجلات عندما احدد السجلات يفتح التقرير في اول سجل فقط Foksh اخي الفاضل المحترم نفس الموضوع جربت

الله يعزك المرفق حاولت كبير حجمة

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

القاعده حجمها كبير ارجو مساعدتي جزلك الله خيرا

عندي نموذج ادخال بيانات موظفين مقابل حقل المهنة فيه زر يفتح نموذج اخر في المهن اريد عند اختيار المهنة بعد البحث عنها تروح الى نموذج الادخال

SELECT DISTINCTROW CompanyName FROM Customers INNER JOIN Orders ON Customers.CustomerID = Orders.CustomerID ORDER BY CompanyName; ممكن شرح الكود هذا وكيف استخدامة مع المسميات وكيف يتم وضعة في الاستعلام وشكرا