[hamada salah90]

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

اريد اضافة زبائن اليوم برقم كود عبارة عن

"صيغة تاريخ اليوم" + "رقم يبدأ منه البرنامج يوميا"

للتوضيح مثلا:

الزبون 1      الكود الخاص به          20151102001
الزبون 2      الكود الخاص به          20151102002

وفي اليوم التالي

الزبون 1      الكود الخاص به          20151103001
الزبون 2      الكود الخاص به          20151103002



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


هل الشرح مفهوم

[محمد العبيدي]

ياريت لو ترفع الصفحة او شي مبسط من مشروعك حته نقدر نعرف طريقة ربط قاعدة البيانات واسماء الاعمدة وانواعها

[abulayth]

السلام عليكم

ان شاء الله طلبك في  المرفقات

يعطيك العافية

[hamada salah90]

اخي العزيز أبو الليث

 المشروع الذي ارسلته لي هو المطلوب ولكن

 لا اريد ان احدد رقم العمل يمويا ولكن اريده يبدأ كل يوم تلقائيا 

بعمل هذا الشيء أوتوماتيكيا

[administrator]

ارفق مثال بقاعدة بيانات لكي يتم التعديل

[hamada salah90]

هذا هو الكود


ومرفق مثال للتعديل


Dim dbADODB As New ADODB.Connection
Dim rsEMPL As New ADODB.Recordset





Private Sub Command1_Click()
If rsEMPL.EOF Then
Dim t
t = Format$(Date, "YYYYMMDD")
txtCode.Text = t + "1"
Exit Sub
Else
txtCode.Text = rsEMPL("code") + 1
Exit Sub
End If

End Sub

Private Sub Form_Load()
If dbADODB.State = adStateOpen Then dbADODB.Close
dbADODB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\GG.mdb" & ";"
rsEMPL.Open "select * from EMPL ", dbADODB, adOpenKeyset, adLockOptimistic

End Sub

[Ahmed_Mansoor]

أهلا أخي الكريم , التعديل في المرفقات .

[hamada salah90]

أهلا أخي الكريم , التعديل في المرفقات .

سلم الله يداك يا اخي

[أبو عمر]

سلَّم اللهُ يديك

[hamada salah90]

اسف لهذا الخطأ