تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طلب : كيفية عمل نص يحتوي تاريخ اليوم
#1
السلام عليكم ورحمة الله وبركاته
لدي مشروع لمحل

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

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

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

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

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

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

Smile

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


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

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}}
تم الشكر بواسطة:
#2
ياريت لو ترفع الصفحة او شي مبسط من مشروعك حته نقدر نعرف طريقة ربط قاعدة البيانات واسماء الاعمدة وانواعها
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#3
السلام عليكم

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

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


الملفات المرفقة
.rar   cus.rar (الحجم : 1.2 ك ب / التحميلات : 21)
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة: الشاكي لله , hamada salah90 , Ahmed_Mansoor , Ahmed_Mansoor
#4
اخي العزيز أبو الليث

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

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

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

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}}
تم الشكر بواسطة:
#5
ارفق مثال بقاعدة بيانات لكي يتم التعديل
الرد }}}}
تم الشكر بواسطة: hamada salah90 , Ahmed_Mansoor , Ahmed_Mansoor
#6
هذا هو الكود


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


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


الملفات المرفقة
.zip   DBL_NAME_mdb_4_11.zip (الحجم : 6.97 ك ب / التحميلات : 8)
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}}
تم الشكر بواسطة:
#7
أهلا أخي الكريم , التعديل في المرفقات .


الملفات المرفقة
.rar   DBL_NAME_mdb_1.rar (الحجم : 9.14 ك ب / التحميلات : 24)
الرد }}}}
تم الشكر بواسطة: Microformt , hamada salah90
#8
(04-11-15, 10:02 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , التعديل في المرفقات .

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

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor
#9
سلَّم اللهُ يديك
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , hamada salah90
#10
اسف لهذا الخطأ
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] استفسار كيفية الدمج بين اكثر من جدول NOOOR 2 78 26-11-16, 01:17 AM
آخر رد: NOOOR
  كيفية اضافة صورة فى قاعدة البيانات ووضعها فى msflexgrid ؟ gedo 7 235 02-09-16, 04:36 PM
آخر رد: gedo
  كيفية تحديث بيانات جدول داخل قاعدة بيانات SQL Server عن طريق الإنترنت engabuhema 1 150 31-07-16, 01:34 PM
آخر رد: ahmedabdelaliem
  كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ gedo 3 191 01-07-16, 04:10 PM
آخر رد: gedo
  سؤال عن كيفية الاتصال بالهاتف المنزلى ahmed_egypt 3 183 28-05-16, 10:50 PM
آخر رد: ahmed_egypt
  طلب كيفية التحكم في الارقام tighrmte 2 252 12-05-16, 09:32 PM
آخر رد: اسلام الكبابى
Video كيفية التصوير من الكاميرة وحفظ بملف فيديو ياسر عبد الكريم 8 1,124 13-04-16, 11:17 AM
آخر رد: MicroDoha
  [vb6.0] سؤال لخبراء المنتدى العظماء : كيفية حماية حقوق ملكيتك للبرنامج التنفيذي hamada salah90 7 498 13-04-16, 10:57 AM
آخر رد: MicroDoha
  [vb6.0] طلب :كيفية جعل البرنامج يظهر للمستخدم عندما يقلع الكمبيوتر( العرض الصحيح للمشكلة) hamada salah90 4 379 13-04-16, 10:29 AM
آخر رد: MicroDoha
  [vb6.0] طلب :كيفية تشغيل برنامج regsvr32.exe لعمل تسجيل لمكتبات dll & OCX hamada salah90 3 595 13-04-16, 10:27 AM
آخر رد: MicroDoha

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم