مشكله مع علاقات اكسس وربط الفيجوال

أختي Diana الأسلوب الاسهل استخدام حدث الخطأ

ON Error

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

انا ماعندي اخي اخطاء بالاكسس ابدا ولا بالعلاقات وعلاقاتي صحيحه 100%

لكن الخطا هو في الكود البرمجي للفيجوال

والذي اريده بالضبط هو اني عندما اضيف بيان جديد الى قاعده البيانات عن طريق الفيجوال ان يتاكد هل هذا البيان موجود بالفعل في الجدول الاساسي او لا

واذا وجده يحفظ البيان واذا لم يجده يظهرلي رساله بانه يجب عليك تغيير الرقم الذي ادخلته

اقتباس

لكن المشكله اني لما بضيف مريض جديد او بيانات جديده لاي جدول من الجداول الفرعيه

بيطلع خطأ

يعني في حدث خطأ !

انا اسفه فعلا اشغلتكم وبعدين حاولت بالجواب

والحمد لله وجدت الحل

وهذا هو الحل حتى لو احدهم صادف نفس المشكله

If Text6.Text = "" Then
MsgBox ("ÝÖáÇ ÇÏÎá ÑÞã ÇáãÑíÖ")
Text6.SetFocus
Else
Dim SearchStr As Variant
   SearchStr = Form8.Text6.Text
   Form7.Adodc1.Recordset.MoveFirst
   Form7.Adodc1.Recordset.Find "[ÑÞã ÇáãÑíÖ] ='" & SearchStr & "'"

If Form7.Adodc1.Recordset.EOF Then
 MsgBox ("ÇÏÎá ÑÞã ÇÎÑ ãæÌæÏ")
   Else
   Form8.Adodc1.Recordset.Save
   
End If
End If

الحل الاول

ان تربطى حقل رقم المريض بـ ComboBox من قاعدة البيانات

بحيث لايمكن للمستخدم إدخال رقم مريض غير موجود

الحل الثانى

فى الحدث الذى ينتج هذا الخطأ تضعى الكود التالى قبل كود الإضافة

 On Error Resume Next

ثم بعد تحديث البيانات وهو السطر الذى يقف عنده البرنامج تضعى الكود الاتى بعده مباشرة

 If Err.Number =3032 Then
MsgBox "هذا مريض غير مسجل "
Exit Sub
End if