Tracker

HOME

TRACKER

Visual Basic

Combo Box Auto Fill

I'm surprised i couldnt find the answer to this in the forum. Maybe i'm searching wrong..
But I'd like to know what I need to do to get a combo box to automatically fill in as you press keys.. such as

If i have a combo box with AM and PM in it, if i press A, I want it to go to AM if I press P, it brings in PM for me..

Is there a property to set I'm overlooking? i know it's got to be a really simple thing, but I can't seem to find it.

Thanks.

View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread

Don't Want Combo Box To Auto Fill Fields That Already Exists
Auto Fill
Auto Fill....
Auto Fill
Auto Fill
Auto Query Fill In???
Problem With Auto Fill
Auto Fill Web Form
Auto Add And Fill Textbox
Auto Fill Date
Need Help To Auto-fill Web Forms
Auto-fill Forms
Auto Fill Textbox!!!
Auto Quick Fill
Auto Fill On The Web Forms..
Need Help To Auto-fill Web Forms
VB Auto Fill, Javascript.
Auto Fill Date
Textbox Auto Fill In?
Datacombox Auto Fill
Auto-fill Web Form
Auto Fill Question
Auto-fill Option
Auto Fill Almost There.. Still A Question
VB Auto Fill, Javascript.
HELP PLEASE (Auto Fill Textboxes)
Auto Fill Worksheets Name Into Cells
Auto Fill In A Webform With Get Method?
Auto Expand/Fill In ComboBox
Auto Fill Website Form
Auto Fill Web Control Form
Auto Fill Textbox While Typing
Auto Completen ComboBox + DB Fill...
Auto Fill WebForm Problem
Auto Fill A Form In WebBrowser
Connecting Two Auto Fill Combos
Auto Fill A Form In Web Page
Auto Fill Textbox From The All Seeing Eye Player Name Window
VB Code Help: Auto Fill-Down After Inserting Rows
Auto Fill And Submit A Form Using Webbrowser
Field Fill-in In Word Auto Populating Elsewhere?
Auto Fill Data For Linked Tables
Question With Grid Auto Fill - SOLVED
Auto-fill Acrobat Forms With MySQL's Data ...
Auto-fill Acrobat Forms With Database's Data ...
How To Auto Fill The Value Returned By A Brows For File Button???
Is It Possible For An E-mail’s 'Subject' Field To Auto-fill From A Cell Value
Question With Grid Auto Fill And VSFlexGrid, Please Help - Solved
Is It Possible For An E-mail’s 'Subject' Field To Auto-fill From A Cell Value

Don't Want Combo Box To Auto Fill Fields That Already Exists
I have a "Combo box" set up to automatically fill in a number of fields, however, I don't want it to work if data already exists in these fields. Can anyone help? Thanks.

Auto Fill
Hi, I'm really new a VB.

I'm trying to get excel to autofill some cell (the amount of which determined by the value in the selected cell) above the selected cell.

I've got this and I know it wont work and its going to be the syntax but can someone explain. to me where I'm going wrong.

Thanks in advance,

Cheesemunger

Code:
Sub insertautofill()

Dim j As Integer
Dim before As Range
Dim offset As Range

j = ActiveCell.Value

before = ActiveCell.Range
offset = ActiveCell.offset(0, -j)

For i = 0 To j
Selection.EntireRow.Insert
Next i

Range("before").Select
Selection.AutoFill Destination:=Range("offset:before"), Type:=xlFillDefault

End Sub

Auto Fill....
ok i wanted to make a ap so i dont have to log in to my game fourms again and again but i got a problem...

http://www.runescape.com/loginform.w...est=index.html

i want this fourm to be auto fill i know how to do that but...

i got this code :

Code:
wb.Document.All("username").Value = "my name"
wb.Document.All("password").Value = "my password"
wb.Document.All(""submit").submit

can any 1 help me? i also tried "submit".click thats doesnt work either

Auto Fill
Hi everyone how is it going?
I have a more then likly simple question.
I have created my own web browser and im wanting to figure out how i can use a autofill fuction in it.
Like googles autofill that is offered in the toolbar.
Any Ideas?
Thanks for taking time to read my question.

Auto Fill
hi all,

i have a text box and a list box on a form. I want to fetch all names into the list box (matching with the text of text box) from my master table. i wrote the following code:

VB Code:
Private Sub txtByName_Change() If Len(Trim(txtByName)) = 0 Then Exit Sub End If With rsSearch .FindFirst "ucase(left(co_name, " & Len(txtByName) & ")) = '" & UCase(txtByName) & "'" If .NoMatch Then Exit Sub End If lstFrom.Clear Do While UCase(Left(!co_name, Len(txtByName))) = UCase(txtByName) lstFrom.AddItem !co_name If Not .EOF Then .MoveNext Else Exit Do End If DoEvents Loop End WithEnd Sub

the recordset connected is of dbOpenDynaSet. i have more than 2 million records in my database. so the code mentioned above takes too long to fill the list box. also after evey keystroke textbox's "change" event gets fired and the user cant enter the text further until the whole process is not over. i want the user to key in some text and after a pause of 2 secs after the user input. the search action should begin.

is there any better way to achieve the result?

pls guide

regards,

prakash

Auto Query Fill In???
I've got a selectionquery on which i made a word document. so when i open the word document I get the query question (for easy choosing the person i want to sent it to) but since my database has become large i added a button which automatically opens the worddocument.

Now i want the queryquestion automatically filled in with the name of the person in the currently opened Record.
can anyone help me????
This is the code i got so far:

Private Sub Knop82_Click()
On Error GoTo Err_Knop82_Click

Dim oApp As Object
Dim odoc As Object

Set oApp = CreateObject("Word.Application")
Set odoc = oApp.documents.Open(Filename:="filename")

oApp.Visible = True

Exit_Knop82_Click:
Exit Sub

Err_Knop82_Click:
MsgBox Err.Description
Resume Exit_Knop82_Click

End Sub

Problem With Auto Fill
I have written a macro that starts a vlookup. That works fine but when I want to use the Autofill to do the lookup for every row with data I cant record the code it just records the range selection. I entered in an end down bit of code but rather than go to the last bit of data it goes to the final row 65536.
This is what I recorded

/VB

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Acc!R2C[-7]:R23776C[-3],5,FALSE)"
Selection.AutoFill Destination:=Range("H3:H88")
Range("H3:H88").Select

and this is what i changed it to

/VB

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Acc!R2C[-8]:R23776C[-3],6,FALSE)"
Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown)), Type:=xlFillDefault

The problem is I want the selection to stop at row 88 in this case but in other cases it may be different and I would prefer to not have to specify when the program should stop.

Any help would be appreciated.

Auto Fill Web Form
I have seen a program that will auto fill up a web form, this is very useful if you fill up web forms many times with the same info.

I am wondering how can I do that... thanks in advance

Auto Add And Fill Textbox
VB6.0: I would like the Total textbox to autofill. Example: Type 25 in txt1, and 25 automatically populates Total textbox. Then type 50 in txt2, now both 25 and 50 are added with the total of 75 going into the Total textbox automatically without pressing a command button....and on-and-on. How is this done? Thank You.

Auto Fill Date
I want to be able to auto fill a text box that holds a date depending on what is entered. All is working OK except when I try to auto fill when only the day has been entered. If only the day is entered (d or dd) the auto fill doesn't work. Below is the code i'm using. Can anyone offer any suggestions?

Code:
Private Sub txtDate_LostFocus()
Dim DayOnly As String

If txtDate = Format(txtDate, "dd/mm/yyyy") Or txtDate = Format(txtDate, "dd/mm/yy") _
Or txtDate = Format(txtDate, "d/mm/yyyy") Or txtDate = Format(txtDate, "d/mm/yy") _
Or txtDate = Format(txtDate, "dd/m/yyyy") Or txtDate = Format(txtDate, "dd/m/yy") _
Or txtDate = Format(txtDate, "d/m/yyyy") Or txtDate = Format(txtDate, "d/m/yy") Then
txtDate = Format(txtDate, "d/mm/yyyy")
ElseIf txtDate = Format(txtDate, "dd") Or txtDate = Format(txtDate, "d") Then
DayOnly = txtDate
txtDate = DayOnly & "/" & CurrentMonth & "/" & CurrentYear
txtDate = Format(txtDate, "d/mm/yyyy")
ElseIf txtDate = Format(txtDate, "d/m") Or txtDate = Format(txtDate, "dd/m") _
Or txtDate = Format(txtDate, "d/mm") Or txtDate = Format(txtDate, "dd/mm") Then
DayOnly = txtDate
txtDate = DayOnly & "/" & CurrentYear
txtDate = Format(txtDate, "d/mm/yyyy")
End If
End Sub

Need Help To Auto-fill Web Forms
Hi

I have a form with web browser i need to fill two text boxes and i need to press the submit button, from that i need to find how many times i pressed the submit button.

The web page may vary sometimes so for that time i need to count how many times i pressed the "Enter" keys in the web browser

I hope any of one have idea and answer for it.... let share with me.....

Auto-fill Forms
I am trying to use Webbrowser to auto fill in this form, but it will not seem to work. I can get other forms to fill in, but not the username..Here is the HTML code:

Code:
Username :</td><td width='240'><input type='text' name='uname' onBlur='checku(this.value);final();' style='width:240px;vertical-align:middle'><td width='300'><span id='unamebox'></span></td></tr><tr><td align='right'>Password :</td><td><input type='password' name='passregister' onKeyUp='checkp(this.value);final();' onBlur='checkp(this.value);final();' style='width:240px;vertical-align:middle'><td><span id='passrbox'></span>

I tried:

Code:
webbrowser1.document.all("uname").value="Username"

that doesnt seem to work. Here is the code I use for the password box, and it seems to work just fine:

Code:
WebBrowser1.Document.All("passregister").Value = "password"

Auto Fill Textbox!!!
Dear Friends,

If I enter something in txtSomething.text then it should be entered in txtUpdated.text at the same time (automatically). How can I do this?

Thanks in advance.

Margaret.

Auto Quick Fill
Ok I am working on creating a Coldfusion/HTML editor and I would like to make it similar to VB

In the respect if I start typing something like < it will open a droplist like in VB.

I can have it open the droplist and have it positioned by the word BUT what I don't know what to do is this:

everytime I press a key it searches the droplist for the closest match
when I press tab(like in vb) make it add <body(for example) and subtract the text added sofar.

If you have any idea how to do this PLEASE help me this could definatly help html/ColdFusion editors and I will release it once it is complete. I will also give credit to whoever helps me with this because they would deserve it.

Thank you

~Robert

Auto Fill On The Web Forms..
I'm still some trouble and not get anywhere, I'm writing program of automatically fill out the forms for (first name and last name and home addresss) on the web browser by click one button and automatically fill out, I'm not sure how i can write code in VB. Does any one can help me how to write that so i can undersand myself from there thanks.

Need Help To Auto-fill Web Forms
Hi all,

I have a form with a web browser control. When loading a form the web browser control navigates to a web page (like mail.yahoo.com). If I click a menu or pressing a shortcut key the system should put some values in the text box available in that web page and hit the ok button on web page. I know how many text boxes will be there and the values to be entered on that. Currently i am entering it manually. The web page is similar to online survey form. I do not know how to enter the data automatically by clicking a menu or button or pressing a shortcutkey.

Please help!

Thanks in advance.

VB Auto Fill, Javascript.
Ok, I am making a macro prog to automate some things in ie, anyways i know how to do most of it.

for example.

VB Code:
Dim ie Set ie = CreateObject("InternetExplorer.Application") With ie .Navigate "Address Here" .Visible = True Do DoEventsLoop While ie.Busy 'ie.Document.Forms(0).Submit 'clicks without submit having a name. End With

and fill things etc, but i need to launch a javascript function in a page it is an image that does not have a name attribute nor a submit but instead its is a javascript menu item, that has a specified number (see bottom code)

here is the javascript code:

Code:
<SCRIPT language=JavaScript
src="sdfgdfgs)2_files/OneuiMenuUtils.js"></SCRIPT>

<SCRIPT language=JavaScript>
function menuSiteMap(event) {
if (!OneUI.oInit.oWindowEvents.bOnloadDone) return;
var options_added = 0;
var items_sms = 0;
var items_svc = 0;
var items_usr = 0;
var items_sys = 0;
var items_tools = 0;

// ************************************************************************************
// define names for 1st level menu items
var nameMenu11 = 'Service Objects';
var nameMenu12 = 'Work Orders';
var nameMenu12a = 'Service Object Key Changes';
var nameMenu13 = 'DG/FSL Library';
var nameMenu14 = 'Service Data Files';
var nameMenu15 = 'File Map';
var nameMenu16 = 'NE Queries via Cut Through';
var nameMenu17 = 'Network Element Queries';
var nameMenu18 = 'Commands';
var nameMenu19 = 'Command Files';
var nameMenu110 = 'Command File Maps';
var nameMenu111 = 'Real Time Data Displays';
var nameMenu112 = 'Voice Files';

// define 1 level menu obj MenuSMS
var MenuSMS = new OneUI.oMenu.ofnMenu("fsgfM");

// construct 2 level menu items for menu obj MenuSMS

MenuSMS.vfnAddMenuItem( nameMenu11 , "MenuClick('12')");
//MenuSMS.vfnAddMenuItem( "Service Objects" , "MenuClick('12')");
//MenuSMS.vfnAddMenuItem( 'Service Objects' , "MenuClick('12')");
items_sms += 1;

MenuSMS.vfnAddMenuItem( nameMenu12 , "MenuClick('7')");
items_sms += 1;

MenuSMS.vfnAddMenuItem( nameMenu16 ,"MenuClick('120')");
items_sms += 1;

// *************************************************************************************
// define names of Menu items
var nameMenu2 = 'System Administration';
var nameMenu21 = 'System Status';
var nameMenu22 = 'Logs';
var nameMenu23 = 'Messages';
var nameMenu24 = 'Billing Archives';
var nameMenu25 = 'Alarms';
var nameMenu26 = 'Work Load Queues';
var nameMenu27 = 'User Sessions';

// define 1 level menu obj MenuSysAdmin
var MenuSysAdmin = new OneUI.oMenu.ofnMenu(nameMenu2);

//construct 2 level menu items for menu obj MenuSysAdmin

MenuSysAdmin.vfnAddMenuItem( nameMenu22 ,"MenuClick('37')");
items_sys += 1;

MenuSysAdmin.vfnAddMenuItem( nameMenu23 ,"MenuClick('41')");
items_sys += 1;

// **************************************************************************************
// define names of menuItems
var nameMenu3 = 'Service Administration';
var nameMenu31 = 'Services';
var nameMenu32 = 'Network Elements';
var nameMenu33 = 'Distribution Rules';
var nameMenu34 = 'Audit Administration';
var nameMenu35 = 'Measurement Sets';

// define 1 level menu obj MenuSvcAdmin
var MenuSvcAdmin = new OneUI.oMenu.ofnMenu(nameMenu3);

// **************************************************************************************
// define names of menuItems
var nameMenu4 = 'Security Administration';
var nameMenu41 = 'Users';
var nameMenu42 = 'User Groups';
var nameMenu43 = 'Owners';
var nameMenu44 = 'Owner Groups';
var nameMenu45 = 'Task Groups';

// define 1 level menu obj MenuUserAdmin
var MenuUserAdmin = new OneUI.oMenu.ofnMenu(nameMenu4);

// ******************************************************************************************
// define names of Service Tools Menu
var nameMenu5 = 'Service Tools';
var nameMenu51 = 'Audits';
var nameMenu52 = 'Test Queries';
var nameMenu53 = 'Reports';
var nameMenu54 = 'Rehoming Requests';
var nameMenu55 = 'Load Active Data Requests';

// define 1 level menu obj MenuToolsAdmin
var MenuToolsAdmin = new OneUI.oMenu.ofnMenu(nameMenu5);

//construct 2 level menu items for menu obj MenuToolsAdmin

// *************************************************************************************
// define the topMenu obj
var topMenu = new OneUI.oMenu.ofnMenu();
// define the length of topMenu
topMenu.menuItemWidth = 190;
//topMenu.menuItemHeight = ;

// add null subMenuItem to avoid style error while each of them can't be included by topMenu
if (items_sms ==0 ) MenuSMS.vfnAddMenuItem( "NULL" ,"MenuClick('')");
if (items_sys ==0 ) MenuSysAdmin.vfnAddMenuItem( "NULL" ,"MenuClick('')");
if (items_svc ==0 ) MenuSvcAdmin.vfnAddMenuItem( "NULL" ,"MenuClick('')");
if (items_usr ==0 ) MenuUserAdmin.vfnAddMenuItem( "NULL" ,"MenuClick('')");
if (items_tools ==0 ) MenuToolsAdmin.vfnAddMenuItem( "NULL" ,"MenuClick('')");

if (items_sms > 0 ) {
topMenu.vfnAddMenuItem(MenuSMS , "javascript:document.location.href='launch.jsp?login=sdfg5&SessionId=4sdfg8'" );
options_added += 1;
}

if (items_sys > 0 ) {
topMenu.vfnAddMenuItem(MenuSysAdmin , "javascript:document.location.href='adminLaunch.jsp?login=sdfg&SessionId=sdfgsdfg8'" );
options_added += 1;
}

if (items_svc > 0 ) {
topMenu.vfnAddMenuItem(MenuSvcAdmin , "javascript:document.location.href='serviceAdmin.jsp?login=sdfgdfg5&SessionId=4sdfgsdfg8'" );
options_added += 1;
}

if (items_usr > 0 ) {
topMenu.vfnAddMenuItem(MenuUserAdmin , "javascript:document.location.href='userAdmin.jsp?login=esdfgsdfg&SessionId=sdfgsdfg'" );
options_added += 1;
}

if (items_tools > 0 ) {
topMenu.vfnAddMenuItem(MenuToolsAdmin , "javascript:document.location.href='serviceToolLaunch.jsp?login=esdfgsdfg&SessionIdsdfgsdfg'" );
options_added += 1;
}

if (options_added == 0) {
topMenu.vfnAddMenuItem("No task permissions found", "MenuClick('')");
}
topMenu.vfnWriteMenus();

// set the hide menu property to true to support mouse out event
topMenu.enableHideOnMouseOut = true;

OneUI.oMenu.vfnShowMenu(topMenu, 40, 10);

return false;//Do not perform default processing (right menu or onClick).
}

function MenuClick(whichItem) {
if (whichItem == ''){
//document.location.href="SOSumRept.jsp?login=username&SessionId=343428;
return;
} else {
document.location.href= "launchAction.jsp?login=username&SessionId=342458&ogType=" + whichItem;
}

}
</SCRIPT>

i need to trigger this. with menut item 12

Code:
function MenuClick(whichItem) {
if (whichItem == ''){
//document.location.href="SOSumRept.jsp?login=username&SessionId=343428;
return;
} else {
document.location.href= "launchAction.jsp?login=username&SessionId=342458&ogType=" + whichItem;
}

}

ANY help would be apprecitaed,

Textbox Auto Fill In?
is there any way to have a textbox do an autocomplete without binding it to a datafield?

Datacombox Auto Fill
I am using a data environment and have my datacombobox connected to it.

It has all the Customer names loading in my datacombobox when the form loads.

My problem is the autofill when I type in the datacombobox.

In Access, if you start typing letters the appropriate customer names pop up.

How can I make my VB app datacombobox do this?

Thanks

Auto-fill Web Form
Thakns but I think you misunderstood or I am. I want to fill a text box in IE, not my own browser control. The way some submission programs work to fill the fields. Also kind of like that AL Robo Form does

Auto Fill Question
VB Code:
Option ExplicitOption Compare TextDim ArrRec(1 To 100) As StringDim curr As Long, oldtext As String, chg As Boolean, chrr As Boolean Private Sub Command1_Click() Dim i curr = curr + 1 If curr <= 100 Then ArrRec(curr) = Text1 Else For i = 2 To 100 ArrRec(i - 1) = ArrRec(i) Next ArrRec(100) = Text1 curr = 100 End IfEnd Sub Private Sub Text1_Change() Dim ii As Integer, tempTxt As String, lenfirst As Integer If Len(Text1.Text) < Len(oldtext) Then If Not chrr Then oldtext = Text1 chg = True End If End If If Text1 = oldtext Or chg = True Then chg = False Exit Sub End If oldtext = Text1 chrr = False lenfirst = Len(Text1.Text) tempTxt = "" For ii = 1 To 3 If (Text1.Text = Left$(ArrRec(ii), Len(Text1.Text))) Then If (tempTxt = "") Or StrComp(ArrRec(ii), tempTxt, vbTextCompare) = -1 Then tempTxt = ArrRec(ii) End If Next If tempTxt <> "" Then chg = True Text1.Text = tempTxt Text1.SelStart = lenfirst Text1.SelLength = Len(Text1.Text) - lenfirst End IfEnd Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii <> 8 Then chrr = TrueEnd Sub

Auto-fill Option
Can anyone give me some general code for the 'auto-fill' option when pulling information from a database to a text box?

There are a few topics about this, but they are specific to the individual's code. I am looking for something general. Please be gentle , I'm kind of a newbie.

Auto Fill Almost There.. Still A Question
Im getting a compile error..

"User-defined type not defined"

I assume this has to do with when it sets the document to a variable "HTML" variable. The type "HTMLDOCUMENT" should this not be included in the webbrowser component or do i have to add somthing else. Or does it have to do with the version of webbrowser that im using? I am using VB6.

I used this tutorial and this is what i came up with..
http://home.rochester.rr.com/lgsstatic/vb.html#WEB_FORMS

Code:

Private Sub ClickBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
StatusBar1.Panels(1) = "Status: Download Complete... " & URL
If (pDisp Is ClickBrowser1.Application) Then

If InStr(1, URL, "?session-expired") Then

HTML = ClickBrowser1.Document

Zfinder Start1URL, "/"
FindDomain = WD
If InStr(1, URL, FindDomain) Then
HTML.Document.Item("email").Value = Start1Email
HTML.Document.Item("passwd").Value = Start1PassWd
HTML.Document.Item("Submit").Click
GoTo Done
End If
Zfinder Start2URL, "/"
FindDomain = WD
If InStr(1, URL, FindDomain) Then
HTML.Document.Item("email").Value = Start2Email
HTML.Document.Item("passwd").Value = Start2PassWd
HTML.Document.Item("Submit").Click
GoTo Done
End If
Zfinder Start3URL, "/"
FindDomain = WD
If InStr(1, URL, FindDomain) Then
HTML.All.Item("email").Value = Start3Email
HTML.All.Item("passwd").Value = Start3PassWd
HTML.All.Item("Submit").Click
GoTo Done
End If
Zfinder Start4URL, "/"
FindDomain = WD
If InStr(1, URL, FindDomain) Then
HTML.All.Item("email").Value = Start4Email
HTML.All.Item("passwd").Value = Start4PassWd
HTML.All.Item("Submit").Click
GoTo Done
End If
Zfinder Start5URL, "/"
FindDomain = WD
If InStr(1, URL, FindDomain) Then
HTML.All.Item("email").Value = Start5Email
HTML.All.Item("passwd").Value = Start5PassWd
HTML.All.Item("Submit").Click
GoTo Done
End If

'or a safer way to do it is this

'HTML.All.Item("q").Value = "Static"

End If

End If
Done:
FindDomain = ""
Exit Sub
End Sub

can anyone help me with this !!!!!

VB Auto Fill, Javascript.
Ok, I am making a macro prog to automate some things in ie, anyways i know how to do most of it.

for example.

visual basic code:--------------------------------------------------------------------------------
Code:Dim ie
  Set ie = CreateObject("InternetExplorer.Application")
  With ie
  .Navigate "Address Here"
  .Visible = True
  Do
   DoEvents
Loop While ie.Busy

'ie.Document.Forms(0).Submit 'clicks without submit having a name.
  End With--------------------------------------------------------------------------------
and fill things etc, but i need to launch a javascript function in a page it is an image that does not have a name attribute nor a submit but instead its is a javascript menu item, that has a specified number (see bottom code)

here is the javascript code:

Code: <SCRIPT language=JavaScript
src="sdfgdfgs)2_files/OneuiMenuUtils.js"></SCRIPT>

<SCRIPT language=JavaScript>
function menuSiteMap(event) {
    if (!OneUI.oInit.oWindowEvents.bOnloadDone) return;
    var options_added = 0;
    var items_sms = 0;
    var items_svc = 0;
    var items_usr = 0;
    var items_sys = 0;
    var items_tools = 0;

    // ************************************************************************************
    // define names for 1st level menu items
    var nameMenu11 = 'Service Objects';
    var nameMenu12 = 'Work Orders';
    var nameMenu12a = 'Service Object Key Changes';
    var nameMenu13 = 'DG/FSL Library';
    var nameMenu14 = 'Service Data Files';
    var nameMenu15 = 'File Map';
    var nameMenu16 = 'NE Queries via Cut Through';
    var nameMenu17 = 'Network Element Queries';
    var nameMenu18 = 'Commands';
    var nameMenu19 = 'Command Files';
    var nameMenu110 = 'Command File Maps';
    var nameMenu111 = 'Real Time Data Displays';
    var nameMenu112 = 'Voice Files';


    // define 1 level menu obj MenuSMS
    var MenuSMS = new OneUI.oMenu.ofnMenu("fsgfM");

    // construct 2 level menu items for menu obj MenuSMS

        MenuSMS.vfnAddMenuItem( nameMenu11 , "MenuClick('12')");
        //MenuSMS.vfnAddMenuItem( "Service Objects" , "MenuClick('12')");
        //MenuSMS.vfnAddMenuItem( 'Service Objects' , "MenuClick('12')");
        items_sms += 1;

            MenuSMS.vfnAddMenuItem( nameMenu12 , "MenuClick('7')");
            items_sms += 1;

        MenuSMS.vfnAddMenuItem( nameMenu16 ,"MenuClick('120')");
        items_sms += 1;

    // *************************************************************************************
    // define names of Menu items
    var nameMenu2 = 'System Administration';
    var nameMenu21 = 'System Status';
    var nameMenu22 = 'Logs';
    var nameMenu23 = 'Messages';
    var nameMenu24 = 'Billing Archives';
    var nameMenu25 = 'Alarms';
    var nameMenu26 = 'Work Load Queues';
    var nameMenu27 = 'User Sessions';

    // define 1 level menu obj MenuSysAdmin
    var MenuSysAdmin = new OneUI.oMenu.ofnMenu(nameMenu2);

    //construct 2 level menu items for menu obj MenuSysAdmin


        MenuSysAdmin.vfnAddMenuItem( nameMenu22 ,"MenuClick('37')");
        items_sys += 1;

        MenuSysAdmin.vfnAddMenuItem( nameMenu23 ,"MenuClick('41')");
        items_sys += 1;

    // **************************************************************************************
    // define names of menuItems
    var nameMenu3 = 'Service Administration';
    var nameMenu31 = 'Services';
    var nameMenu32 = 'Network Elements';
    var nameMenu33 = 'Distribution Rules';
    var nameMenu34 = 'Audit Administration';
    var nameMenu35 = 'Measurement Sets';

    // define 1 level menu obj MenuSvcAdmin
    var MenuSvcAdmin = new OneUI.oMenu.ofnMenu(nameMenu3);



    // **************************************************************************************
    // define names of menuItems
    var nameMenu4 = 'Security Administration';
    var nameMenu41 = 'Users';
    var nameMenu42 = 'User Groups';
    var nameMenu43 = 'Owners';
    var nameMenu44 = 'Owner Groups';
    var nameMenu45 = 'Task Groups';

    // define 1 level menu obj MenuUserAdmin
    var MenuUserAdmin = new OneUI.oMenu.ofnMenu(nameMenu4);


    // ******************************************************************************************
    // define names of Service Tools Menu
    var nameMenu5 = 'Service Tools';
    var nameMenu51 = 'Audits';
    var nameMenu52 = 'Test Queries';
    var nameMenu53 = 'Reports';
    var nameMenu54 = 'Rehoming Requests';
    var nameMenu55 = 'Load Active Data Requests';

    // define 1 level menu obj MenuToolsAdmin
    var MenuToolsAdmin = new OneUI.oMenu.ofnMenu(nameMenu5);

    //construct 2 level menu items for menu obj MenuToolsAdmin

    // *************************************************************************************
    // define the topMenu obj
    var topMenu = new OneUI.oMenu.ofnMenu();
    // define the length of topMenu
    topMenu.menuItemWidth = 190;
    //topMenu.menuItemHeight = ;

    // add null subMenuItem to avoid style error while each of them can't be included by topMenu
    if (items_sms ==0 ) MenuSMS.vfnAddMenuItem( "NULL" ,"MenuClick('')");
    if (items_sys ==0 ) MenuSysAdmin.vfnAddMenuItem( "NULL" ,"MenuClick('')");
    if (items_svc ==0 ) MenuSvcAdmin.vfnAddMenuItem( "NULL" ,"MenuClick('')");
    if (items_usr ==0 ) MenuUserAdmin.vfnAddMenuItem( "NULL" ,"MenuClick('')");
    if (items_tools ==0 ) MenuToolsAdmin.vfnAddMenuItem( "NULL" ,"MenuClick('')");

    if (items_sms > 0 ) {
        topMenu.vfnAddMenuItem(MenuSMS , "javascript:document.location.href='launch.jsp?login=sdfg5&SessionId=4sdfg8'" );
        options_added += 1;
    }

    if (items_sys > 0 ) {
        topMenu.vfnAddMenuItem(MenuSysAdmin , "javascript:document.location.href='adminLaunch.jsp?login=sdfg&SessionId=sdfgsdfg8'" );
        options_added += 1;
    }

    if (items_svc > 0 ) {
        topMenu.vfnAddMenuItem(MenuSvcAdmin , "javascript:document.location.href='serviceAdmin.jsp?login=sdfgdfg5&SessionId=4sdfgsdfg8'" );
        options_added += 1;
    }

    if (items_usr > 0 ) {
        topMenu.vfnAddMenuItem(MenuUserAdmin , "javascript:document.location.href='userAdmin.jsp?login=esdfgsdfg&SessionId=sdfgsdfg'" );
        options_added += 1;
    }

    if (items_tools > 0 ) {
        topMenu.vfnAddMenuItem(MenuToolsAdmin , "javascript:document.location.href='serviceToolLaunch.jsp?login=esdfgsdfg&SessionIdsdfgsdfg'" );
        options_added += 1;
    }

    if (options_added == 0) {
        topMenu.vfnAddMenuItem("No task permissions found", "MenuClick('')");
    }
    topMenu.vfnWriteMenus();

    // set the hide menu property to true to support mouse out event
    topMenu.enableHideOnMouseOut = true;

    OneUI.oMenu.vfnShowMenu(topMenu, 40, 10);

    return false;        //Do not perform default processing (right menu or onClick).
}

function MenuClick(whichItem) {
    if (whichItem == ''){
        //document.location.href="SOSumRept.jsp?login=username&SessionId=343428;
        return;
    } else {
        document.location.href= "launchAction.jsp?login=username&SessionId=342458&ogType=" + whichItem;
    }

}
</SCRIPT>

i need to trigger this. with menu item 12

Code:function MenuClick(whichItem) {
    if (whichItem == ''){
        //document.location.href="SOSumRept.jsp?login=username&SessionId=343428;
        return;
    } else {
        document.location.href= "launchAction.jsp?login=username&SessionId=342458&ogType=" + whichItem;
    }

}

i have tried everything and searched everywhere ... coul not find anything.

HELP PLEASE (Auto Fill Textboxes)
HI, I don't know if this is possible but if it, could you advise me on how to go about it. The query is :

The use will use a form in Excel to enter data with the relevant sheet open, and as they type in a title in a textbox, the code will search the relevant column and auto fill the textbox similar to what it does if you type in an excel cell.

thanks

David

Edited by - dgraham on 2/27/2002 9:37:42 PM

Auto Fill Worksheets Name Into Cells
Dear all,

I have a porject containing over 50 workbook as source data,
in every workbook, I have 3-10 worksheet, I need to summarize
them in to one workbook, (one worksheet for one source file),
my output format is like tihs:
the first row of the worksheet is the name of worksheets in the
source file, and list the data by date following the name.

My question is:
1.
is it possible to fill the name of the first row of the output and
the name of the output worksheet?

2.
is it possible to create a worksheet automatically for each source file??

e.g. I have a source file call N3E12.xls and containing 3 worksheet
W18S01, W18S02 and W18S03.
I want to have my output has a worksheet call N3E12 and has 3 column call N3E12W18S01, N3E12S18S02, N3E12S18E03

Thanks a lot,

--
Mizu

Auto Fill In A Webform With Get Method?
Is there a way to make a form that fills in a web form using Get?
Thank you for any help

Auto Expand/Fill In ComboBox
I am looking for a way to "auto fill" a combo box as the user types.
For example, if the combobox contains "ab, abra, abraca", "ab" should appear as soon as "a" is typed, then "abra" as soon as the "br" is added, etc.

MSAccess has this feature in the ComboBox Properties called "Auto Expand." I found in a reference book that Style = 1-Simple Combo is supposed to do that (called Extended Matching) in VB6. However, it only works if the user presses the down key after typing the first few letters.

Finally, I found some code at http://www.xtremevbtalk.com/show...ended+matching which is supposed to do that.

Is there any easy way/setup to achieve this?

Thanks!
hervé Chain
Houston, Texas

Auto Fill Website Form
Hey all,

Is there a way I can automatically fill in the username and password form on a website then hit the submit button? I've searched, but I couldn't find anything that worked for me.

I'm using the webbrowser control

Thanks,
FlamingFox

Auto Fill Web Control Form
Hi,

As part of my work i have to check a number of diffrent email accounts each day. I have set up a simple form using VB6 with a webbrowser control navigating to the website. I would like to not have to type in my username and password everyday. Is there anyway of auto filling these fields? The fields on the webpage are called 'user' and 'pass'. I am new to VB programming so something easy would be nice.

Many thanks for your help,

Auto Fill Textbox While Typing
Hello everyone,

I use VB6, a MySQL DB and ADO. The use of the database is no problem.

What I want to achieve is that when I type in the textbox, automatically the value of the corresponding table (in Database) will be shown and when the value I try to type already exist in the database, I want it to be clickable so all the information will come available in the textboxes.

What is the best thing to use? A combobox or a textbox with a datagrid or something else? Sinds I'm a beginner and I searched the internet, I would be very glad if I could get some sample code.

Hope that enyone can help me,

Auto Completen ComboBox + DB Fill...
Ok looking for the control for an autofill combobox

I am accessing a database doing so

VB Code:
Private Sub searchLname()Set rs = New ADODB.RecordsetDim SQL As StringSQL = "Select Lname from userTable"[b]rs.Open SQL[/b] [i]'choking here[/i]Do While Not rs.EOFuComboLname.AddItem rs!Lnamers.MoveNextLoopEnd Sub

Runtime error COnnection is either closed or invalid

Is my open line wrong?

My end result should be to fill this combo box with all the last names of people, and when the user is searching for a user it should autocomplete based on that list in the combobox.

Thanks

Auto Fill WebForm Problem
hello all i am currently stuck on my project and was wondering if someone could give me a little hand/advice here.

im trying to make a program, which will automatically fill in a new thread form on a vbulletin forum.

For example lets use the VB new thread.

CLICK HERE TO SEE

im Guessing this would work in the same way for the newthread on these forums, with a few changes to some of the textbox names. anyways....

the code i currently have, does work filling in the subject feild at the top, however the big box, for the message, does not seem to work at all.

anyone got any ideas why this would happen, have i got the value of the box's name wrong, or am i doing something wrong in which anyone can see.

Code:
Dim bFirstGo As Boolean
Dim i As Integer

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If bFirstGo = True Then
With WebBrowser1.Document
.All("subject").Value = Text1.Text
.All("htmlbox").Value = Text2.Text
End With
DoEvents
For i = 0 To WebBrowser1.Document.Forms(0).length - 1
If WebBrowser1.Document.Forms(0)(i).Type = "submit" Then
WebBrowser1.Document.Forms(0)(i).Click
End If
Next i
bFirstGo = False
End If
End Sub

Private Sub Command1_Click()
bFirstGo = True
WebBrowser1.Navigate "http://www.xtremevbtalk.com/newthread.php?do=newthread&f=10"
End Sub

My VB Form Consists Of:

1 Web Brouser
2 Textboxes (text1 and text2)
1 Command Button

Hope My Description Is Clear Enuff. Thanks Alot Guys, Hope Someone Can Help

Auto Fill A Form In WebBrowser
Hi there,

Ok I'm looking to auto fill form fields in a webbrowser control that uses frames

I have used the following code but it does not work

Code:
'I have used this code but it didn't work
WebBrowser.Document.All("USER").value = "Test1"

'I even tested it with frames.. and it didnt work!!!
WebBrowser.Document.Frame(1).Document.All("USER").value = "Test1"

I think I know that the field names are USER, PASSWORD.. but I cant fill in the values to these fields!!
Please help me here is the page that i need to auto complete login info and submit!!!
Click Here to view the site

Question:Please let me know on how to get over this?
Even if you can give me some tips to help me automate this it will be very helpful

Connecting Two Auto Fill Combos
i need two combos connected to each other.
like one for "CODE" and other for "Name"

the combos should be auto fill and when i type in "Code" combo, its related name combo should display name against that code.

nd when i press "BackSpace" key, the last character should be sleceted in the working combo.
like

i am suffering

has any body any idea, how to troubleshoot this problem?

Thanks nd admiration in advance

Silly Star

Auto Fill A Form In Web Page
Most web site ask you to fill in the form. I wanna be able to fill out the form just one click of a button. I have a web browser control and command button control. when I visit any web site, I wanna fill out the form by clicking on a button.

Please show me how to do it in detail.
Thank you in advance for helping me.

Auto Fill Textbox From The All Seeing Eye Player Name Window
hi
iam a game admin for 2 australian America's Army servers.
We have heaps of proplems with hackers.

I was wondering if it is possible to make a program using VB2005 or any other program to auto fill a textbox from the player name window in the all seeing eye then have a button the copy the name so it can be pasted to a guid search program?

i have made a basic program to go to a webb link but have no idea if something like this is possible.

cheers
toe

VB Code Help: Auto Fill-Down After Inserting Rows
Hi Everyone,

Could someone please help me with the coding of a macro that can automatically filldown when I insert some rows into the spreadsheet? I'm currently using VB 6.3, and I can't get the macro to run when I insert rows on other locations, unless I specify exactly where I insert the rows and how many rows I insert. I tried using a for...next loop, but VB won't recognise the variable. Please help.

My current code is below:

If Target.Address = "$5:$8" Then
Selection.FillDown
End If

The numbers are replaced by the variable name in the actual macro, but I can't get VB to recognise my variables, counter1 and counter 2.

Auto Fill And Submit A Form Using Webbrowser
I found this code in the VB.net code bank. it should fill 2 text fields when browsing a webpage. "email and passwd" r the names of the test fields and the values of these will be held in variables which will be ready for when the user is ready to login.

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Document.GetElementsByTagName("Input").Item(0).SetAttribute("Value", "email")
WebBrowser1.Document.GetElementsByTagName("Input").Item(1).SetAttribute("Value", "Passwd")
WebBrowser1.Document.GetElementsByTagName("Input").Item(2).InvokeMember("Click")
End Sub
End Class

I need this for VB6 i dont know how to manipulate the code so that i can use it in my VB6 application.

Field Fill-in In Word Auto Populating Elsewhere?
In Word 2002, I'm trying to find code to take the text from a field fill-in and populate it elsewhere in the document (e.g., text filled in on the cover sheet would auto populate into the header and footer, etc). Any ideas?

Auto Fill Data For Linked Tables
I'm trying to design a form for my database that tracks all incoming sales calls. The main table, tblCallInfo, has foreign keys that each call to it's specific info, like saleinfo, contactinfo, etc.

What I'm trying to figure out is, and maybe I'm missing something really simple, how do I add the Primary Keys or autonumbers that are generated in the related tables to the main tableCallInfo.

Simplified Example:

tblCallInfo
lngCallID        primary key
lngAgentID    foreign Key
lngContactID    foreign key
lngSaleID        foreign key

tblAgentInfo
lngAgentID    primary key
chrFirstName
chrLastname

tblContactInfo
lngContactID    primary key
chrFirstname
chrLastname
chrAddress1
chrAddress2
etc

tblSaleInfo
lngSaleID        primary key
memSaleCale

tblSaleProductInfo
lngSaleProductID    primary key
lngSaleID        foreign key
chrProdID        foreign key (in products table not listed here)

I can't think ahead enough to visualize how to design the form so that when I enter the contact info into the appropriate fields on the form, it will store the ContactID in tblCallInfo. This is true for the other foreign keys in tblCallInfo as well?

Does this question make sense. This seems really simple to me which is why I think I'm missing something simple.

Thanks for any potential help!

Matt C

Question With Grid Auto Fill - SOLVED
I have a small with VSFlexGrid. Properties I set with thin grid are
  With fgMaintenance
    .Clear
    .Rows = 1
    .Cols = 0
    .Enabled = True
    .FillStyle = flexFillRepeat
  End With

Now I want to handle the event, for example

if the user highlight 5 columns and type in value as "12". Its populating the value 12 in all the highlighted cells, thats good. But the problem is with this kind of selection my AfterEdit event is not being called except the first cell. Where should I keep track of other changes? What event will it fire for the rest of the changes? thanks for your help.

BTW, we are using VB 6.

Edit:

I just solved this issue by handling the "CellChanged", thanks

Edited by - mrrambabu on 9/22/2003 10:33:08 AM

Auto-fill Acrobat Forms With MySQL's Data ...
I write to see if anyone has use or evaluated PF-Merge before, which can auto-fill acrobat forms with MySQL data, without programming.
They send me the following information and i want to save time from doing a complete evaluation by hearing your views.

It seems to work great so far, filling in 100's of forms including images and i was able to auto-email it out as well.
Any pitfall you found?

-------------------------------------
Free download:
http://www.pureforms.com/Products/PF...printmerge.htm

PF-Merge merges your database's records with your Acrobat forms set; resulting in as many form sets as the number of records of your database, automatically. It can automatically email/fax/encrypt each generated Acrobat file. It supports over 20 database platforms, including Excel, MySQL, Access, Oracle, MS SQL, etc.

Auto-fill Acrobat Forms With Database's Data ...
I write to see if anyone has use or evaluated PF-Merge before, which can auto-fill acrobat forms with MySQL data, without programming.
They send me the following information and i want to save time from doing a complete evaluation by hearing your views.

It seems to work great so far, filling in 100's of forms including images and i was able to auto-email it out as well.
Any pitfall you found?

-------------------------------------
Free download:
http://www.pureforms.com/Products/PF...printmerge.htm

PF-Merge merges your database's records with your Acrobat forms set; resulting in as many form sets as the number of records of your database, automatically. It can automatically email/fax/encrypt each generated Acrobat file. It supports over 20 database platforms, including Excel, MySQL, Access, Oracle, MS SQL, etc.

How To Auto Fill The Value Returned By A Brows For File Button???
I need to programatically fill in this browse box with the file name without clicking the browse button to find it.
I have tried .value .File .Name .getfile .filename
All with no luck

HELP!!

HTML Code:
<table cellpadding=3 cellspacing=1 border=0 col=2 width=100%>
<tr><td>

<tr><td><b>Step 1.</b><br> Click "Browse" and locate your image file.<br><font size=-1>(PC users, select "All Files" for Files of Type.)</font></td></tr>
<tr><td>
<INPUT TYPE=FILE NAME=upfile>
</td><tr>
<tr><td><b>Step 2.</b><br> Click "Add Photo" <INPUT TYPE="submit" VALUE="Add Photo"></td></tr>
<tr><td>For more than one photo, repeat Steps 1 and 2.</td></tr>
</table>

</form>

Is It Possible For An E-mail’s 'Subject' Field To Auto-fill From A Cell Value
I have an Excel Command button used for opening Outlook/Outlook Express and sending the open file by e-mail.
Is it possible to get the ‘Subject’ field auto-populated by a specific cell value?
Then if possible, I want to follow the cell value with a simple text statement such as ‘Report Return’.

I want the subject line to look something like: 12/05 Report Return

(Where 12/05 is the cell value of R28)

I can already populate the field with just the text, as below:

Private Sub CommandButton8_Click()
Application.Dialogs(xlDialogSendMail).Show "", "Report Return"
End Sub

But is there a simple code to combine the two?

Any assistance to a Newbie would be appreciated.

Question With Grid Auto Fill And VSFlexGrid, Please Help - Solved
I have a small with VSFlexGrid. Properties I set with thin grid are
With fgMaintenance
.Clear
.Rows = 1
.Cols = 0
.Enabled = True
.FillStyle = flexFillRepeat
End With

Now I want to handle the event, for example

if the user highlight 5 columns and type in value as "12". Its populating the value 12 in all the highlighted cells, thats good. But the problem is with this kind of selection my AfterEdit event is not being called except the first cell. Where should I keep track of other changes? What event should I handle to keep track of changes in all the other cells? thanks for your help.

BTW, we are using VB 6.

I solved the issue by handling the CellChanged event, thanks