Sleekmac
Registered User.
- Local time
- Today, 15:43
- Joined
- Sep 25, 2006
- Messages
- 34
Hi all...trying to add functionality to my custom browser to link directly to the results of a serach in this very forum's search page. For some reason it's not working, I am thinking it's either because it's PHP code, or because the target input field has an illegal name.
My form that has the browser control in it also has a textbox called searchString. I put my keywords in there and then click a button that executes me.mainBrowser.Navigate "http://www.access-programmers.co.uk/forums/search.php"
The error is on Me.mainBrowser.Document.all.query.Value= sstring
I know the name of the field is "query" because I am looking at the page source in a seperate window. [Except:]
<legend>Search by Key Word</legend>
<table cellpadding="0" cellspacing="3" border="0">
<tr>
<td colspan="2">
<div>Key Word(s):</div>
<div><input type="text" class="bginput" name="query" size="35" value="" style="width:250px" /></div>
</td>
</tr>
Any ideas? Thanks in advance.
My form that has the browser control in it also has a textbox called searchString. I put my keywords in there and then click a button that executes me.mainBrowser.Navigate "http://www.access-programmers.co.uk/forums/search.php"
Code:
Private Sub mainBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "http://www.access-programmers.co.uk/forums/search.php" Then
Dim sstring As String
sstring = Me.SearchString.Value
Me.mainBrowser.Document.all.query.Value= sstring
Me.mainBrowser.Document.all.dosearch.Click
End If
End Sub
The error is on Me.mainBrowser.Document.all.query.Value= sstring
I know the name of the field is "query" because I am looking at the page source in a seperate window. [Except:]
<legend>Search by Key Word</legend>
<table cellpadding="0" cellspacing="3" border="0">
<tr>
<td colspan="2">
<div>Key Word(s):</div>
<div><input type="text" class="bginput" name="query" size="35" value="" style="width:250px" /></div>
</td>
</tr>
Any ideas? Thanks in advance.