اتمام فورم الادخال

[حليم ناصر]

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

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

ولي في هذا الفورم طلبين ارجو ان تساعدوني فيهما

الاول يخص التاريخ فكل مرة اجد نفسي اكتب تاريخ اليوم في TextBox1 وانا اريد ان يكون TextBox1 يتتبع تاريخ اليوم اي كل ما افتح الفورم اجد تاريخ اليوم مسجل في TextBox1

الثاني اني لما يكون في الفورم المعلومات التاريخ والنوع السلعة والكمية وعند الضغط على زر الاضافة اريد المعلومات تسجل في الورقة الاولى وهذه عملتها , لكن اريد من هذا الفورم بالاضافة الى ما سجله في الورقة الاولى ان يسجل نوع فقط في الورقة الثانية وفي الخلية مثلا C5 وهذا لغرض اخر اي كل ما اسجل معلومات في الفورم يسجل النوع السلعة في C5 في الورقة الثانية حتى ولو كانت مسجلة قبلها نوع اخر

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

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

[الـعيدروس]

السلام عليكم

هذا السطر الصقة في حدث الفورم UserForm_Activate

Me.TextBox1.Value = Format(Now(), "yyyy/mm/dd")

اما الطلب الاخر لو ترفق ملف يكون افضل

[حليم ناصر]

اولا اشكرك على الرد واني الان اجربه

اما المرفق فقد حاولت حمله امس ولم استطع لكن اليوم حملته

ومرة اخرى اشرك اخي وكل الاعضاء على التعاون

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

إضافة بيانات جديدة.rar

[أبو حنــــين]

يمكنك عمل التالي

Private Sub CommandButton1_Click()

Dim Response

If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Then

MsgBox "íÌÈ ÊÚÈÆÉ ßÇÝÉ ÇáÍÞæá", vbExclamation, "ÍÞæá ÛíÑ ããÊáÆÉ"

Else

Response = MsgBox(":áÞÏ ÞãÊ ÈÅÏÎÇá ÇáÈíÇäÇÊ ÇáÊÇáíÉ" & vbNewLine & "" & vbNewLine & "ÇáÅÓã:  " & TextBox1 _

& vbNewLine & "" & vbNewLine & "ÇáÚãÑ:  " & TextBox2 & vbNewLine & "" & vbNewLine & "ÇáãÓãì ÇáæÙíÝí:  " & TextBox3 & vbNewLine & "" _

& vbNewLine & "Ýåá ÊæÏ ÇáÅÓÊãÑÇÑ¿", vbYesNo + vbQuestion, "ÊÃßíÏ ÇáÅÏÎÇá")

If Response = vbYes Then

With Columns(1).Rows(65536).End(xlUp)

		    .Offset(1, 0) = TextBox1

		    .Offset(1, 1) = TextBox2

		    .Offset(1, 2) = TextBox3

	  End With

	  Me.Hide

	  MsgBox "ÊãÊ ÅÖÇÝÉ ÌãíÚ ÇáÈíÇäÇÊ ÈäÌÇÍ", vbInformation, "ÊãÊ ÇáÅÖÇÝÉ"

	  End If

		    End If

'***************************************

Sheet2.Range("C5") = TextBox2.Text

'***************************************

End Sub

Private Sub UserForm_Initialize()

TextBox1.Value = Format(Now(), "yyyy/mm/dd")

End Sub

[حليم ناصر]

سلام عليكم

اخي ابو حنين الف شكر على الرد وجزاك الله خيرا

[أبو حنــــين]

العفو اخي