وضع / في حالة ما إذا كان المربع النص فارغا

[طاهر اوفيسنا]

السلام عليكم إخواني

لديا تقرير وأريد ان أضع على مربع النص "تأشيرة المراقب المالي " /  إذا كان فارغا وإذا كان العكس يوضع ماكتب به

وفقا للصورة أدناه

 

 

[رمهان]

ممكن المرفق؟

[طاهر اوفيسنا]

هاهو المرفق اخي رمهان

أمل أن اجد تعديلا عليه

 

raport.rar

[طاهر اوفيسنا]

هل من مساعدة ؟

[رمهان]

اخي كريمو2

ايه السؤال ده ياراجل !

تفضل واليك الخطوات :

1. اذهب الى الاستعلام المصدر واكتب التعبير التالي وطبعا سيحل محل العمود المعني :

Expr1: nz([تأشيرة المراقب المالي];"/")

2. اذهب للتقرير وللمربع المعني وعدل الاسم ومصدر البيانات الى  Expr1  وطبعا حذفت قناع الادخال او تركته لايهم هنا لاننا سنعرفه من خلال الكود التالي

3.اكتب الكود التالي في حدث عند التنسيق لتفصيل التقرير

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
If Me.Expr1 <> "/" Then
Me.Expr1.InputMask = "CCCC بتاريخ CCCC/CC/CC"
Else
Me.Expr1.InputMask = ""
End If
End Sub

بالتوفيق

[طاهر اوفيسنا]

وهو كذالك اخي رمهان

بارك الله فيك