أعزائي/
السلام عليكم ورحمة الله وبركاته
وجدت هذا الكود في احد المواقع الأجنبية فأحببت أن أفيدكم به وأرجو المعذرة إذا كان الموضوع مكرر في هذا المنتدى.
الكود المدرج أدناه وظيفته إظهار بيانات حقل محدد سلفاً على عنوان النموذج العلوي المسمى caption بالإضافة إلى عرض عبارة "إضافة سجل جديد" في حالة جديد.
Private Sub Form_Current()
If Me.NewRecord = True Then
Me.Caption = "Adding New Record...."
Else
' If the field that is being displayed in the caption is numeric and needs to be concatenated with a text string, then use an IsNull check.
Me.Caption = IIf(IsNull(Me!FieldName), " ", "Data for " & Me!FieldName)
' If however, it is 2 text strings that are being concatenated, then you can use Nz.
Me.Caption = Nz("Data for " & Me!FieldName, " ")
End If
End Subكل ما عليك هو أن تضع الكود في حدث الحالي للنموذج مع مراعاة إستبدال كلمة FieldName باسم الحقل الذي ترغب بإظهار بياناته.
أرجو لكم الفائده.
والله الموفق. (f)
