برجاء أظهار تاريخ اليوم الحالي تلقائيا في الفورم

[حاتم عماد]

الأخوة الأعزاء أرجو أن يظهر التاريخ الحالي تلقائيا في المربع الخاص به في الفورم مع تعديل صيغته من شهر يوم سنة إلي يوم شهر سنة

الملف مرفق

9.rar

[عبدالله المجرب]

اخي حاتم محمد عماد الدين

اهلاً وسهلاً بك بين إخوانك

تفضل المرفق بعد التعديل عليه

ابواحمد

9.rar

تم تعديل سبتمبر 10, 2011 بواسطه عبدالله المجرب

[حاتم عماد]

الأخ الفاضل / أبو أحمد

جزيت خيرا وكفيت شرا وبوركت عمرا وعليت قدرا

ولو أني أثقل عليك هناك طلب صغير

عندما اضغط قيد جديد يختفي التاريخ

فهل من علاج

[عبدالله المجرب]

اخي حاتم

استبدل الكود التالي

Private Sub CommandButton2_Click()

KH_A

End Sub

بالكود التالي

Private Sub CommandButton2_Click()

KH_A

TextBox2.Value = Application.WorksheetFunction.Text(Now(), "yyyy/mm/dd")

End Sub

وكذلك قم بتعديل هذا الكود (زر التعديل)

Private Sub CommandButton1_Click()

Dim R As Integer, N As Integer, Endrow As Integer

For R = 0 To 10

    If Me.Controls(myCon(R)).Text = "" Then N = N + 1

Next

Me.MousePointer = 11

With Sheets("info")

    Endrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1

    For R = 0 To 10

	    .Cells(Endrow, R + 1).Value = Me.Controls(myCon(R)).Value

    Next R

End With

KH_A

ActiveWorkbook.Save

Me.MousePointer = 0

MsgBox "تمت الأضافة بنجاح"

1 End Sub

ليصبح

Private Sub CommandButton1_Click()

Dim R As Integer, N As Integer, Endrow As Integer

For R = 0 To 10

    If Me.Controls(myCon(R)).Text = "" Then N = N + 1

Next

Me.MousePointer = 11

With Sheets("info")

    Endrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1

    For R = 0 To 10

	    .Cells(Endrow, R + 1).Value = Me.Controls(myCon(R)).Value

    Next R

End With

KH_A

ActiveWorkbook.Save

Me.MousePointer = 0

MsgBox "تمت الأضافة بنجاح"

TextBox2.Value = Application.WorksheetFunction.Text(Now(), "yyyy/mm/dd")

1 End Sub

والله اعلم

ابواحمد

[ياسر الحافظ]

الاخ / الاستاذ ابو احمد " عبد الله المجرب "

جزاك الله كل الخير

وفقك الله

ابو الحارث

[حاتم عماد]

الاخ / الاستاذ ابو احمد " عبد الله المجرب "

جزيت خيراً وكفيت شراً وبوركت عمراً وعليت قدراً وأنرت قبراً وحوسبت يسراً وأدخلت الجنة بإذن الله

يعجز لساني أن يزيد وإنك لأهل للمزيد

[عبدالله المجرب]

العفو منك اخي حاتم

فلم اقم الا باقل من واجبي

ارحب بك مرة اخرى بين اخوانك

ابواحمد