السلام عليكم ورحمة الله تعالى وبركاته
اساتذتى الكرام
فى المرفق الاتى استخدم هذا الكود
Me.txtxname.ControlSource = "=IIf([xname] Is Null, Null, " & "Replace([xname], """ & FindAsType & """, """ & strTagStart & FindAsType & strTagEnd & """))"
حيث أن txtxname هو مربع نص غير منضم
ومصدر بيانات هذا المربع هو الحقل xname
اريد عمل هذا الكود فى روتين عام حتى يتم استخدامه لاى عنصر اخر مع تبديل المتغير الذى يدل عليه
انا حاولت ان اكتب الرو
وهذه تجربتي
Public Function StrHighLight(ByVal strFieldName As String, ByVal FindAsType) As String
Dim myStr As String
myStr = "=IIf([xname] Is Null, '', " & "Replace([" & strFieldName & "], '" & FindAsType & "', '" & strTagStart & FindAsType & strTagEnd & "'))"
'Debug.Print myStr
StrHighLight = myStr
End Function
ونناديها
Me.txtxname.ControlSource = StrHighLight("xname", FindAsType)
جعفر
وتعديل نهائي
Publ