ادراج ارقام الجوالات من الاستعلام في حقل نصي داخلي النموذج

[سلمان الشهراني]

المطلوب هل ممكن ادراج ارقام جوالات العملاء من الاستعلام مباشره الى حقل نصي داخل النموذج بحيث يكون كالتالي
505492597,551720068,505050505

وحيث ان اخر رقم لايتم ادراج فاصله بعده

الغرض منه انه عند فتح الشاشه يظهر ارقام العملاء الذين لديهم موعد في نفس اليوم ثم نقوم بارسال رسائل SMS

شاكر للجميع

SMS_MO_SA.rar

[jjafferr]

وعليكم السلام

 

تفضل هذا الكود للنموذج:

Private Sub COM1_Click()

    Call Form_Current
End Sub

Private Sub Form_Current()

    Dim rst As DAO.Recordset
    Dim i, Nums, RC As Integer
    
    Set rst = CurrentDb.OpenRecordset("Select * From QR_MO_SMS")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    Nums = ""
    For i = 1 To RC
        Nums = Nums & rst!No_Mobile & ","
        rst.MoveNext
    Next i
    
    Me.txtNumbers = Mid(Nums, 1, Len(Nums) - 1)
    'Or
    'Me.txtNumbers = Left(Nums, Len(Nums) - 1)
    
    rst.Close: Set rst = Nothing

End Sub

 

 

جعفر

[سلمان الشهراني]

مشالله عليك
ممتاز جدا مشالله تبارك  الله

ربي يعطيك العافيه