اذهب الي المحتوي
أوفيسنا

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


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

السلام عليكم

لدى قاعدة بيانات لعملاء، مسجل لديهم بعض البيانات ومن ضمن هذه البيانات رقم التليفون، وقد يحدث أن يتكرر رقم التليفون لأكثر من عميل وهذا هو صميم عملى، أريد عند الضغط على زر بحث فى النموذج المرفق، أن يتم تطبيق البحث واستخراج البيانات فى النموذج، وفى حالة عدم وجود الرقم تظهر رسالة تفيد بأن "الرقم الذى تريد البحث عنه غير موجود " ورسالة فى حالة تكرار الرقم تفيد بأن " هذا الرقم مكرر ". وشكراً

الحجز 2016.rar

رابط هذا التعليق
شارك

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

If DCount("[telephone]", "customers", "[telephone]= Text1 ") = 0 Then
MsgBox "هذا الرقم غير موجود"
ElseIf DCount("[telephone]", "customers", "[telephone]= Text1 ") = 1 Then
DoCmd.SearchForRecord acDataForm, "m_cust", acFirst, "telephone =" & Me.Text1
Else
MsgBox "هذا الرقم مكرر"
DoCmd.SearchForRecord acDataForm, "m_cust", acFirst, "telephone =" & Me.Text1

End If

و هذا هو المرفق

 

الحجز 2016.rar

  • Like 1
رابط هذا التعليق
شارك

منذ ساعه, صالح حمادي said:

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


If DCount("[telephone]", "customers", "[telephone]= Text1 ") = 0 Then
MsgBox "هذا الرقم غير موجود"
ElseIf DCount("[telephone]", "customers", "[telephone]= Text1 ") = 1 Then
DoCmd.SearchForRecord acDataForm, "m_cust", acFirst, "telephone =" & Me.Text1
Else
MsgBox "هذا الرقم مكرر"
DoCmd.SearchForRecord acDataForm, "m_cust", acFirst, "telephone =" & Me.Text1

End If

و هذا هو المرفق

 

الحجز 2016.rar

متشكر جدا لحضرتك، هذا ما اردته

ولكن هل توجد خاصبة لتصفية البحث فى حالة التكرار، أن يأتى فى النموذج بالبيانات المكررة فقط

منذ ساعه, co2002co said:

تفضل اخي الفاضل

الحجز 2016.rar

متشكر جدا لحضرتك

رابط هذا التعليق
شارك

اشكر اهتمام حضرتك،

أقصد من التصفية انه لو عندى 20 سجل، عند الضغط على خانة البحث أن تتم تصفية نتيجة البحث من 20 سجل، بمعنى إذا كان الرقم مكرر فى السجل رقم 10 والسجل رقم 20 أن يأتى السجلين فقط ولا ياتى بالباقى 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information