اظهار وصف الحقل في تذييل النموذج

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

تفضل أخي البرنامج

test.rar

بارك الله فيك اخي

متابع معاي دائماً جزاك الله خير

اخي بقي الطلب الثاني انا اعرف طريقة عدم تكرار البيانات في الحقل ولكن اريد طريقة بحيث تبطل الرسالة التي يظهرها اكسس واستبدلها برسالة من عندي .

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

تفضل أخي الكريم

test.rar

بارك الله فيك وكثر من امثالك

شكرا لك أخي لا عدمناك .

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

تكرم أخي على

السلام عليكم:

هل تتفضل بشرح الكود ؟ ولك جزيل الشك والتقدير

اقتباس

Private Sub Form_Error(DataErr As Integer, Response As Integer)

Const conerrorduplicatekey = 3022

Select Case DataErr

Case conerrorduplicatekey

MsgBox "فضلا تأكد من عدم تكرار اسم الموظف!!", vbInformation + vbOKOnly + vbMsgBoxRight, "تنبية"

Response = acDataErrContinue

Case Else

Response = acDataErrDisplay

End Select

End Sub

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

أخي طه

أولاً : إذا لاحظت تم وضع الكود في حدث ( عند الخطأ ) للنموذج

ثانياً : الشرح

Const conerrorduplicatekey = 3022

const هي من أساس الVBA وبالإنكليزي تسمى KeyWord أو SyntaxStatement

وهنا أعرف ال conerrorduplicatekey ك CONST وأعطيها الرقم 3022 وهذا الرقم هو رقم الرسالة الخطأ التي تصدر عن الأكسس والتي سنستبدلها نحن هنا

Select Case DataErr

select case هنا أقول له هناك عدة حالات إسمها DATAERR

   Case conerrorduplicatekey

أي أن الحالة الأولى هي conerrorduplicatekey

         MsgBox "فضلاً تأكد من عدك تكرار إسم الموظف", vbInformation + vbOKOnly + vbMsgBoxRight, "تنبيه"
        Response = acDataErrContinue

وهنا أقول له أن أظهر هذه الرسالة في الحالة الأولى أي عند عندما ستظهر لي رسالة الأكسس أظهر هذه الرسالة بدلاً منها ( case conerrorduplicatekey )

response = acDataErrContinue وهنا أقول له أكمل بعد هذه الرسالة ( response معرّفة فوق بجانب الPrivate Sub Form_Error )

else

أي وإذا لم يكن عندي مشكلة ، أو بالأحرى بيانات متكررة

" Response = acDataErrDisplay"

سبق وتم شرحها ضمن الكود :)

 End Select

تعني أنهي التحديد !!

وأخيراً أرجوا أن أكون قد وفقت في إيصال فكرة عمل الكود

استاذ كبير .........

نفعك الله بهذا العلم وزادك علما كمان وكمان

وكثر الله من امثالك

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

الف الف شكر

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

بارك الله فيك أخي طه على الدعوات النابعة من القلب

وجزاك الله كل خير ، وأثابك الله على هذه الدعوات ولك مثلها إن شاء الله تعالى