خطاء فى كود كتابة التاريخ والوقت على اليوزرفورم

[انسان27]

اريد ان اضح الوقت والتاريخ فى الفورم اول ما يظهر الفورم يظهر عليه الوقت والتاريخ

انا استخدم الكود التالي 

Private Sub UserForm_Initialize()

With Me

On Error Resume Next

 

LbDate.Caption = Now()

("Me.Caption = " Sales invoice Date:-  " & Format(Now(), "dd/ mm/ yyyy, hh:mm:ss ampm

End With

 

End Sub

وتظهر رسالة خطاء عند تنفيذ الكود والخطاء فى كلمة format  ولا اعلم لماذا 

كذلك تظهر رسالة خطاء اذا كتبت كود لعمل فورمات للارقام داخل التيكيت بوكس ويقف الخطاء عند كلمة format

مع العلم اننى اخذت نسخة من الكود كما هوا فى ملف جديد وفورم للتجربة واشتغل تمام فما سبب عدم تنفيذ الكود فى الملف الذى اعمل عليه .

[وليد فتحي]

السلام عليكم ورحمة الله وبركاته

الاخ الفاضل انسان27

الكود بالملف المرفق

تقبل مروري

المصنف1.rar

[انسان27]

شكرا جزيلا اخى واستاذى الكريم على الرد 

ولكن الكود لا يزال لا يعمل عندى ارفع لحضراتكم الملف فقد يكون هناك خطاء لا استطيع التوصل له 

مرفق لحضراتكم ملف لبرنامج المخازن محاولة منى لادرب نفسي واستفيد من  ما تقدمونه لنا من معلومات

اريد ان اكتب كود الوقت والتاريخ على userfrom 1 بهذا الكود 

Private Sub UserForm_Initialize

With Me

On Error Resume Next

 

LbDate.Caption = Now

("Me.Caption = " Sales invoice Date:-  " & Format(Now(), "dd/ mm/ yyyy, hh:mm:ss ampm

End With

 

End Sub

 

محاولة تنفيذ برنامج المخازن 0.04.rar

[حمادة عمر]

الاخ الكريم /  انسان27

انسخ الكود بالشكل التالي ...

وشاهد المرفق هل هذا ما تقصده

 

ساعة الفورم.rar

Private Sub UserForm_Initialize()
With Me
On Error Resume Next
LbDate.Caption = Now
Me.Caption = " Sales invoice Date:-  " & Format(Now(), "dd/ mm/ yyyy, hh:mm:ss ampm")
End With
End Sub