[MS_AccessPros] Function doesn't work.

 

Dear All,

Please help me with the function. It dosen't work. I am using ACCESS 2016. Thanks in advance.

Public Function CallQQ(Optional QQnum As String)
    On Error Resume Next
    Dim webAddreess As String
    Dim Web As Object
    Set Web = CreateObject("InternetExplorer.Application")
    Web.Visible = True
    webAddreess = "http://wpa.qq.com/msgrd?v=3&uin=" & QQnum & "&site=qq&menu=yes"
    Web.Navigate webAddreess
End Function

Best Regards,
Kevin

---

qingqinga@yahoo.com

__._,_.___

---

Posted by: "qingqinga@yahoo.com" <qingqinga@yahoo.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (1)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___