رسالة موافق غير موافق

[cocacola7]

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

لدي الكود التالي :

 

numberfield = Me.fash

 

 

Dim A

A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ")

If Not (IsNull(A)) Then

MsgBox "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان", vbCritical, "رسالة تحـــزيرية"

Cancel = True

Me.Undo

DoCmd.FindRecord numberfield

End If

End Sub

 

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

 

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

السجل وعند الضغط على زر الغاء الامر لا يتم عرض بيانات السجل ويتيح للمستخدم اكمال بياناته. 

 

 

شكرا لكم مقدما 

 

اعتذر منكم الكود في الرسالة السابقة لم يتم تنسيقه بشكل صحيح بسبب اللغة في الرسالة

هذا هو الكود الذي لدي 

 

numberfield = Me.fash
Dim A
A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ")
If Not (IsNull(A)) Then
MsgBox "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان", vbCritical, "رسالة تحـــزيرية"
Cancel = True
Me.Undo
DoCmd.FindRecord numberfield
End If
End Sub

[cocacola7]

تم تعديل مارس 24, 2022 بواسطه cocacola7

[د.كاف يار]

تفضل جرب هذا التعديل

numberfield = Me.fash
Dim A As String, MsgTitle As String, MsgBody As String

MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان"
MsgTitle = "رسالة تحـــزيرية"

A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _
" AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ")

If Not (IsNull(A)) Then
    If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then
        Cancel = True
        Me.Undo
        DoCmd.FindRecord numberfield
    End If
End If

 

[cocacola7]

في 24‏/3‏/2022 at 11:47, د.كاف يار said:

تفضل جرب هذا التعديل

numberfield = Me.fash
Dim A As String, MsgTitle As String, MsgBody As String

MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان"
MsgTitle = "رسالة تحـــزيرية"

A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _
" AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ")

If Not (IsNull(A)) Then
    If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then
        Cancel = True
        Me.Undo
        DoCmd.FindRecord numberfield
    End If
End If

 

شكر لك اخي د. كاف يار

 

اريد منك تعديل بسيط وهو عند اختيار ظهور الرسالة وقام المستخدم باختيار لا فانه لايحدث شيء والمؤشر يعود في التركيز على مربع النص 

[ازهر عبد العزيز]

numberfield = Me.fash
Dim A As String, MsgTitle As String, MsgBody As String

MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان"
MsgTitle = "رسالة تحـــزيرية"

A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _
" AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ")

If Not (IsNull(A)) Then
    If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then
        Cancel = True
        Me.Undo
        DoCmd.FindRecord numberfield
  else
Me.fash.SetFocus
  End If
End If

[cocacola7]

18 ساعات مضت, ازهر عبد العزيز said:

numberfield = Me.fash
Dim A As String, MsgTitle As String, MsgBody As String

MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان"
MsgTitle = "رسالة تحـــزيرية"

A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _
" AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ")

If Not (IsNull(A)) Then
    If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then
        Cancel = True
        Me.Undo
        DoCmd.FindRecord numberfield
  else
Me.fash.SetFocus
  End If
End If

شكرا لك  اخي ازهر 🙂🙂🙂

 ممتاز و لكن تظهر لي الرسالة التالية , اريد عدم ظهور هذه الرسالة اذا تكرمت

1 دقيقه مضت, cocacola7 said:

شكرا لك  اخي ازهر 🙂🙂🙂

 ممتاز و لكن تظهر لي الرسالة التالية , اريد عدم ظهور هذه الرسالة اذا تكرمت

[ازهر عبد العزيز]

numberfield = Me.fash
Dim A As String, MsgTitle As String, MsgBody As String

MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان"
MsgTitle = "رسالة تحـــزيرية"

A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _
" AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ")

If Not (IsNull(A)) Then
    If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then
        Cancel = True
        Me.Undo
        DoCmd.FindRecord numberfield
  else
call Undo
Me.fash.SetFocus
  End If
End If