ناقل

وعليكم السلام لحساب عدد الشيك استخدم هذا الكود =Sum(IIf([غياب]=-1;1;0)) وغياب هو اسم الحقل عندك لحذف السجلات المختارة استخدم هذا الكود CurrentDb.Execute "DELETE * FROM L WHERE [غياب] = true" Me.Requery حيث L هو اسم الجدول لديك

ممكن كدا .... R_MultiHead.accdb R_MultiHead.accdb

عيدك مبارك يعني المطلوب اخفاء ت1 مثلا واظهار ت2 وهكذا .... وضح لو تكرمت

اضف تلك البنود في رأس التقرير وليس رأس الصفحة

"DoCmd.OpenReport "report name

استبدلها بهذا If Vn1 = 0 Then Me.K1.Visible = False End If كودك بعد التعديل .... On Error Resume Next If Vn1 = 0 Then Me.K1.Visible = False End If If Vn2 = 0 Then Me.K2.Visible = False End If If Vn3 = 0 Then Me.K3.Visible = False End If If Vn4 = 0 Then Me.K4.Visible = False End If If Vn5 = 0 Then Me.K5.Visible = False End If

لم تظهر الرسالة عندي انظر ..... متى تظهر الرسالة

طريقة اخرى مع طرق المبدع @jjafferr ممكن تضع مصدر مربع النص هذا الكود .... على افتراض ان مربع النص الذي يظهر فيه عبارة الخميس والجمعة هو a =IIf([a]="الخميس" Or [a]="الجمعة";"عطلة رسمية")

وعليكم السلام تفضل .... New Microsoft Access قاعدة بيانات (3).accdb

جرب هذا ...... If Mid(Me.text1, 1, 1) = 7 And InStr(Me.text2, 7) > 0 Then MsgBox "الرقم الأول" ElseIf Mid(Me.text1, 2, 1) = 7 And InStr(Me.text2, 7) > 0 Then MsgBox "الرقم الثاني" ElseIf Mid(Me.text1, 3, 1) = 7 And InStr(Me.text2, 7) > 0 Then MsgBox "الرقم الثالث" End If

بالعكس العلامة كاملة

بارك الله فيك سيد جعفر وغفر ذنبك وجعل الجنة مثواك ....... وجميع المسلمين ..... اشكرك .... تم الفهم

If i = 7 And Len(rst("F1") & "") <> 0 Then sSubject = rst("F1") s_ID = rst!ID + (RC - 7) 'get the Auto_ID "ID" number for Record#8, then add to it "Total Records" - 8 s_Teach_Name = DLookup("[F5]", "Temp3", "[ID]=" & s_ID) s_Teach_Name = Replace(s_Teach_Name, "اسم المعلم ", "") ElseIf i = 8 And Len(rst("F1") & "") <> 0 Then sSubject = rst("F1") s_ID = rst!ID + (RC - 8) 'get the Auto_ID "ID" number for Record#8, then add to it "Total Records" - 8 s_Teach_Name = DLookup("[F5]", "Temp3", "[ID]=" & s_ID) s_Teach_Name = Replace(s_Teach_Name, "اسم المعلم ", "") ElseIf i = 11 And Len(rst("F1") & "") <> 0 Then sClass = rst("F1") ElseIf i = 12 And Len(rst("F1") & "") <> 0 Then sClass = rst("F1") End If السؤال : مطلوب شرح مبسط للكود الاستفسار : لماذا لم نستخدم في استيراد اسم المعلم بنفس طريق استيراد اسم المادة والشعبة في الكود ؟؟؟؟؟؟؟؟؟ أصل الموضوع هنا ...............

ارفق مثال مبسط ... ليتمكن الخبراء التعديل عليه

تعلمنا منكم كريم الخلق ... في تعاملكم وتواضعكم الجم

أولا أشكرك استاذي الغالي @jjafferr بارك الله فيك على سرعة الاستجابة ...... رحم الله والديك

ممكن استاذي مثال بسيط لما ذكرت ... اكون لك من الشاكرين

استاذي الغالي .... اتضحت الفكرة شرح وافي اخي الكريم شكرا لك وبارك في عمرك

اشكرك استاذي الغالي جاري القراءة ومحاولة الفهم بارك الله فيك

الاخوة الأعضاء ... السلام عليكم ورحمة الله وبركاته ..... هل أجد معلومات وافيه حول عبارة Bookmark ..... ماذا تعني .... استخداماتها ..... كيف استخدمها في العبارات البرمجية ..... شكرا لكم سلفا ,,,, بارك الله فيكم

الاخوة الأعضاء ... السلام عليكم ورحمة الله وبركاته ..... هل أجد معلومات وافيه حول عبارة EOF ..... ماذا تعني .... استخداماتها ..... كيف استخدمها في العبارات البرمجية ..... شكرا لكم سلفا ,,,, بارك الله فيكم

اشكرك أخي @kanory نعم هو المطلوب ....

لم تنجح الطريقة ؟؟؟؟؟

السلام عليكم ورحمة الله أخواني .... لدي حقل رقم في جدول اريد اضافة عبارة جديد للحقل ( حقل الرقم ) للسجل الجديد ... هل ممكن ؟؟؟؟