تعديل في كتابة الكود const للاتصال بموقع الارسال

تفضل اخي الكريم

الملف بعد التعديل فيما يخص العلامة مع الإسم والرقم السري

za-mobily access.rar

بالتوفيق

صباح الخير يا استاذتنا زهره

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

انا بقولك الاخ السراج يبغى يغير الثابت username و password الى متغير ياخذ بياناته من جدول وبس وبكل بساطه

وانتي تعرفي الاجابه بس انا بريحك واكسب دعوه معاك واشاركك الاجر

تفضل اخي السراج

za-mobily access2.rar

البراااق كتب:

صباح الخير يا استاذتنا زهره

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

انا بقولك الاخ السراج يبغى يغير الثابت username و password الى متغير ياخذ بياناته من جدول وبس وبكل بساطه

وانتي تعرفي الاجابه بس انا بريحك واكسب دعوه معاك واشاركك الاجر

تفضل اخي السراج

نعم بارك الله فيك أخي الكريم .. البراق ... هذا هو المطلوب

ولا حرمك الله الأجر

<<<<<< والله العظيم كثرت الكلام قلت علشان الكل يفهم ومع ذلك قصرت

قهمت استاذتنا القديرة زهزة أني أريد تثبت او مسح اسم المستخدم وكلمة المرور في النموذج بينما كان المقصود هو تغير الثابت كما ذكر الاخر البراق

بارك الله في الجميع

واستاذتنا زهرة لها كل الشكر والتقدير

طيب باقي انثين وثلاثه هل نفتح لها موضوع مستقل

والسلام ختام

الفقرة الثانيه:

1- تحتاج الى اضافة حقل نعم/لا بجوار الاسم ورقم الجوال

2- تحتاج الى استعلامين واحد يطلع لك اللى عنده علامة صح والثاني مايطلع اللى عندة علامة صح .

3- تحتاج الى نموذجين مستمرين لعرض بيانات الاستعلامين .

4- اضف النموذجين الى النموذج الرئيسي الذي به زر الارسال .

5- في الحدث لزر الارسال تحتاج الى التالي :

Private Sub cmd_Click()
Dim n1, n2 As Integer
n1 = Forms![اسم النموذج الذي به الارقام المحددة].Recordset.RecordCount - 1
DoCmd.GoToRecord , , acFirst
Me.[مربع نص الارقام المجمعة للارسال] = Forms![اسم النموذج الذي به الارقام المحددة]![مربع نص رقم الجوال] & ","
For n2 = 1 To n
DoCmd.GoToRecord , , acGoTo, n2
Me.[مربع نص الارقام المجمعة للارسال] = Forms![اسم النموذج الذي به الارقام المحددة]![مربع نص رقم الجوال] & ","
Next
End Sub

البراااق كتب:

الفقرة الثانيه:

1- تحتاج الى اضافة حقل نعم/لا بجوار الاسم ورقم الجوال

2- تحتاج الى استعلامين واحد يطلع لك اللى عنده علامة صح والثاني مايطلع اللى عندة علامة صح .

3- تحتاج الى نموذجين مستمرين لعرض بيانات الاستعلامين .

4- اضف النموذجين الى النموذج الرئيسي الذي به زر الارسال .

5- في الحدث لزر الارسال تحتاج الى التالي :

n1 = Forms![اسم النموذج الذي به الارقام المحددة].Recordset.RecordCount - 1

قمت بعمل الفقرات ولكن يعطيني خطأ في النموذج ويلونه باللون الاصفر كما في الاقتباس

za-mobily access2.rar

تفضل اخي الكريم

ولا تنساني من دعائك

AZmobilyaccess4.rar

البراااق كتب:

تفضل اخي الكريم

ولا تنساني من دعائك

جزاك الله ألف خير

وجرم الله وجهك عن النار وبيض الله وجهك يوم تسود وجوه وتبيض وجوه

أستاذي الفاضل .. البرااق ...

البرانج في الاحيان يرسل وفي الاحيان لا يرسل مع العلم أنه لا يرسل إلى الارقام كلهم مرة واحدة بل كل رقم لوحده وفي بعض الاحيان لا يرسل

والسلام ختام

اخي الكريم

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

اولا : لكي تتمكن من الارسال اذا كان الرصيد يسمح حتى ينتهي الرصيد ويتوقف

ثانيا : يقوم البرنامج بالتاكد من عدد الخانات والتاكد ان الرقم صحيح قبل الارسال.

ثالثا : اذا كان عدد الاشخاص الذين تريد ان ترسل لهم رسائل كبير جدا يعني اكثر من الف شخص فانها سوف تواجهك مشكله بالموقع ولن يتم الارسال .

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

وبالتوفيق ....

تفضل اخوي السرااج

لعيونك شريط الحالة (progress bar)

اتمنى لك التوفيق

AZmobilyaccess5.rar

البراااق كتب:

تفضل اخوي السرااج

لعيونك شريط الحالة (progress bar)

اتمنى لك التوفيق

أخي الكريم .. البرااق ...

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

بعد التجربة وجدت أن البرنامج يرسل للجيمع ماعدا آخر سجل فقمت بعديل بسيط على الكود

A = Nz(Me.frm_1.Form.Recordset.RecordCount - 1)

ليصبح

A = Nz(Me.frm_1.Form.Recordset.RecordCount - 0)

فقام يرسل للجيمع حتى آخر سجل

فهل عملي صحيح

والسلام ختام

امسح الصفر وامسح علامة الناقص

ما دامه ضبط معك والله يوفقك ويرعاك