عمل رسالة تنبيه بشرط

[حمدى الظابط]

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

1 - فى حالة عدم وجود نص فى مربع النص الغير منضم msg تظهر رسالة تنبيه ( لايوجد نص للارسال )

 

2 - فى حالة عدم وجود رقم هاتف فى السجل يكتب فى حقل حالة الارسال ( لايوجد هاتف )

وفى حالة عدم اشتراك رقم الهاتف فى الوتساب يكتب فى حقل حالة الارسال ليس لديه واتساب

وكل الاحترام والتقدير للجميع

تجرية.rar

[Eng.Qassim]

وعليكم السلام اخي حمدى

بالنسبة لسؤالك الاول والثاني ..اضف التالي في بداية كود الارسال

  If IsNull(Me.msg) Then
    MsgBox ("لايوجد نص للارسال")
    Exit Sub
 End If
 If IsNull([email1].Form![phone_number]) Then
    MsgBox ("لايوجد هاتف")
    Exit Sub
 End If

اما بالنسبة لسؤالك الثالث..بصراحة ليس لي علم به لكني سألت الموقع الذكي واعطاني الكود التالي ولم اتحقق منه

On Error GoTo ErrorHandler
' Your code to send the message using WhatsApp goes here

ErrorHandler:
  If Err.Number = "-2147023170" Then ' This error number corresponds to the "Object doesn't support this property or method" error
    MsgBox "The mobile number is not connected to WhatsApp. Please try a different number."
  Else
    MsgBox "An error occurred while sending the message: " & Err.Description
    Exit Sub
  End If

قم بوضعه بعد هذه الجملة ..جربه واعطنا النتيجة

Set IE = CreateObject("InternetExplorer.Application")

 

[حمدى الظابط]

5 ساعات مضت, Eng.Qassim said:

وعليكم السلام اخي حمدى

بالنسبة لسؤالك الاول والثاني ..اضف التالي في بداية كود الارسال

  If IsNull(Me.msg) Then
    MsgBox ("لايوجد نص للارسال")
    Exit Sub
 End If
 If IsNull([email1].Form![phone_number]) Then
    MsgBox ("لايوجد هاتف")
    Exit Sub
 End If

اما بالنسبة لسؤالك الثالث..بصراحة ليس لي علم به لكني سألت الموقع الذكي واعطاني الكود التالي ولم اتحقق منه

On Error GoTo ErrorHandler
' Your code to send the message using WhatsApp goes here

ErrorHandler:
  If Err.Number = "-2147023170" Then ' This error number corresponds to the "Object doesn't support this property or method" error
    MsgBox "The mobile number is not connected to WhatsApp. Please try a different number."
  Else
    MsgBox "An error occurred while sending the message: " & Err.Description
    Exit Sub
  End If

قم بوضعه بعد هذه الجملة ..جربه واعطنا النتيجة

Set IE = CreateObject("InternetExplorer.Application")

 

السلام عليكم

تحياتى وتقديرى وجعلك لله عونا لنا وفى ميزان حسناتك

بالنسبة للكود الاول تم حل النصف الاول من الكود وهو ظهور رسالة فى حالة عدم وجود نص اما الجزء الثانى ( فى حالة عدم وجود رقم هاتف ) لم يتم الحل لذلك اسمح لى ان اوضح لكل المطلوب بشأن الجزء الثانى وهو عند عدم وجود رقم هاتف يكتب فى حقل SendStuts لايوجد رقم هاتف

توضيح اكثر اثناء الارسال لاكثر من رقم من قائمة الاسماء عند اتمام الارسال فى حقل SendStuts  بيكتب امام كل سجل تم الارسال واذا كان هناك سجل لم يكن فيه رقم هاتف اريد ان يكتب فى حقل SendStuts لا يوجد رقم هاتف 

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

On Error GoTo ErrorHandler
' Your code to send the message using WhatsApp goes here

ErrorHandler:
  If Err.Number = "-2147023170" Then ' This error number corresponds to the "Object doesn't support this property or method" error
    MsgBox "The mobile number is not connected to WhatsApp. Please try a different number."
  Else
    MsgBox "An error occurred while sending the message: " & Err.Description
    Exit Sub
  End If

تم تعديل يناير 6, 2023 بواسطه حمدى الظابط