مشكور اخوي الله يعطيك العافية
طيب اخوي اذا كان ودي بدال ان يقوم باظهار رسالة بنوع المود اريده ان يقوم بتغير النص الموجود في حقل sub من "موعد سفر" الى "تم الموعد"
اي يقوم بعملية تعديل السجل update
ولاكن اخوي في مشكلة ان الكود الي عملته لي يقوم بأظهار اول سجل ولايقوم بعملية المقارنة مع كافة السجلات في قاعدة البيانات المطابقة للوقت الحالي
السلام عليكم
- أخي الأكسس عندي 2003 ولم استطع فتح قاعدة البيانات 2007 فلو تحفظ قاعدة البيانات بتنسيق 2003 وترفقها مع المثال ، علشان اقدر اساعد في هذا الموضوع .
- تحياتي .
اخوي VB_CODE
السلام وعليكم ورحمة الله
اشكرك على المساعدة
المطلوب وهو كتالي :
لدي جدول فيه حقلين الاول time
والثاني State القيمة بداخله 0
اريد كود يقوم كل 5 ثواني بالبحث داخل حقل time اذا وجد قيمة اي حقل تساوي للوقت الحالي
يقوم بتغير قيمة حقل ال state من 0 الى 1
انا جربت الكود التالي ولاكن يطبق على اول سجل يعني اول سجل في الجدول وباقي السجلات ما ينفذ الامر
RsTi.Requery
RsTi.Find "[time]='" & Time & "'"
If Not RsTi.EOF Then
RsTi![State] = 1
RsTi.Update
End If
السلام عليكم
- في البداية ، ماهي صيغة أو تنسيق الوقت الذي تحفظه في الحقل time ، الأفضل أن يكون حفظ الوقت بتنسيق 24 ساعه يعني يكون
الوقت من غير حرف ال ص أو م أو AM أو PM بل يكون أرقام فقط يعني الساعة ١٢:٠٠ ص تكون ٠٠:٠٠ والساعة ٠١:٠٠ م تكون ١٣:٠٠ .
- هل أنت تحفظ الوقت كامل يعني رقم الساعة والدقيقة والثانية أم الساعة والدقيقة ، فإذا كنت تحفظ الوقت كامل وبناءً على ماطلبت أن يكون فحص حقل ال time كل خمس ثواني فمن الممكن أن لايتم التطابق إلا نادراً جداً ، لذلك من الأفضل أن تحفظ الساعة والدقيقة فقط وبهذا ستسهل عملية
المقارنة أو المطابقة .
- إذاً لنفترض أنك تحفظ الوقت بتنسيق ٢٤ ساعة وأيضاً تحفظ الوقت بأخذ الساعات والدقائق فقط من دون الثواني ، ولنفترض أن إسم الجدول Table1 وإسم متغير الخاص بالإتصال بقاعدة البيانات DB ولنفترض أن نوع الحقل time نصي ونوع الحقل
state رقمي ، سيكون كود التايمر بهذا الشكل :
Dim CurTime As String
CurTime = Format(Time , "HH:MM")
DB.execute "update Table1 set state=1 where time='" & Trim$(CurTime) & "'"
- وبهذا الكود سيتم تعديل حقل ال state لكل سجل في الجدول يكون قيمة حقل ال time فيه يساوي الوقت الحالي .
- تحياتي .
اخوي vb_coder
عملت الكود وعند التنفيذ يعطيني الرسالة التالية
السلام عليكم
- شاهد الطريقة في تعديل المثال .
- تحياتي .
وعليكم السلام اشكرك اخوي على المساعده
تمت التجربه
ولاكن كيف اقوم بأنشاء عد تنازلي مثلا
لدي تكست يوجد فيه 30 اريد ان يقوم بالعد التنازلي
السلام عليكم
كود :
Private Sub Timer1_Timer()
IF Val(Trim$(Text1.Text)) > 0 Then
Text1.Text = Val(Trim$(Text1.Text)) - 1
Else
Timer1.Enabled = False
Exit Sub
End IF
End Sub
- تحياتي .
مشكور اخوي والله يعطيك العافية