VBA to add dlookup

SjCc

Registered User.
Local time
Today, 11:01
Joined
Oct 5, 2017
Messages
67
//sendpk.com/api/sms.php?username=xxxx&password=xxx&sender=BrandName&mobile=xxx&message=TestSMS[/url]


here above is the link i am sending sms...
now i have a form named "Send_SMS" with two text boxes one is named "Number" where i am entering number (text field), second named as "Message" where typing text message as text.

in the above link i want this link to see this form fields like;

Mobile = number text box value
message = message text box value
 
Concatenate literal text with variables. Where exactly are you constructing this string? Post the procedure, at least enough to show how you are handling this string.
 
Concatenate literal text with variables. Where exactly are you constructing this string? Post the procedure, at least enough to show how you are handling this string.



here is the function

Option Compare Database

Function OpenDocument(ByVal strURLLink As String) As Boolean
On Error GoTo Catch

'' This opens the link in the default program or web browser of your computer.
Application.FollowHyperlink (strURLLink)



OpenDocument = True

Exit Function

Catch:
OpenDocument = False
MsgBox "Error#: " & Err.number & vbCrLf & vbCrLf & Err.Description
End Function


here is the call option sorry i cant write http here bcz i am new and this page not accepting sending links..


call opendocument
http://sendpk.com/api/sms.php?username=123&password=123&sender=BrandName&mobile=1234&message=TestSMS

now i need this above API to see my form fields textbox "Number" text field and "Message" textfield where .. i tell you..

in API it is mention/written mobile=
so i need that this to see mobile=(number) text field in SendSMS form
message=(testSMS) text field in SendSMS form
 
Use CODE tags for posting code to retain indentation and readability. Making the post accept a string that looks like a URL and not parse it as such is tricky but possible.

Code:
call opendocument "http://sendpk.com/api/sms.php?username=xxxx&password=xxx&sender=BrandName&mobile=" & Me.Number & "&message=" & Me.Message
 

Users who are viewing this thread

Back
Top Bottom