ناقل

هل يمكن تعيين الطابعة الافرتراضية مباشرة من النموذج دون فتح لوحة التحكم؟؟؟؟؟

🌷

أخي بلال تم الاستيراد والتصدير كما هو في الصور ..... وضح ماذا تريد بالضبط مع الشرح

ممكن مثال للقاعدة وملف الاكسل

بعد اذنك استاذي ابا تراب هل هذا ماتريد صلاحيات المستخدم.rar

النجاح والاكمال

انظر هذا بعد التعديل ؟؟؟؟؟

أنظر الصور هل هذا هو المطلوب قارنها بالنتيجة لديك ..... هل اخراج النتيجة صحيحة ؟؟؟؟؟؟؟؟

Warning = MsgBox("أنت الآن على وشك حذف السجل الحالي فهل أنت واثق من رغبتك في الحذف", vbYesNo + vbQuestion, "تحذير") If Warning = vbYes Then DoCmd.SetWarnings (False) ضع الكود السابق هنا DoCmd.SetWarnings (True) Else DoCmd.CancelEvent End If

اين الاجابة اخي الكريم ؟؟؟؟؟

وعليكم السلام لحساب عدد الشيك استخدم هذا الكود =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 السؤال : مطلوب شرح مبسط للكود الاستفسار : لماذا لم نستخدم في استيراد اسم المعلم بنفس طريق استيراد اسم المادة والشعبة في الكود ؟؟؟؟؟؟؟؟؟ أصل الموضوع هنا ...............

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