[khaled12345]

(17-06-17, 12:42 AM)khaled12345 كتب :

(26-05-17, 08:30 PM)khaled12345 كتب :

(26-05-17, 08:20 PM)محمود بكرى كتب : السلام عليك اخي خالد لقد صنعت لك دالة للاستفسار عن وجود الشرط ومن ثم انشاءت اجراء لكل الازرار بحث حالة الشرط لكل اسم فى حلقة تكرارية
وقد وضعت الاجراء فى حدث تحميل الفورم
يمكنك ان تستدعيه مع كل عملية تحديث 

كود :

Function tst(ByVal txt As String) As Integer
       Dim daa As New OleDbDataAdapter("Select * From SMS where Area ='" & txt & "'and TYPE='Escalation'", con), dtt As New DataTable
       daa.Fill(dtt)
       If dtt.Rows.Count > 0 Then Return 1 Else Return 0
   End Function
   Sub setcolor()
       For Each Ctl As Control In Me.Controls
           If Ctl.GetType Is GetType(Button) Then
               If tst(Ctl.Text) = 1 Then Ctl.BackColor = Color.Red
           End If
       Next
   End Sub

بالطبع كما هو واضح اذا كانت المنطقة تحتوي على Escalation سوف يحمر الزر
المرفق

الف الف مليون شكر اخي الحبيب محمود بكرى

كله تمام  وتسلم ايديك يارب

وكل عام وانتم بالف خير يارب

السلام عليكم الاخوة الاحباب

بخصوص المشروع المرفق

اريد المساعدة في هذا الامر من فضلكم

المشروع كان عبارة عن تغير لون ال Button  الي اللون الاحمر  لو كان مكتوب في عمود ال Type  كلمة  Escalation

وهو فعلا يعمل ولكن اضفت عدد 2 Button  واحد للتخزين وواحد لعمل Refresh

فحينما اكتب من الفور في الداتا جريد فيو كلمة Escalation

واعمل  save  و refresh  لا يتغير اللون الا اذا اغلقت البرنامج وفتحته مرة اخري

المطلوب ان يتغير لون ال Button   الي اللون الاحمر من غير ما اقفل البرنامج

الرجاء المساعدة مع الشكر

المشروع في المرفقات

السلام عليكم احبابي

انا في انتظار الرد من حضراتكم للاهمية

مع جزيل الشكر