Microsoft Access Forums

Microsoft Access Forums - Misc http://www.accessforums.net/ PHP, MySQL, Windows and any other technical discussions unrelated to Access. en Wed, 19 Jun 2013 12:34:42 GMT vBulletin 60 http://www.accessforums.net/images/misc/rss.png Microsoft Access Forums - Misc http://www.accessforums.net/ Mocrosoft web browser control can not display the web page http://www.accessforums.net/misc/mocrosoft-web-browser-control-can-not-display-35341.html Sun, 02 Jun 2013 18:39:24 GMT Dear all, At first, I am a new user in vba. Learning from web and other examples. I am using ms access 2007 in windows 7 32 bit and IE9 and IE10.... Dear all,
At first, I am a new user in vba. Learning from web and other examples. I am using ms access 2007 in windows 7 32 bit and IE9 and IE10.
Let's go to the subject. I created a form to display the web page with Microsoft web browser control. I used a textbox 'text0' for address bar and a command button 'command2' for on-click event procedure.

I used the code:

Code:

Private Sub Command2_Click()Dim varAdd As String

varAdd = "me.Text0"

If Text0 > 0 Then

Me.WebBrowser4.Navigate "varAdd"

Else

Me.WebBrowser4.Navigate "www.google.com.sa"

End If

End Sub

]
With that code I couldn't open any web page if I type any web address on text0 field. The web page shows "Navigation to the webpage was canceled". But If 'text0' field is empty, it works fine.
I reset Internet Explorer's setting to default but that was also not working.
Any help is appreciated.

Thanks
]]> Misc tamangspace http://www.accessforums.net/misc/mocrosoft-web-browser-control-can-not-display-35341.html <![CDATA[[Solved] linked mysql database]]> http://www.accessforums.net/misc/linked-mysql-database-35238.html Wed, 29 May 2013 01:56:30 GMT Access 2013 x64, mysql 5.5.31

I've got this vba sub routine. When I call the sub it always returns 1. Any help is much appreciated.

It's a simple cocktail program.

Sub Order(recipe_id As Integer, recipe_qty As Integer)
Dim msg As String
Dim dbs As Database
Dim rs As Recordset
Dim strSQL As String
Set db = CurrentDb()
Dim count As Integer

strSQL = "SELECT * FROM `ingredients` WHERE recipe_id = " & recipe_id & ";"
Set rs = dbs.OpenRecordset(strSQL)
count = rs.RecordCount
MsgBox (count)
End Sub

I've never used SQL in VBA before so there is a good chance I'm doing something completely wrong ]]> Misc nkuebelbeck http://www.accessforums.net/misc/linked-mysql-database-35238.html