تبديل رسالة خطا برسالة اخرى

[Hussein888]

في قاعدة البيانات المرفقة يظهر لي خطأ عند ترك قيمة المنصرف بالوحدة الصغرى فارغ بدون قيم (لاني عامل الحقل مطلوب فب خصائص الجدول )

عاوز الغي الرسالة اللي بتظهرلي من microsoft access و ابدلها برسالة اخرى و لتكن "ادخل القيمة في الحقل"

Mark.rar

[AlwaZeeR]

قد لا تستطيع تغيير الرسالة اذا كانت خصائص الحقل في الجدول مطلوب

قم بتغيير خصائص الحقل من الجدول الى مطلوب: لا

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

حتى تستطيع تنفيذ امر الغاء الامر

     If Nz(Me.[اسم الحقل هنا],"") = "" Then
          Cancel = True
          Msgbox "لا يمكن ترك الحقل فارغ", vbExclamation, "قيمة مطلوبة"
     End If

 

[jjafferr]

السلام عليكم 🙂

 

اذا تسمحوا لي بالمشاركة 🙂

لإصطياد رقم الخطأ ، يجب علينا ان نستعمل حدث "on error" ، في النموذج الذي نحصل فيه على الخطأ ، وفي حالتنا ، فهو النموذج الفرعي ، هكذا:

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

    MsgBox DataErr
End Sub

 

وعند التجربة ، نحصل على هذا:

 

الآن وقد عرفنا رقم الخطأ ، اصبح من السهل التعامل معاه ، هكذا مثلا:

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

    'MsgBox DataErr
    
    If DataErr = 3314 Then
        Response = acDataErrContinue
        strMsg = "لا يمكن ترك الحقل التالي فارغ " & vbCrLf & _
                 "المنصرف بالوحدة الصغرى"
        MsgBox strMsg
    End If

End Sub

 

ونلقى هذه الرسالة الآن:

 

جعفر

1110.Market.accdb.zip

[Hussein888]

4 ساعات مضت, AlwaZeeR said:

قد لا تستطيع تغيير الرسالة اذا كانت خصائص الحقل في الجدول مطلوب

قم بتغيير خصائص الحقل من الجدول الى مطلوب: لا

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

حتى تستطيع تنفيذ امر الغاء الامر

     If Nz(Me.[اسم الحقل هنا],"") = "" Then
          Cancel = True
          Msgbox "لا يمكن ترك الحقل فارغ", vbExclamation, "قيمة مطلوبة"
     End If

 

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

3 ساعات مضت, jjafferr said:

السلام عليكم 🙂

 

اذا تسمحوا لي بالمشاركة 🙂

لإصطياد رقم الخطأ ، يجب علينا ان نستعمل حدث "on error" ، في النموذج الذي نحصل فيه على الخطأ ، وفي حالتنا ، فهو النموذج الفرعي ، هكذا:

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

    MsgBox DataErr
End Sub

 

وعند التجربة ، نحصل على هذا:

 

الآن وقد عرفنا رقم الخطأ ، اصبح من السهل التعامل معاه ، هكذا مثلا:

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

    'MsgBox DataErr
    
    If DataErr = 3314 Then
        Response = acDataErrContinue
        strMsg = "لا يمكن ترك الحقل التالي فارغ " & vbCrLf & _
                 "المنصرف بالوحدة الصغرى"
        MsgBox strMsg
    End If

End Sub

 

ونلقى هذه الرسالة الآن:

 

جعفر

1110.Market.accdb.zip 43.13 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 4 downloads

ماشاء الله عليك يا اخ جعفر.. عبقري الله اكبر عليك.. 

معلش ليا طلب تاني و انا عارف اني طلبته قبل كده.. بس اتعشم فيك و في خبرتك انك تساعدني.. 

في نفس قاعدة البيانات دي في النموذج الفرعي.. 

عند كتابة كود الصنف في خانة باركود يتم جلب باقي بيانات الصنف من جدول الاصناف.. 

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

المطلوب.. 

في حقل باركود في النموذج الفرعي اذا قمت بكتابة الباركود او الكود المختصر (ايهما) للصنف يتم استيراد باقي بيانات الصنف من جدول الاصناف.. 

ولك جزيل للشكر يا اخي الفاضل

[jjafferr]

حياك الله 🙂

 

7 ساعات مضت, Hussein888 said:

معلش ليا طلب تاني

على راسي ، ولكن شروط المنتدى لا تسمح لأكثر من سؤال في موضوع واحد 🙂

 

7 ساعات مضت, Hussein888 said:

و انا عارف اني طلبته قبل كده

رجاء ارفاق رابط بالموضوع ، او تعمل موضوع جديد ، وترفق الرابط هنا 🙂

 

جعفر

[Hussein888]

6 ساعات مضت, jjafferr said:

حياك الله 🙂

 

على راسي ، ولكن شروط المنتدى لا تسمح لأكثر من سؤال في موضوع واحد 🙂

 

رجاء ارفاق رابط بالموضوع ، او تعمل موضوع جديد ، وترفق الرابط هنا 🙂

 

جعفر

تسلم راسك يا استاذنا.. 

تفضل رابط الموضوع 

ويكفيني أهتمامك