حدث Validating مع Text Box

لو ممكن الكود الذي إستخدمته ..

تحياتي :happy:

اكتب هذا الكود في نهاية الاجراء ليتم الانتقال تلقائيا إلى العنصر التالي بدون الضغط على Tab

Me.SelectNextControl(Me.ActiveControl, True, True, True, True)

bahbah كتب:

لو ممكن الكود الذي إستخدمته ..

تحياتي :happy:

هذا الكود

 Private Sub rfid_Validating()
Try
            Dim cm As New SqlCommand
            Dim drd As SqlDataReader
            cm.Connection = conn
            cm.Connection.Open()
            cm.CommandText = "SELECT RFID_Tag , Date FROM Attende WHERE RFID_Tag = '" & rfid.Text & "'" & " AND Date = '" & datetxt.Text & "'"
            drd = cm.ExecuteReader
            If drd.Read() Then
                MsgBox("You Already Logedin - لقد تم تسجيل دخولك من قبل", MsgBoxStyle.Critical)
                conn.Close()
                Exit Sub
            End If
            cm.Connection.Close()
  Catch ex As Exception
            MsgBox("Card Number Doesnt Exist - رقم البطاقة غير موجود", MsgBoxStyle.Critical)
            conn.Close()
            Exit Sub
        End Try
End Sub

لكن مشكلتي ليست مع الكود وانما مع الحدث فقط

إستخدم حدث آخر فـValidating تعني التحقق من الصحة أي بعدما تكمل ما كتبته ..

وتنتقل إلى شئ آخر يقوم بإعلامك إذا وجد خطأ .. هذا ما أعلمه ..

اشكركم جميعا بصدق

اخي bahbah

اقترح علي اجراءات اخرى ممكن ان تنفع

اذكركم ان رقم البطاقة ياخذ من باركود للبطاقات مثل برامج السوبرماركت

عند ادخال رقم البضاعة فيعطي معلومات البضاعة

انا مشكلتي في الحدث المستخدم فقط

للتوضيح

وشكرا للجميع

لا يوجد حدث أفضل من الحدث الرئيسي وهو TextChanged حتى يقوم بالعملية كلما تغيير النص ..

bahbah كتب:

لا يوجد حدث أفضل من الحدث الرئيسي وهو TextChanged حتى يقوم بالعملية كلما تغيير النص ..

اكيد واوافقك الرأي تماما لكن هذا الحدث فيه مشكلة انه ياخذ قيمة قيمة وهذه مشكلة مع الباركود لانه يعطي رقم رقم وهذا صعب

احترت مع هذه الاحداث بصراحة :blush: :blush:

ما رأيك بـKeyPress .. تجعل عندما ينتهي الباركود من وضع الأرقام ..

يضغط مثلاً Enter ..

فيقوم بالعملية ويظهر الرسالة ..