[kafi2030]

السلام عليكم

بعد صبر ،وعدة محاولات، وجدت الحل

كود :

Dim List = From B In db.Fixed_Notes Select B

        For Each x In List

            If txt_Note.Text = x.Note Then
                lbl_Caution.Visible = True
                lbl_Caution.Text = "اســـم الملاحظــــــة مكــــرر !!"
                Panel2.BackColor = Color.Red
                txt_Note.Focus()
                Exit Sub
            End If
        Next

وقد احببت ان اضعه حتى يستفيد منه الاخوة
والسلام عليكم