ابوشفيق

نعم أخي هذا سطر اضافي متواجد قبل تعديل على الكود يمكن مسحه او يمكن اسيتخدامه كمتغير مثل: Dim RetColor As Long RetColer = DLookup("[p1]", "tabw", "[m1]=" & [m1]) If RetColer > 0 Then m1.ForeColor = vbRed m1.FontUnderline = True m1.FontItalic = True ElseIf Me.m1…

تفضل أخي تطبيق4-M.zip

وعليكم السلام ورحمة الله وبركاته وانت بالخير و الصحة والسلامة اليك التعديل اعتماد على الحقل p1 اكثر من صفر سواء كان الحقل موجود او غير موجود تطبيق3-M.zip

بعد اذن الأخ اكرم المطوب في المرفقات تطبيق3-M.zip

توجد ملفين في المرفقات الاول على طريقتك بعد اصلاح او مثلما ارسلت لك سابقاً و الثان بدون ارتباطات ماعدا جدول انشطة و بدون استعلامات، جدول عادي يحتوي على اسم الطالب،رفم صف ،رقم فصل، نشاط 1 ، نشاط2 و هذا يعتبر أسهل طريقة. AAA1.zip

كما قلت لك تماماً ابراهيم اختار نشاط واحد"رياضي" ، انظر الى تقرير كلا الحقلين رياضي مثال في المرفقات TwoColumns تطبيق الحل.zip

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

أخي العزيز على رغم عدم امكانيتي تقديم شرح مفصل كما تقدمها الأخت زهرة بالغة العربية، ولكن اكتب لك هذا و التوفيق من الله تم حذف مفتاح اساسي من الجدول TblNameAct تم انشاء استعلام تجميعي يحتوي على جميع حقول في جدولين و يحتوي على حقل Actid ثلاثة مرات اسفل حقل الاول…

السلام عليكم ورحمة الله وبركاته بعد اذن اخت ام عهود، اليك المثال حسب ما فهمت من السوال H_TwoColumns.rar

http://forum.accesswordkingdome.com/showthread.php?p=61727#post61727

وعليكم والسلام في مربع kk اكتب دالة =[aa1] Mod 8

وعليكم والسلام ورحمة الله و بركاته جرب كود التالي MsgBox DCount("*", "Beda")

السلام عليكم و رحمة الله و بركاته و هذا طريقة اخرى عند ادخال اي حروف من اسم المدرسة مع او بدون كلمة "مدرسة" سيسرد مدارس ما يشمل اسمها الحروف المدخلة فقط مثلاً للبحث عن مدرسة حسان للبنين, اكتب حسان فقط. القائمة المنسدلة.zip

السلام عليكم للفائدة : هناك طريقة اخرى وسهلة جداً بلا كود ولا دالة ولا استعلام وهو كتابة 8 اصفار او حسب الرغبة في تنسيق حقل في الجدول مجرد بكتابة رقم يتم تكميله تلقائيا باصفار و الكم المثال في المرفقات SetNewIDNo.zip

السلام عليكم تفضل اخي اليك المطلوب H_R-DataPassport-Err-LAST.zip

السلام عليكم لانه حقل رقم جواز في النموذج فارغ(لايوجد رقم الجواز) غير سطر الااول للكود في الحالي (Current)الى: If Date = DateAdd("d", -2, [Passport_ Expiry_Date]) Then بالتوفيق،،،،

تفضل اخي تم تعديل على المثال حسب مشاركتك الاولى عدم تكرار.zip

تفضل اخي ،على رغم عدم وجود علاقة بين جداول في مثال مرفوع عدلت لك المثال بالطريقة اخرى الوارد والصادر3.zip

اخ محمد اليك المثال إن شاء الله يكون حسب المطلوب Hajj_Mabror.zip

اخي العزيز اليك كل بيانات سجل في رسالة قبل الحذف بالتوفيق،،،، الوارد والصادر2.zip