رسائل الخطا

[Sarah2]

سلام عليكم 

عندي مربع نص اسمه text7 غير قابل التكرار 

كيف اضيف مسج رسالة مكتوب عليها ان النص مكرر 

[alaa aboul-ela]

اجعل من خصائص حقل النص رقم معرف 

او ادخل في خصائص الجدول وخلي من خصائص الحقل index

Yes (No Duplicates)

وعند خانة validation text

اكتب الرسالة التي تريدها الحقل لا يقبل التكرار مثلا

 

[Sarah2]

ممكن شرح بالصور الله يسعدك يارب

[أبوبسمله]

السلام عليكم

مشاركه مع اخى علاء

ونرجو منك فضلا لا امرا ان ترفق مثالا لما تطلب

ارفق لك مثال لاخ عزيز جزاه الله خيرا وجميع اخوانى واساتذتى الافاضل

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

رسالة بالتكرار ويعطي الاسم المتكررR.rar

[alaa aboul-ela]

15 hours ago, moopsiop said:

ممكن شرح بالصور الله يسعدك يارب

اتفضل

 

 

تم تعديل يناير 23, 2020 بواسطه alaa aboul-ela

[Sarah2]

احمد وعلا ربي يسعدكم ويرزقكم ومشكورين حبايبي 

[Sarah2]

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

الحقل عندي اسمه (رقم الهوية) موجود في فورم (الموظفين)

[أبوبسمله]

شوف اخى افاضل

الحقل المراد فى المثال

حقل رقمى فاذا كان عندك حقل نصى

غيرالسطر بالسطر التالى وعدل

CountNum = DCount("*", "date2", "[id]='" & [Forms]![d]![txt] & "'")

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

[Khalid Jnb]

السلام عليكم

بعد اذن اساتذتنا الكرام

عملت لك ملف 

اتمنى ان يكون المطلوب

تحياتي

Database1.rar

[Sarah2]

احمد المثال حقك هو المطلوب اللي اقصده بس لما فتحت الكود من الحدث طلع الكود طويل مافهمت اللي اغيره 

خالد ان شاء الله اجرب المثال واشوفه

[أبوبسمله]

اخى الفاضل @moopsiop

26 دقائق مضت, خالد سيسكو said:

السلام عليكم

بعد اذن اساتذتنا الكرام

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

مثال اخى اخالد افضل واقصر فالتعديل

ضع الكود التالى فى حدث بعد التحديث وغير ما يلزم من اسماء الحقول والجدول

الحقل = رقم الهويه

الجدول = TABLE1

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

وهذا اذا كان حقل رقم الهويه نوع بياناته رقم

Private Sub ID_AfterUpdate()
If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]=[ID]")) Then
MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه"
DoCmd.CancelEvent
Me.Undo
End If
End Sub

اذا كان نوع بيانات الحقل نصى

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

Private Sub ID_AfterUpdate()
If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]='" & [ID] & "'")) Then
MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه"
DoCmd.CancelEvent
Me.Undo
End If
End Sub

ان لم تستطع التعديل فارفق مثالك ليتم التعديل عليه اخى الفاضل

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

[Khalid Jnb]

تم تعديل يناير 24, 2020 بواسطه خالد سيسكو

[Sarah2]

قسم بالله ملوك الله يرزقكم من واسع فضلة 

[Khalid Jnb]

الشكر  لكل الاخوة  العاملون بهذا الموقع الرائع على التعاون الدائم  

 

[Sarah2]

احمد شكرا لك من صميم القلب تم حل المشكلة مع شرحك انت ملك الاكسس 

وشكرا اخواني على المساعدة جميعا انتم سعادة ربي يرزقكم من واسع فضله❤

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم والشكر موصول لاخى خالد جزاهم الله خيرا

والحمدلله الذى بنعمته تتم الصالحات

ولست بملك ولا شىء فاننى طالب علم مبتدىء مثلك بل اقل فمازلت احبو على طريق العلم

واياكم اخى الفاضل

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

[Sarah2]

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

[أبوبسمله]

ارفقك مثالك افضل

او الكود المعدل ليتم فحصه وما نوع الحقل

[Sarah2]

اريد ان اتعلم 

[Sarah2]

رفض يرفق الملف لي 

[أبوبسمله]

اضغطه بالوينرار ثم ارفقه

واذا لم يتم راجع الاكواد مره اخرى ومسميات الحقل

[Sarah2]

دقايق ارفع الملف لك 

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

[أبوبسمله]

اخى الفاضل

تعديل على الاكواد السابقه لمثال اخى خالد جزاه الله خيرا

فى حدث قبل التحديث وليس بعد

Private Sub ID_AfterUpdate()
' للحقل الرقمى
If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]=" & Me.[ID])) Then
MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه"
DoCmd.CancelEvent
Me.Undo
End If
End Sub

Private Sub ID_AfterUpdate()
'للحقل النصى
If (DLookup("[رقم الهوية]", "TABLE1", "[رقم الهوية]='" & Me.[ID] & "'")) Then
MsgBox "تنبيه الرقم المدخل " & " ( " & [ID] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه"
DoCmd.CancelEvent
Me.Undo
End If
End Sub

ووافنا بالنتيجه

[Sarah2]

عملت هذه قبل التحديث ضغطت ع مربع الهوية بالفورم ورحت للحدث ودخلت اجراء حدث قبل التحديث وضفت الكود هذا 

غيرت table1 باسم جدول قاعدة البيانات لدي اسمه الموظفين 

وغيرت id باسم حقل الفورم اسمه رقم الهوية 

وكمان بجدول القاعدة اسمه رقم الهوية

If (DLookup("[رقم الهوية]", "الموظفين", "[رقم الهوية]=" & Me.[رقم الهوية])) Then
MsgBox "تنبيه الرقم المدخل " & " ( " & [رقم الهوية] & " ) " & " عقوا... تم تسجيله مسبقا ُ جرب رقم آخر", vbCritical, "تنبيه"
DoCmd.CancelEvent
Me.Undo
End If

[أبوبسمله]

وما نوع بيانات الحقل فى الجدول هل هو رقمى ام نصى

يرجى ارفاق الملف افضل

اضغطه وارفعه