كود تحديث رقم الفاتورة

[حسين العربى]

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام    تحية طيبة وبعد

مرفق ملف به جدول يحتوي علي  ID_N نوعه نص مفهرس التكرار غيرمقبول / و رقم الفاتوره نوعه نص مفهرس لايقبل التكرار 

وعندي نموذج غير منضم يحتوي علي  حقل ID_NO  و رقم الفاتورة و زر امر تحديث رقم الفاتورة

المطلوب عند تغيير رقم الفاتورة الي رقم جديد  وهذا الرقم الجديد موجود في  ل ID _NO  اخر يظهر لي رسالة بان رقم الفاتورة الجديد موجود بالفعل ل ID_NO  اخر وشكرا

test1.accdb

[محمد أبوعبدالله]

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

انظر اخي الكريم هل هذا هو المطلوب

test1.rar

تحياتي

[حسين العربى]

استاذي الفضي محمد أبوعبدالله شكرا علي مرورك الطيب 

ليس هذا  طلبي

طبعا  ال ID_NO  لايتغير عندي 

الي ممكن يتغير  رقم الفاتوره 

ولنفترض عاوز اغير رقم  الفاتورة الي  ID_NO  بتاعه 1  وغيرة رقم الفاتوره الي مثلا 66 طبعا رقم 66 ده موجدو بالفعل ID_NO  اخر  فيظهر لي رسالة فقط  للتنبيه

وشكرا 

[محمد أبوعبدالله]

7 دقائق مضت, حسين العربى said:

طبعا  ال ID_NO  لايتغير عندي 

 

7 دقائق مضت, حسين العربى said:

عاوز اغير رقم  الفاتورة الي  ID_NO 

معذرة هل تقصد FATORA_NO

ارجو التوضيح بارك الله فيك

تحياتي

[حسين العربى]

نعم اخي الفاضل  اقصد FATORA_NO

[محمد أبوعبدالله]

17 دقائق مضت, حسين العربى said:

نعم اخي الفاضل  اقصد FATORA_NO

حسناً استبدل الكود الى

Private Sub أمر4_Click()
    If DLookup("[FATORA_NO]", "[TABOL_1]", "[FATORA_NO ] ='" & Me.FATORA_NO & "'") Then
        MsgBox "الرقم مكرر"
        Exit Sub
    Else
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE TABOL_1 SET TABOL_1.FATORA_NO = [Forms]![FORMS_1]![FATORA_NO];"
        DoCmd.SetWarnings True
        MsgBox "تم"
    End If
End Sub

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

Private Sub أمر4_Click()
    If DLookup("[FATORA_NO]", "[TABOL_1]", "[ID_NO] ='" & Me.FATORA_NO & "'") Then
        MsgBox "الرقم مكرر"
        Exit Sub
    End If
End Sub

test1.rar

تحياتي

تم تعديل نوفمبر 3, 2020 بواسطه محمد أبوعبدالله

[حسين العربى]

اخي الفاضل انا اسف تعبتك معي

الظاهر كده اني فكرتي لم تصلك مظبوطه

 

هنبصط الموضوع خالص 

انا عندي حقل  ID_NO  وحقل  FATORA_NO

انا عاوز اعدل الرقم الموجود في حقل FATORA_NO  الي رقم اخر  ولنفترض الرقم الجديد الي هدخله هو 66 مثلا  الرقم 66 ده موجود بالفعل في الجدول في حقل FATORA_NO  لحقل   ID_NO   اخر

 

[husamwahab]

مشاركة مع استاذي العزيز محمد

تفضل هذه المحاولة ارجو ان تكون طلبك

test2.rar

[حسين العربى]

استاذي ومعلمي الفاضل  husamwahab حضرتك وصلت لنصف الي انا عاوزه 

بس ولنفترض انا استدعيت الفاتورة  ال رقم id_no  بتاعها 1 ورقم ال fatora_no بتاعها   12 ومعدلتش علي رقم الفاتورة  بس عدلة مثلا في بيانات اخري في النموذج مثلا اسم المورد  وجيت اعمل حفظ هتظهر لي رسال ان رقم  fatora_no  ده الي هو 12 موجود في  id_no 1  تمام لحد كده

انا مش عاوز الرسالة تظهر طالما نا ماعدلتش  في رقم fatora_no   لاني رقم fatora_no  12 ده مش موجود في فاتوره اخري

يعني انا عاوز الكود يشوف رقم  fatora_no   ده الي هو 12  الي id_no   بتاعه 1 موجود في الفاوتير الاخري في الجدول ولا لأ

[husamwahab]

تفضل هذا التعديل حسب فهمي لطلبك

test3.rar

[حسين العربى]

استاذي ومعلمي الفاضل husamwahab  الله يبارك فيك ويزيدك من علمة 

هذا هو المطلوب بالظبط 

 

[husamwahab]

بالخدمة استاذ حسين العربى

انا لا استاذ ولا معلم انما انا تلميذ في هذه الاكادمية

والاساتذة والمعلمين الحقيقيين معروفين واكيد انا لست منهم