تقييم الموضوع :
  • 1 أصوات - بمعدل 1
  • 1
  • 2
  • 3
  • 4
  • 5
اظهار مسج في حالة وجود ريكورد مكرر عند الربط مع الاكسس
#1
السلام عليكم ورحمة الله

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

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

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

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


انتظر ردودكم .. Angel
تحياتي
الرد }}}}
تم الشكر بواسطة:
#2
اكتب الصيغة التالية على زر الاضافة

PHP كود :
Msgbox("الرقم الجامعي الذي ادخلته موجود بالداتا بيس ، حاول ادخال رقم اخ"
الرد }}}}
تم الشكر بواسطة:
#3
أخي العزيز

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

كود :
Msgbox("الرقم الجامعي الذي ادخلته موجود بالداتا بيس ، حاول ادخال رقم اخ")
الرد }}}}
تم الشكر بواسطة:
#4
ارجو المساعدة شباب .. ضروري
الرد }}}}
تم الشكر بواسطة:
#5
شف الكود هذا:

كود :
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
الرد }}}}
تم الشكر بواسطة:
#6
إذا كان النظام يعطيك رسالة بالخطأ فيمكنك معالجتها بإستخدام Try , Catch
وإقتناص الاخطاء يستخدم كالتالي:
كود :
Try
' أكتب الكود المستخدم هنا
Catch ex As Exception
Msgbox("أكتب الرسالة التي تريد ظهورها هنا")
End Try

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب كود اظهار الاحرف عشوائي Ameer.net 8 110 24-02-17, 02:06 PM
آخر رد: Ameer.net
  كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2008 المتألق9 2 81 05-02-17, 01:43 AM
آخر رد: المتألق9
  [سؤال] اظهار حقلين في كومبو بوكس ابو يوسف النواوي 2 4 146 02-02-17, 07:51 PM
آخر رد: ابو يوسف النواوي 2
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 129 22-01-17, 01:39 PM
آخر رد: thevirus
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 503 04-01-17, 01:12 AM
آخر رد: Namer
  البرنامج بيقعد كتير جدا على مايفىح رابط الاكسس بالداتا جريدفيو بالمعالج araxis 4 204 13-12-16, 04:29 AM
آخر رد: silverlight
  [VB.NET] خطا بالكود عند اجراء عملية حذف لاحد العملاء في البنك بسبب وجود علاقة بين الحقول في ال Asmaa adel 2 149 08-12-16, 11:57 AM
آخر رد: Asmaa adel
  [VB.NET] استدعاء بيانات من الاكسس لل vb.net مهند الموسوي 1 203 02-12-16, 03:14 PM
آخر رد: مهند الموسوي
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 320 29-11-16, 07:26 AM
آخر رد: amgad525
  اظهار او اخفاء الرسائل للمستخدم العواد الصغير 11 320 09-11-16, 06:43 PM
آخر رد: العواد الصغير

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم