24-04-21, 04:37 AM
(24-04-21, 04:02 AM)العيدروس كتب :(23-04-21, 10:46 PM)messry كتب : اخي الفاضلشكرا اخي messry على المساعدة و بارك الله فيك احاول ان شاء الله
ايا كان ما تريد
عطيتك حل
تقدر تضيف كود تعديل مكان الشرط لو تحقق والمكتوب بالعربي
تحياتي
رمضان كريم اخي اسعد .بارك الله فيك اخي على المساعدة هو فعلا هذا يلي اريد عمله اشكرك جزيل الشكر .الكود فعلا يعمل لي ما اريده و يقول بالتعديل على آخر سجل لليوم السابق اذا كان ( متاح ) و يجعله ( غير متاح )
بقي لي فقط نقطة اخيرة لو سمحت
بعد الكود يلي اعطيتني اياه اضفت رسالة عادية
msgbox(" لقد تم التعديل على الحقل ")
لكن الرسالة تظهر لي دائما اريد يكون شرط اذا كان سجل موجود حسب الشروط و تم التعديل تظهر الرسالة و اذا كان يوم جديد و العبارة ( غير متاح ) طبعا الرسالة لا تظهر و بارك الله فيك
رمضان كريم اخي العيدروس
وجزاك الله خير
جرب هذا التعديل بعد اضافة الرسالة
PHP كود :
Sub fill_datagridview()
' تعديل كل الاسطر التي تاريخ اقدم من تاريخ اليوم
'Dim ucmd As OleDbCommand = New OleDbCommand("UPDATE Table1 SET FieldOption='غير متاح' WHERE (FiledDate<NOW) AND (FieldOption='متاح')", Conne)
' تعديل فقط آخر تاريخ اقدم من تاريخ اليوم
Dim ucmd As OleDbCommand = New OleDbCommand("UPDATE Table1 SET FieldOption='غير متاح' WHERE Id=(SELECT TOP 1 Id FROM Table1 WHERE (FiledDate<NOW) AND (FieldOption='متاح') ORDER BY FiledDate DESC)", Conne)
Conne.Open()
If ucmd.ExecuteNonQuery > 0 Then MsgBox("تم بنجاع التعديل على الحقل التنبيه اليومي")
Conne.Close()
Dim cmd As OleDbCommand = New OleDbCommand(" SELECT * FROM Table1", Conne)
Dim da As OleDbDataAdapter = New OleDbDataAdapter()
da.SelectCommand = cmd
Dim dt As DataTable = New DataTable()
da.Fill(dt)
DataGridView1.DataSource = dt
End Sub