الحصول على رقم متغير من خلال الحلقة التكرارية

[Tamer_Eshra]

Private Sub SendSMSToAll_Click()
    Dim MyR As Recordset

    
Set MyR = CurrentDb.OpenRecordset("Invoice SMS Tbl")

Do Until MyR.EOF
MsgBox MyR![MSISDNID]
MyR.MoveNext
Loop
End Sub

 

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