Combo Box List staying visible afer selectiom is made

T

tighe

All,

thank for for all the help past and present.

today i have a rather unusual problem and hope someone can help. i tried
searching for a solution so if there is already on epost i apologize but
please point in the right direction.

on to my issue:
using 2007

my combo box drop down stays visible and as far as i can tell keeps focus
but does select the item.
the unbound combo box with data as:
SELECT Login_Websites.Type, Login_Passwords.Pass, Login_Websites.Site,
Login_Websites.ID, Login_Websites.Reg_Type FROM Login_Websites INNER JOIN
Login_Passwords ON Login_Websites.Reg_Type=Login_Passwords.Type WHERE
(((Login_Websites.Reg_Type)="User")) ORDER BY Login_Websites.ID;

on the combo i have an after update event(have tried to fire this code at
other events but no change ), i know its probbaly not the prettiest code but
it does work, except that the send keys send to the combo box because the
focus is not lost and IE does not gain it.

Function FinraLogin()
Sleep (1000)
surl = [Forms]![Admin_ACCESS]![Combo51]
sUserID = [Forms]![Admin_ACCESS]![Username] ' <- your ID goes here
sPassword = [Forms]![Admin_ACCESS]![Text61] ' <- your password goes here

Dim oIExplorer: Set oIExplorer = CreateObject("InternetExplorer.Application")
oIExplorer.Navigate surl
oIExplorer.visible = 1
Do: Loop Until oIExplorer.ReadyState = READYSTATE_COMPLETE

With CreateObject("Wscript.Shell")
..SendKeys sUserID
Sleep (250)
..SendKeys "{TAB}"
Sleep (250)
..SendKeys sPassword
Sleep (250)
..SendKeys "{Enter}"


End With

End Function

tighe
 
D

Dale Fye

Try putting a DoEvents command as the first command in the combo boxes
AfterUpdate event.
 
T

tighe

thanks worked like a charm.

Dale Fye said:
Try putting a DoEvents command as the first command in the combo boxes
AfterUpdate event.

----
HTH
Dale



tighe said:
All,

thank for for all the help past and present.

today i have a rather unusual problem and hope someone can help. i tried
searching for a solution so if there is already on epost i apologize but
please point in the right direction.

on to my issue:
using 2007

my combo box drop down stays visible and as far as i can tell keeps focus
but does select the item.
the unbound combo box with data as:
SELECT Login_Websites.Type, Login_Passwords.Pass, Login_Websites.Site,
Login_Websites.ID, Login_Websites.Reg_Type FROM Login_Websites INNER JOIN
Login_Passwords ON Login_Websites.Reg_Type=Login_Passwords.Type WHERE
(((Login_Websites.Reg_Type)="User")) ORDER BY Login_Websites.ID;

on the combo i have an after update event(have tried to fire this code at
other events but no change ), i know its probbaly not the prettiest code but
it does work, except that the send keys send to the combo box because the
focus is not lost and IE does not gain it.

Function FinraLogin()
Sleep (1000)
surl = [Forms]![Admin_ACCESS]![Combo51]
sUserID = [Forms]![Admin_ACCESS]![Username] ' <- your ID goes here
sPassword = [Forms]![Admin_ACCESS]![Text61] ' <- your password goes here

Dim oIExplorer: Set oIExplorer = CreateObject("InternetExplorer.Application")
oIExplorer.Navigate surl
oIExplorer.visible = 1
Do: Loop Until oIExplorer.ReadyState = READYSTATE_COMPLETE

With CreateObject("Wscript.Shell")
.SendKeys sUserID
Sleep (250)
.SendKeys "{TAB}"
Sleep (250)
.SendKeys sPassword
Sleep (250)
.SendKeys "{Enter}"


End With

End Function

tighe
Click to expand...
Click to expand...
 
Top