Prev: Data Type Mismatch
Next: How to use Seek vs FindFirst
From: a on 1 Nov 2009 09:39
My friends i have a form and object browser control i'm using object
browser control to navigate url i have problem i can't access to combo box
on the web page
the combo box name is Transporter

i'm using this code like this but not work with control Transporter
Me.Ocxbrowser.Document.all("App_number").Value ="12346566"


How can i select Transporter by code like the above

thanks in advance

this is the source code of the web page

<OBJECT id=AddPic1 style="WIDTH: 0px; HEIGHT: 0px"
codeBase="../AddPicProj3.ocx"
classid="clsid:B4CEAEA2-2B51-494C-9CF9-64CD6B131565"><PARAM NAME="Visible"
VALUE="0"><PARAM NAME="AutoScroll" VALUE="0"><PARAM NAME="AutoSize"
VALUE="0"><PARAM NAME="AxBorderStyle" VALUE="1"><PARAM NAME="Caption"
VALUE="AddPic"><PARAM NAME="Color" VALUE="2147483663"><PARAM NAME="Font"
VALUE="MS Sans Serif"><PARAM NAME="KeyPreview" VALUE="0"><PARAM
NAME="PixelsPerInch" VALUE="96"><PARAM NAME="PrintScale" VALUE="1"><PARAM
NAME="Scaled" VALUE="-1"><PARAM NAME="DropTarget" VALUE="0"><PARAM
NAME="HelpFile" VALUE=""><PARAM NAME="DoubleBuffered" VALUE="0"><PARAM
NAME="Enabled" VALUE="-1"><PARAM NAME="Cursor" VALUE="0"><PARAM
NAME="HelpType" VALUE="0"><PARAM NAME="HelpKeyword" VALUE=""></OBJECT>
<FORM name="form1" action="Visaomra_Save.asp" method="post"
ENCTYPE="multipart/form-data">
<input type=hidden name='EmbassyCode' value="302">
<input type=hidden name='AppNumber' value="31486127">

<input type=hidden name='idata' value=''>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=1 DIR=RTL width="100%"><tr><td
DIR=RTL ALIGN='RIGHT'> <span style='font-size:8.0pt;FONT-FAMILY:
Tahoma;height:0px;color=#000000'> ��� �����</td><td> <span
style='font-size:10.0pt;FONT-FAMILY: Tahoma;height:0px;color=#4040FF'>
&nbsp;:&nbsp;31486127<td><td align='center' rowspan="5"><IMG name='pimage'
height=150 alt="" src="" width=128></IMG><br><INPUT name= 'b22'
type="button" VALUE='��� ������ �������'
onclick=GoLoadImage()></td></tr><tr><td DIR=RTL ALIGN='RIGHT'> <span
style='font-size:8.0pt;FONT-FAMILY: Tahoma;height:0px;color=#000000'>
�����</td><td> <span style='font-size:10.0pt;FONT-FAMILY:
Tahoma;height:0px;color=#4040FF'> &nbsp;:&nbsp;����&nbsp;���&nbsp;�������

here the combo box that i want select one of its value from access 2003
======================================================================================================
&nbsp;&nbsp;&nbsp;HALT&nbsp;HSN&nbsp;ALLBODY<td></tr><tr><td DIR=RTL
ALIGN='RIGHT'> <span style='font-size:8.0pt;FONT-FAMILY:
Tahoma;height:0px;color=#000000'> �������</td><td> <span
style='font-size:10.0pt;FONT-FAMILY: Tahoma;height:0px;color=#4040FF'>
&nbsp;:&nbsp;����� ��� ���<td></tr><tr><td DIR=RTL ALIGN='RIGHT'> <span
style='font-size:8.0pt;FONT-FAMILY: Tahoma;height:0px;color=#000000'>
������</td><td> <span style='font-size:10.0pt;FONT-FAMILY:
Tahoma;height:0px;color=#4040FF'> &nbsp;:&nbsp;<select name=transporter
style="width:150px" size=1><OPTION VALUE='1' >land�</option><OPTION
VALUE='2' >air</option><OPTION VALUE='3' >sea</option><OPTION VALUE='4'
>open</option></select><td></tr><tr><td colspan="2" align="center"><INPUT
name= 'b2' type="button" VALUE=' ��� ' onclick=SendData()><td></tr></TABLE>
==========================================================================================================
</FORM>
<script language="vbScript">
dim ImageFilename
'function GoLoadImage()
' ImageFilename=""
' fg =AddPic1.LoadPic()
' if fg=0 then
' ImageFilename=AddPic1.GetFileName()
' document.all("pimage").src=ImageFilename
' else
' alert("������ ��� ������")
' end if
'end function

function GoLoadImage()
ImageFilename=""
if chkimage()=true then
document.all("pimage").src=ImageFilename
else
ImageFilename=""
document.all("pimage").src=""
alert("������ ��� ������")
end if
end function

function GetImageData()
data1=AddPic1.GetCode(ImageFilename)
document.all("idata").value=data1
end function


function SendData()

if confirm("�� ���� ����ٿ")=true then

if ImageFilename<>"" then
GetImageData()
if document.all("idata").value="" then
alert("������ ��� ������")
else
form1.submit()
end if
else
alert("�� ��� ����� ������ �������")
end if
end if
end function


function chkimage()
dim size
dim h
dim w
chkimage=false
fr =AddPic1.LoadPic()
if fr=true then
ImageFilename=AddPic1.GetFileName()
if AddPic1.Checkimage (ImageFilename)=true then
size=AddPic1.GetImageSize()
h =AddPic1.GetImageHeight()
w=AddPic1.GetImageWidth()
if(size >=3000 and size <=4000) then
chkimage=true
else
chkimage=false
exit function
end if

if (h>=65 and h <=185)then
chkimage=true
else
chkimage=false
exit function
end if

if (w>=70 and w <=165) then
chkimage=true
else
chkimage=false
exit function
end if
end if
end if

end function

</SCRIPT>


 | 
Pages: 1
Prev: Data Type Mismatch
Next: How to use Seek vs FindFirst