منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

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



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


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

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

السلام عليكم

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

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

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

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

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

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

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

هذا هو الكود


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


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

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

(04-11-15, 10:02 AM)Ahmed_Mansoor كتب : [ -> ]أهلا أخي الكريم , التعديل في المرفقات .

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

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

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