كيف اقوم بإدراج (اضافة) بيانات الى حقل

ضع هذا الكود فى حدث عند الضغط للزر

If Len(Me.Text4 & "") > 0 Then
Me.remark1 = IIf(Len(Me.remark1 & "") = 0, "", Me.remark1 & vbCrLf & "**************" & vbCrLf) & " (" & Me.Text4 & ") " & Now
End If

شكر لك لمشاركتك بهذا السؤال

هاك التعديل على ملفك وان شاء الله يعجبك

بالتوفيق

remark.rar

الاساتذة الافاضل Abo_Yossof و كريم الجبوري

شكراً جزيلاً لكم

بالفعل هذا ما طلبته بالظبط وكلا الجوابات كانا رائعين، وقد قمت بالتعديل قليلاً على احدهم

الأن اريد تعديلا بسيطا على الملف المرفق بحيث ان لا يقبل اضافة ملاحظة اذا كان الحقل فارغا مع اظهار رسالة تنبيه

مع جزيل الشكر

remark.rar

الكود الاول لا يضيف اذا كان الحقل فارغ

و اذا اردت الرسالة اسخدم الكود

If Len(Me.Text4 & "") > 0 Then
Me.remark1 = IIf(Len(Me.remark1 & "") = 0, "", Me.remark1 & vbCrLf & "**************" & vbCrLf) & " (" & Me.Text4 & ") " & Now
else
msgbox "mmmmmmmmmm"
End If

شكراً جزيلاً أبو يوسف

هذا ما طلبته

تحياااتي وبالتوفيق