تقييم الموضوع :
  • 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 ك ب / التحميلات : 52)
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
#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 ك ب / التحميلات : 38)
 

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


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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] إظهار اسم اليوم فى تاريخ محدد aboezzat84 1 444 21-02-23, 03:54 PM
آخر رد: ahmedabdelaliem
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 14 8,480 14-06-22, 04:01 PM
آخر رد: sher
  [vb6.0] كيفية قراءة الباركود على مكينات الكاشيير والمخازن باستعمال خط 3OF9_NEW hamada salah90 1 1,043 28-05-21, 02:48 AM
آخر رد: ahmedabdelaliem
  كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ gedo 4 3,567 19-03-21, 03:01 AM
آخر رد: mhqom2020
Lightbulb [سؤال] كيفية إيجاد (رقم معين) بعد عدة فواصل محددة أبو خالد الشكري 2 1,529 04-02-21, 02:23 AM
آخر رد: أبو خالد الشكري
  كيفية اضافة خواص لاداة UserControl ؟ gedo 1 1,977 18-09-20, 06:46 PM
آخر رد: SoftWare Haker
  كيفية ارسال معطيات الداتاكريد الى الاكسيل lkjnfg 0 1,200 25-08-20, 10:34 PM
آخر رد: lkjnfg
  [سؤال] استفسار كيفية الدمج بين اكثر من جدول NOOOR 4 3,876 13-07-19, 03:14 AM
آخر رد: gadr
  تحويل الرقم الى تاريخ حامد محمد 3 2,174 04-03-19, 01:38 AM
آخر رد: حامد محمد
  [vb6.0] كيفية اختيار حقول معينة من جدول معين ووضعها في الفلكس قريد من خلال تحكم المستخدم في ا mustafa mohamed 17 6,474 31-10-18, 12:54 AM
آخر رد: ابن دوعن

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


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