سؤال في الدالة التكرارية

[nonar]

السلام عليكم .. 
لدي برنامج لإرسال الرسائل SMS الخاص بموقع mobily.ws

وعندي مجموعة من الإرقام أريد ارسال رسائل لهم .. 

البرنامج يضع جميع الأرقام .. ويتم ارسال الرسالة ( شي عادي ) 
المطلوب هو عمل دالة تكرارية بحيث يتم اخد الاسم من السجل الأول ( ويضعه ضمن نص الرسالة ) مثل (((( أخي [ الاسم فيالسجل الأول ] بقية نص الرسالة ))))

فلو تم تحديد ثلاثة أسماء ستكون الدالة التكرارية ثلاث مرات ( تقوم من خلالها بإرسال ثلاث رسائل ( كل رسالة تحتوي على اسم المرسل له  بالإضافة لبقية نص الرسالة )
 

test.rar

[ابوآمنة]

تفضل لعله يكون هذا طلبك

Select Case MsgBox(Prompt:="هل تريد إكمال عملية إشعار المقبولين ؟", Title:=Compan, Buttons:=vbYesNo + vbInformation + vbDefaultButton1 + 1572864)

Case vbYes

Dim RC As Integer
Dim i As Integer
Dim rst As Variant
Dim T As String
Set rst = CurrentDb.OpenRecordset("Select * From QrySet where [rashaqa]=" & Me.a & "")
rst.MoveLast: rst.MoveFirst
RC = rst.RecordCount
For i = 1 To RC


    txtMessage = "السلام عليكم أ." & qsplit(rst.leader_name, 0) & vbCrLf & _
    "تم قبولك في دورة" & vbCrLf & rst.school_name & _
    vbCrLf & "المكان" & vbCrLf & rst.marhala & _
    vbCrLf & "نهاية الرسالة"
    
    T = send(URLEncode(UserName), URLEncode(Password), ConvertToUnicode(txtMessage.Value), txtSender.Value, rst.phone1.Value)
    ShowResult T
    updateBalance
    rst.MoveNext
Next i
rst.close: Set rst = Nothing
txtMessage = ""
MsgBox "لقد تمت العملية بنجاح"
Case vbNo
MsgBox "تم الرجوع" 
End Select

 

test.accdb

[nonar]

السلام عليكم ... 
شكرا لردك الكريم ولكن لم تضبط العملية

[ابوآمنة]

2 ساعات مضت, nonar said:

السلام عليكم ... 
شكرا لردك الكريم ولكن لم تضبط العملية

ما هي المشكلة بالضبط . وما هو نوع الخطأ.