اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

Dim X As Integer
X = DCount("[iditems]", "[sublistsale]", "[iditems]=" & Me.iditems & " AND [idlistsale]=Forms![flistsale]![idlistsale]")
If X > 0 Then
MsgBox "تم إدخال هذا الصنف مسبقا", 48, "تنبيه"
DoCmd.CancelEvent
Me.undo
End If

 

قام بنشر
29 دقائق مضت, ازهر عبد العزيز said:

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


Dim X As Integer
X = DCount("[iditems]", "[sublistsale]", "[iditems]=" & Me.iditems & " AND [idlistsale]=Forms![flistsale]![idlistsale]")
If X > 0 Then
MsgBox "تم إدخال هذا الصنف مسبقا", 48, "تنبيه"
DoCmd.CancelEvent
Me.undo
End If

 

وعليكم السلام

اول سطر تعريف متغير اسمه x نوعه رقمى

المتغير = جلب عدد الاصناف بناء على حقل رقم الصنف وبشرطين

اذا كان المتغير اكبر من 0

اظهررساله تم ادخال هذاالصنف

كنسل الادخال

تراجع

شرح بسيط على قدى

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

 

قام بنشر

اخى الفاضل @ازهر عبد العزيز هل تقصد الحقل نوعه نصى ام المتغير ؟

على قد معرفتى اذا كان هذا او هذا سيتم تحويله لرقم قبل المقارنه لان مينفعش تقارن نص مع رقم

وراجع المواضيع التاليه للاستفاده

 

ان شاء الله تستفاد منها

 

 

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information