رسالة خطأ تكرار البيانات Duplicates

مغلق

بدأه alshakii في 12 مايو 2007 · 3 رد · 625 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#112 مايو 2007 في 03:56 صاحب الموضوع

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

يرجى المساعده في البرنامج المرفق حيث أن الحقل no معرف برايمري كي ولا يقبل التكرار

وقد قمت بالبحث عن المواضيع المشابهه ولكن دون فائده وجربت بعض الاكواد ولكن ما زالت رسالة الخطأ موجوده

فأرجو المساعده في التعديل على البرنامج المرفق بحيث عند ادخال رقم موجود تظهر رسالة بان الرقم موجود ويطلب بتغيير الرقم وفي حالة عدم وجود الرقم يقوم بالاضافة

ولكم جزيل الشكر والتقدير

inf.rar

#212 مايو 2007 في 04:15

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

راجع :

/index.ph...st&p=638465

بالتوفيق ,,,,

A7med_prof

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس
[يمين]
.[/يمين]

اخر مواضيعي 2007
.
جديد: كيف يتم جلب البيانات من صفحة ويب وعرضها في MSFlexGrid , مثلا البيانات معروضه في جدول
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية
.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,
.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</

#312 مايو 2007 في 07:17

اخي العزيز

ضع الكود التالي في مفتاح الحفظ

		
Dim xx As String
On Error GoTo mysol

'
'
'
'

Exit Sub
mysol:
If Err.Number = -2147467259 Then
   xx = MsgBox("Error in save  !", vbOKOnly + vbMsgBoxRight + vbCritical, "Error")
   Exit Sub
End If

ملحوظة : نسختك المرفقة لا تعمل لعدم وجود Form1 وشكراً

اقتباس
لا تنسوا محمد الدرة وايمان حجو وفارس عودة ....
لا تنسوا القدس وبغداد وبيروت والشيشان ....
ولا تنسوا الشيخ ياسين ود. الرنتيسي وشهداء القضية