برنامج رسائل الجوال وطلب؟؟؟

[ابو البشر]

أخواني الأعزاء :

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

سؤالي حول برنامج ارسال الرسائل للجوال : هل يمكن اضافة اسم المرسل إليه تلقائية ضمن العبارات التي تكتب في الرسالة ؟

 

 

بارك الله في جهودكم ............... مرفق مثال للتعديل عليه

حضور الطلاب 1.rar

[ابوخليل]

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

لذا يلزم  انشاء نموذج فرعي داخل نموذج الرسائل مصدره الجدول او الاستعلام المذكور 

وباستخدام الدالة For يمكننا المرور والانتقاء من مجموعة السجلات الموجودة في النموذج الفرعي ثم ادراجها بين القوسين  بدلا أو مع حقل الرسالة (txtMessage.Text) :

 

Private Sub SendMessage()
Dim t As String
t = send(URLEncode(username), URLEncode(Password), ConvertToUnicode(txtMessage.Text), txtSender.Text, txtNumbers.Text)
ShowResult (t)
End Sub

[ابو البشر]

السلام عليكم أخي واستاذي ابا خليل 

 

بارك الله فيك وجاري التجربة ...............

[ابو البشر]

لم تنجح معي الطريقة ..... ممكن تعدل على الملف أبا خليل

[ابوخليل]

ارفق محاولاتك وآخر ما توصلت اليه

يكتفى في المثال على النموذج والنموذج الفرعي ومصدر البيانات فقط