السلام عليكم
انا بعمل برنامج على قدى وارجو المساعدة
انا عملت فى البرنامج حجز لتاريخ معين
1واريد اضافة 10 تاريخ اخر فى البرنامج بعد التاريخ الي بيحطة المستخدم
يعنى مثلا المستخدم هيحط 4/4/2000
اريد البرنامج يجعلة4/5/2000 وبعدين يغيرة4/6/2000 وبعدين
4/7/2000 وهكذا
انا كنت عامل فى الارقام
DIM A AS STRING
A=TEXR1.TEXT
1
a = a + 1
If a = A+10 Then Exit Sub
Else
rs.AddNew
rs("nu1") = a
rs.Update
GoTo 1:
End If
ااسف للاطالة
اريد عمل مثلة لزيادة التاريخ
وجزاكم الله خيرا
السلام عليكم
هل ممكن اكون انا مش عارف اشرح السؤال كويس لو احد يشاركنى اوضح لة انا محتاج اية
انا منتظر
شكرا للجميع
بالراحة أخي الكريم
انت عايز ان المستخدم يضع تاريخ في مربع النص
ثم تزيد التاريخ بمقدار 10 أشهر
ثم يتم حفظ التاريخ بعد الزيادة في قاعدة البيانات
أتمنى أكون فهمتك
بانتظار ردك لارفاق مثال بإذن الله
طيب ياخوي فيه بالأوجكت Date تقدر تتحكم بالوقت
اضف الايام بتسلسلك اللي انت محتاجه
dt.AddDays(10)
تبدل الـ 10 بالرقم اللي انت محتاجه
جزاكم الله خيرا
والله انا سعيد بهذا الاهتمام
انا عيز ان المستخدم يضع التاريخ بمربع النص
ثم يحجز لى البرنامج عشره تواريخ كل تاريخ يزيد عن التاريخ الذى بعدة بمقدار شهر
يبدا مثلا 6/6/2007 هذا ما يضعة المستخدم
ثم 6/7/2007 يحجز فى الزاكرة المؤقتة
ثم 6/8/2007 يحجز فى الزاكرة المؤقتة
ثم 6/9/2007 يحجز فى الزاكرة المؤقتة
ثم 6/10/2007 يحجز فى الزاكرة المؤقتة
ثم 6/11/2007 يحجز فى الزاكرة المؤقتة
ثم 6/12/2007 يحجز فى الزاكرة المؤقتة
ثم 6/1/2008 يحجز فى الزاكرة المؤقتة
ثم 6/2/2008 يحجز فى الزاكرة المؤقتة
ثم6/3/2008 يحجز فى الزاكرة المؤقتة
ويضافو فى الداتا بيز
وشكرا لاهتمامكم
راقب هذا المثال
Dim Db As New ADODB.Connection
Dim Tb1 As New ADODB.Recordset
Private Sub Form_Load()
If Db.State = adStateOpen Then Db.Close
Db.Open "provider=microsoft.jet.oledb.4.0;data source= your database source"
Db.CursorLocation = adUseClient
If Tb1.State = adStateOpen Then Tb1.Close
Tb1.Open "New_Date", Db, adOpenDynamic, adLockOptimistic
End Sub
Private Sub Command1_Click()
Dim New_Date As Date
Dim n As Integer
n = 10
For i = 1 To n
New_Date = DateAdd("m", i, DateValue(Text1))
Tb1.AddNew
Tb1("New_Date") = New_Date
Tb1.Update
Next i
End Sub
الأفكار العبقرية تأتي بالتعب و المجهود و الإلهام فيها لا يتعدى 1% ( أديسون )
ممتــاز أخي Black_Tiger_2007
و الله حل بسيط و جميل
و حل للأخ مشكلته
السلام عليكم
والله انا عاجز عن الشكر لاخوانى
جزاكم الله خيرا
بس للاسف انا مش فاهم الكود للتغيير فيه
لانى لسة مبتدا وبستعمل الربط بالداتا كونترول او الداو
انا مش عارف انت رابط باية معلش استحملونى
جزاكم الله خيرا
بس انا هحاول افهم واحولة لل daw
وهبلغكم طبعا بالناتج
وجزاكم الله خيرا
السلام عليكم
ممكن يا استاذ Black_Tiger اذا مكنش فيها تعب شرح هذا الكود تفصيلى
للاستفادة منة لان انا مبتدا
وجربت الكود بيقف عند New_Date = DateAdd("m", i, DateValue(Text1))
يعنى اية "M"و new_date هل دى الداتا بيس ولا اية
وااسف للازعاج
جزاك الله خيرا
"D" يعني الزياده بعدد الايام
"M" يعني الزياده بعدد الشهور
"Y" يعني الزياده بعدد السنين
هذا مثال لزيادة التاريخ الحالي 3 شهورDateAdd("m" ,3,Date)تعديل بسيط على كود الاخ : Black_Tiger
For i = 1 To 10
Tb1.AddNew
Tb1("New_Date") = DateAdd("m", i, DateValue(Text1))
Tb1.Update
Next iتم تعديل هذه المشاركة بواسطة العقده في 27 سبتمبر 2007 في 20:52
ليس كل ما يتمناه المرء يدركه
السلام عليكم
انى احبكم فى الله
جزاكم الله خيرا
انا عملت فورمة
وكتبت فيها
Dim Db As New ADODB.Connection
Dim Tb1 As New ADODB.Recordset
Private Sub Form_Load()
If Db.State = adStateOpen Then Db.Close
Db.Open "provider=microsoft.jet.oledb.4.0;data source=amr.mdb"
Db.CursorLocation = adUseClient
If Tb1.State = adStateOpen Then Tb1.Close
Tb1.Open "New_Date", Db, adOpenDynamic, adLockOptimistic***************
End Sub
Private Sub Command1_Click()
Dim New_Date As Date
Dim n As Integer
n = 10
For i = 1 To 10
Tb1.AddNew
Tb1("New_Date") = DateAdd("m", i, DateValue(Text1))
Tb1.Update
Next i
End Sub
وكنت عامل فورم فيها تيكست بوكس واحد وكوماند بوتون واحد وغيرت اسم الداتا بيس ببتاعتى وقمت يتشغيل البرنامج وححصل ديبج فى السطر اللى انا عامل امامه نجوم *****
ارجو الرد عليا سريعا وما هى المكونا المكونة للفورم
هذا الموضوع مغلق.