Fetch multiple data in a text box in access vba

[prithwisaha]

Actually there will be 7 similar forms with different parameters with save data button and simultaneously there will be a master user form with mobile numbers with check boxes. Each form data will be send as sms to the numbers as in the master form. Say form1 will be having 3 numbers form2 will be having 5 numbers. After the data is saved in each form send sms button will be there to send the sms to the selected users as mentioned in the master.



This is the actual app need to be created in access
please help

[prithwisaha]

THE CODE I AM USING AFTER BUTTON CLICK TO SEND SMS IS AS FOLLOWS:

Private Sub Command10_Click()


Dim strURL As String
Dim neMb As String
Dim msGe As String

Set appIE = CreateObject("InternetExplorer.Application")
neMb = Me.Number.Value
msGe = Me.CHECK_SMS.Value


strURL = "http://bhashsms.com/api/sendmsg.php?user=success&pass=654321&sender=BSHSMS &phone=" & neMb & "text=" & msGe & "priority=ndnd&stype = normal"




With appIE
.Navigate strURL
' uncomment the line below if you want to watch the code execute, or for debugging
'.Visible = True
End With
' loop until the page finishes loading
Do While appIE.busy
DoEvents
Loop


appIE.Quit




End Sub

[prithwisaha]

Actually there will be 7 similar forms with different parameters with save data button and simultaneously there will be a master user form with mobile numbers with check boxes. Each form data will be send as sms to the numbers as in the master form. Say form1 will be having 3 numbers form2 will be having 5 numbers. After the data is saved in each form send sms button will be there to send the sms to the selected users as mentioned in the master.

This is the actual app need to be created in access
please help

[prithwisaha]

THE CODE I AM USING AFTER BUTTON CLICK TO SEND SMS IS AS FOLLOWS:

Private Sub Command10_Click()


Dim strURL As String
Dim neMb As String
Dim msGe As String

Set appIE = CreateObject("InternetExplorer.Application")
neMb = Me.Number.Value
msGe = Me.CHECK_SMS.Value


strURL = "http://bhashsms.com/api/sendmsg.php?user=success&pass=654321&sender=BSHSMS &phone=" & neMb & "text=" & msGe & "priority=ndnd&stype = normal"




With appIE
.Navigate strURL
' uncomment the line below if you want to watch the code execute, or for debugging
'.Visible = True
End With
' loop until the page finishes loading
Do While appIE.busy
DoEvents
Loop


appIE.Quit




End Sub

[June7]

Concatenate text into the expression if you want field names.

="Entry Date: " & [Entry_Date] & Chr(13) & Chr(10) & "Shift: " & [Shift] & Chr(13) & Chr(10) & "Status: " & [Status] & Chr(13) & Chr(10) & "Size Dn: " & [Size_Dn] & Chr(13) & Chr(10) & "Gauge Dia: " & [Gauge_Dia] & Chr(13) & Chr(10) & "Load: " & [Load] & Chr(13) & Chr(10) & "Hardness: " & [Hardness] & Chr(13) & Chr(10) & "Time: " & [Time]

I have no idea how to make the SMS recognize line returns. Unless HTML code tags will work. Then instead of referencing the textbox in VBA:

msGe ="Entry Date: " & [Entry_Date] & "<br>Shift: " & [Shift] & "<br>Status: " & [Status] & "<br>Size Dn: " & [Size_Dn] & "<br>Gauge Dia: " & [Gauge_Dia] & "<br>Load: " & [Load] & "<br>Hardness: " & [Hardness] & "<br>Time: " & [Time]

[prithwisaha]

Can i give heading in the text box as for which from i am providing the data. as for above example say: "CORE DATA" Before the entry date??

[June7]

Concatenate whatever text you want. Follow the syntax provided. Show your attempt if you have issue.

[prithwisaha]

Yes its done. thanks a lot. i am able to send sms to a single number at a time. i want multiple users to send the same sms at a time. is it possible through a master table??

[June7]

What do you mean by 'multiple users to send the same sms at a time'? Did you mean 'send same SMS to multiple numbers'?

[prithwisaha]

yes.. exactly.. a master form with multiple users with their phone numbers and form names. say for example form 1 sms will be received by 3 people / form2 sms will be received by 2 people etc. the master form can be edited and addition and deletion is required.

[June7]

Certainly most anything can be done with enough code. If you are successfully sending SMS with VBA in Access, pretty proves it.

VBA can open a recordset of data, cycle through the records and send SMS using info from the recordset.

I don't know your db structure enough to provide specifics - no idea why there are multiple 'forms'.

[prithwisaha]

I am having multiple forms for multiple data store in db. all are different. I am sending the DB. have a look.

I am sending a word doc with my requirement:

Thanks again.