منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اظهار مسج في حالة وجود ريكورد مكرر عند الربط مع الاكسس

السلام عليكم ورحمة الله

ارجو مساعدتي في حل مشكلتي

انا بالعادة اربط الاكسس داتا بيس بال vb.net
باستخدام طريقة سحب الجداول الى الفورم وليس بطريقة كتابة الكود
(بمعنى اخر: اضافة وحذف وتعديل ريكورد معين تكون جاهزة مع هذه الحركة)

لما اجي ادخل ريكورد معين بالداتا بيس وهذا الريكورد هو بالاصل موجود بالداتا بيس
السيستم نفسه يعطيني مسج انه هناك ريكورد بهذا الاسم بالاحرى ال Primary key
وليكن الرقم الجامعي لطالب مثلا ..

اريد طريقة بحيث انا اكتب المسج وليس من السيستم
لو ادخلت أي ريكورد معين وكان اصلا موجود بالداتا بيس يظهر لي مسج مثلا
"الرقم الجامعي الذي ادخلته موجود بالداتا بيس ، حاول ادخال رقم اخر"

انتظر ردودكم .. Angel

تحياتي

اكتب الصيغة التالية على زر الاضافة

PHP كود :

Msgbox("الرقم الجامعي الذي ادخلته موجود بالداتا بيس ، حاول ادخال رقم اخ") 

أخي العزيز

احتاج الى كود كامل يحتوي ع جملة if -else لكي يفحص في حالة وجود الملف يطبع المسج التالي

كود :

Msgbox("الرقم الجامعي الذي ادخلته موجود بالداتا بيس ، حاول ادخال رقم اخ")

ارجو المساعدة شباب .. ضروري

شف الكود هذا:

كود :

If Me.TextBox1.Text.Trim.Length = 0 Then

                Me.TextBox1.Focus()

                MsgBox(" الرجاء ادخال اسم الموظف  ", MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight, " خطاء في الاتصال ")

                Exit Sub

            End If

Dim Check As New OleDbCommand("select * from Tab where N  like '" & TextBox1.Text.Trim & "' ", con)

            Dim Checknum As String = ""

            con.Open()

            Checknum = Check.ExecuteScalar

            con.Close()

            If Checknum <> "" Then

                MsgBox(" عفواً هذا الموظف سبق تسجيله في النظام   ", MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight, " خطاء في الاتصال ")

                Exit Sub

            End If

إذا كان النظام يعطيك رسالة بالخطأ فيمكنك معالجتها بإستخدام Try , Catch
وإقتناص الاخطاء يستخدم كالتالي:

كود :

Try

' أكتب الكود المستخدم هنا

Catch ex As Exception

Msgbox("أكتب الرسالة التي تريد ظهورها هنا")

End Try

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مصطفى الجبوري

Ahlam

مصطفى الجبوري

مصطفى الجبوري

ابوهديل

Genius Live