ناقل

استبدلها بهذا 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 نعم هو المطلوب ....

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

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

بارك الله فيك أخي المهاجر .... وجاري التجربة ..... ولكن أن نضع هذه الشيفرة .... ممكن مثال بسيط ( جديد على عالم الاكسس )

بارك الله فيك ... اخي الكريم

اشكرك على التشجيع .... ولكن كيف يتم ذلك ...

السلام عليكم ورحمة الله أخواني : هل يمكن تحديد اكثر من مفتاح لحقول الجدول الواحد .... ؟؟؟

ابشرك أخي الكريم kanory وجدت على اليوتيوب بعض الدروس ....