اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

شاكر للجميع

SMS_MO_SA.rar

رابط هذا التعليق
شارك

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

 

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


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

 

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information