أكواد إرسال رسائل SMS من خلال نموذج أكسس

[الساحة البريدية]

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

 

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

المطلوب هو إنشاء زر ، ووضع كود فيه يقوم بإرسال رسالة جوال لجميع أرقام الهواتف الموجودة في الجدول 

 

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

 

في الملف المرفق برنامجي الموضح ، أرغب في مساعدتي بوضع كود ارسال رسائل جوال من أي موقع رسائل جوال ، لا يهم نوع الموقع ، أهم شيء كود شغال ومضمون ، وسوف أقوم بالاشتراك مع الموقع الذي لديه كود شغال بدون مشاكل 

 

بانتظار مساعدتكم وفقني الله وإياكم لكل خير

 

والبرنامج مرفق 

 

maysoon.rar

[ابوخليل]

18 ساعات مضت, الساحة البريدية said:

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

الموضوع  قديم  وجزيت خيرا  انك اثرته  وكان بحاجة الى تنقيح بعض المشاركات الزائدة .

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

 

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

وتحقيقا لرغبتك  حيث انك في مثالك ادرجت قوائم بالارقام ، فهذا مثال  لكيفية جمع الارقام  من القائمة ووضعها في مربع النص

امل ان تجد الفائدة والمتعة

a.rar

[الساحة البريدية]

الله يجزاك خير .. كان ودي التعديل يكون على المثال اللي أنا ارفقته ، علشان يسهل علي إكمال مهمتي 

 

وفقني الله وإياكم لكل خير

[الساحة البريدية]

السادة فطاحلة الأكسس

ياليت التعديل على المثال اللي انا رفعته ، ما قدرت انقل الأكواد 

[الساحة البريدية]

طيب يا أبو خليل ، النموذج اللي أنت عدلت عليه ما يمكن انه يجلب أرقام جديدة من قاعدة البيانات أو من نموذج إدخال

 

maysoon.rar

[الساحة البريدية]

او عطني طريقة لدمج ارقام الهواتف من حقل في جدول إلى مربع نص 

[ابوخليل]

4 ساعات مضت, الساحة البريدية said:

او عطني طريقة لدمج ارقام الهواتف من حقل في جدول إلى مربع نص 

انا عطيتك في المثال السابق 

ولخاطرك  تفضل تم التعديل وتشغيل الكود على مثالك 

maysoon2.rar

[الساحة البريدية]

بيض الله وجهك يا دكتور الأكسس

 

لكن ليش مربع النص يمسح الرقم ( 9 ) لأول رقم جوال في القائمة ؟

عدلت الكود :

AllTel = Right(AllTel, Len(AllTel) - 2)

AllTel = Right(AllTel, Len(AllTel) - 1)

وضبط 

[saeed.dh.z]

كل عام وانتم بخير أعاد الله رمضان عليكم بالخير واليمن والبركات

 

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

استاذنا الجليل ابو خليل

كيف نضيف للكود حذف الارقام المكررة

Dim AllTel As String
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("end")
With rs
.MoveFirst
While Not .EOF
If Len(.Fields("رقم الجوال")) = 10 Then
AllTel = AllTel & "," & "966" & Right(.Fields("رقم الجوال"), 9)
End If
.MoveNext
Wend
.Close
End With
AllTel = Right(AllTel, Len(AllTel) - 1)
txt1 = AllTel
txt1.SetFocus

 

تم تعديل ديسمبر 22, 2018 بواسطه ابوخليل
تعديل عرض الكود

[ابوخليل]

الفكرة جميلة بادخال الرمز الدولي آليا من البرنامج ، لان الادخالات غالبا وسؤال العميل عن رقمه المحلي

انا استخدم  هذه الطريقة ولكني اثبتها في مصدر البيانات نفسه

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

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

Dim AllTel As String
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT tbl1.jwal FROM tbl1 GROUP BY tbl1.jwal")
With rs
.MoveFirst
While Not .EOF
If Len(.Fields("jwal")) = 10 Then
AllTel = AllTel & "," & "966" & Right(.Fields("jwal"), 9)
End If
.MoveNext
Wend
.Close
End With
AllTel = Right(AllTel, Len(AllTel) - 1)
txt1 = AllTel
txt1.SetFocus

ملحوظة : غير  اسم الجدول واسم الحقل حسب الموجود عندك

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

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

ولكن ما اعانيه هو الرقم المكرر فقط

Set rs = CurrentDb.OpenRecordset("SELECT * FROM data WHERE date >=#" & Format([Forms]![Search3]![snddate], "yyyy/mm/dd") & "# And   notaslem = True And   57 = True")

 

[ابوخليل]

انا اجبت على السؤال بالضبط

حسب كودك الظاهر  وحسب المثال المعمول عليه ،  وقد ارفقته الآن بعد التعديل

اما ان يكون مصدر البيانات يشتمل على عدة معايير  فهذا يختلف ، يمكنك جعل المصدر للرسائل  الاستعلام الحاصل بعد التصفية

ملحوظة :

True And   57 = True

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

 

mysn3.mdb

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

منذ ساعه, ابوخليل said:

انا اجبت على السؤال بالضبط

حسب كودك الظاهر  وحسب المثال المعمول عليه ،  وقد ارفقته الآن بعد التعديل

اما ان يكون مصدر البيانات يشتمل على عدة معايير  فهذا يختلف ، يمكنك جعل المصدر للرسائل  الاستعلام الحاصل بعد التصفية

ملحوظة :

True And   57 = True

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

 

mysn3.mdb

الف شكر لك استاذي القدير ابو خليل

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

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

Set rs = CurrentDb.OpenRecordset("SELECT Count(Data.goal) AS Countãägoal, Data.goal, Data.date, Data.[57], Data.notaslem " & vbCrLf & _
"FROM Data " & vbCrLf & _
"GROUP BY Data.goal, Data.date, Data.[57], Data.notaslem " & vbCrLf & _
"HAVING (((Data.date)>=#" & Format([Forms]![Search3]![snddate], "yyyy/mm/dd") & "#)  AND ((Data.[57])=True) AND ((Data.notaslem)=True));")

 

تم تعديل ديسمبر 23, 2018 بواسطه ابو ياسين المشولي