مشكلة في رسالة خطاء في الاستعلامات ومشكلة في استعلام دالة like

[بندر بندر]

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

عندي هذا قاعدة البيانات كل الاستعلامات اذا دخلت الاستعلام المطلوب وحطيت موافق ينفذ لكن اذا حطيت الغاء الامر او x يطلع رسالة خطاء

ايضا استعلام دالة like اول ماسويه من الاستعلامات يشتغل معي مرتين الى 3 مرات ثم يصير يطلع كل السجلات بدون مايطلع لي رسالة الاستعلام عشان ادخل المطلوب 

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

وشكرا

20.rar

تم تعديل مايو 11, 2022 بواسطه بندر بندر

[ابو ياسين المشولي]

اتفضل

On Error GoTo أمر21_Err
If MsgBox("هل تريد الحذف", vbYesNo + 48, "رسالة تنبيه") = vbYes Then

    With CodeContextObject
        On Error Resume Next
        DoCmd.GoToControl Screen.PreviousControl.Name
        Err.Clear
        If (Not .Form.NewRecord) Then
            DoCmd.RunCommand acCmdDeleteRecord
        End If
        If (.Form.NewRecord And Not .Form.Dirty) Then
            Beep
        End If
        If (.Form.NewRecord And .Form.Dirty) Then
            DoCmd.RunCommand acCmdUndo
        End If
        If (.MacroError <> 0) Then
            Beep
            MsgBox .MacroError.Description, vbOKOnly, ""
        End If
    End With

Else
MsgBox "تم الرجوع", 48, "رسالة تنبيه"
End If

أمر21_Exit:
    Exit Sub

أمر21_Err:
    MsgBox Error$
    Resume أمر21_Exit

 

20.rar

[بندر بندر]

في 13‏/5‏/2022 at 17:22, ابو ياسين المشولي said:

اتفضل

On Error GoTo أمر21_Err
If MsgBox("هل تريد الحذف", vbYesNo + 48, "رسالة تنبيه") = vbYes Then

    With CodeContextObject
        On Error Resume Next
        DoCmd.GoToControl Screen.PreviousControl.Name
        Err.Clear
        If (Not .Form.NewRecord) Then
            DoCmd.RunCommand acCmdDeleteRecord
        End If
        If (.Form.NewRecord And Not .Form.Dirty) Then
            Beep
        End If
        If (.Form.NewRecord And .Form.Dirty) Then
            DoCmd.RunCommand acCmdUndo
        End If
        If (.MacroError <> 0) Then
            Beep
            MsgBox .MacroError.Description, vbOKOnly, ""
        End If
    End With

Else
MsgBox "تم الرجوع", 48, "رسالة تنبيه"
End If

أمر21_Exit:
    Exit Sub

أمر21_Err:
    MsgBox Error$
    Resume أمر21_Exit

 

20.rar 81.98 kB · 0 downloads

مشكور الله يسعدك