Cycling through textboxes in a form

[Lobster]

Hey everyone,
I'm having a little trouble figuring out how to do what I'm guessing is a simple procedure. I want to cycle through every textbox I have on a form and if the name of the textbox includes the word "Account" then I want to gather the information in that textbox. Unfourtunatly I can't figure out the base code for how to loop through all textboxes/comboboxes/checkboxes or anything. Any advice?
Oh, this is in access 2000 VBA on windows XP.
thanks.

[ADezii]

Hey everyone,
I'm having a little trouble figuring out how to do what I'm guessing is a simple procedure. I want to cycle through every textbox I have on a form and if the name of the textbox includes the word "Account" then I want to gather the information in that textbox. Unfourtunatly I can't figure out the base code for how to loop through all textboxes/comboboxes/checkboxes or anything. Any advice?
Oh, this is in access 2000 VBA on windows XP.
thanks.

Dim myCtl As Control
 
'Loop through each Control in the Current Form
For Each myCtl In Me.Controls
  If myCtl.ControlType = acTextBox Then     'Control is a Text Box
    If myCtl.Name Like "*" & "Account" & "*" Then   'Is the Name like *Account*
      'Procesing code here
    End If
  End If
Next

[Killer42]

Hey everyone,
I'm having a little trouble figuring out how to do what I'm guessing is a simple procedure. I want to cycle through every textbox I have on a form and if the name of the textbox includes the word "Account" then I want to gather the information in that textbox. Unfourtunatly I can't figure out the base code for how to loop through all textboxes/comboboxes/checkboxes or anything. Any advice?
Oh, this is in access 2000 VBA on windows XP.
thanks.

This may need adjustment for Access, but in VB6 you could do something along these lines (untested)...

Dim ctl as Control
Dim SearchFor As String
SearchFor = "Account"
For Each ctl In Me.Controls
  If TypeOf ctl Is TextBox Then
    If Instr(ctl.Name, SearchFor Then
      ' Do your thing here.
    End If
  End If
Next
 

[Killer42]

Dim myCtl As Control
...
 

Damn, you beat me to it! :)

I really prefer the Instr( ) over Like, though. Makes for simpler code, in my opinion. But that's just personal preference, I guess.

[missinglinq]

And you forgot your closing parenthesis, Killer!

If Instr(ctl.Name, SearchFor) Then

[willakawill]

Damn, you beat me to it! :)

I really prefer the Instr( ) over Like, though. Makes for simpler code, in my opinion. But that's just personal preference, I guess.

Ah yes, Killer. Always the bridesmaid, never the bride :)

[missinglinq]

But we know who gets the most action at the wedding, don't we Killer!

[Killer42]

And you forgot your closing parenthesis, Killer!

If Instr(ctl.Name, SearchFor) Then

Oh, nuts! I'm usually on the lookout for that kind of detail. Of course, it's a lot easier to spot in someone else's code than your own.

[Killer42]

But we know who gets the most action at the wedding, don't we Killer!

I'm not touching that one. :D

[Lobster]

This may need adjustment for Access, but in VB6 you could do something along these lines (untested)...

Dim ctl as Control
Dim SearchFor As String
SearchFor = "Account"
For Each ctl In Me.Controls
  If TypeOf ctl Is TextBox Then
    If Instr(ctl.Name, SearchFor Then
      ' Do your thing here.
    End If
  End If
Next
 

thanks alot, that got me going. My next question is, I have a loop going to gather info from all the combos on a form. I've got two columns of combo boxes, one column is all names of types of doughnuts. The second column is amounts of the doughnut that is in the combo box next to it. I've named each combo box in the columns either "cmbDoughnutName1" to "cmbDoughnutName12" or "cmbAmount1" to "cmbAmount12".

for k=1 to 12
'need code for here
next k

what I want in that spot is code that will grab the name and amount of the doughnut for each time it goes through the loop on the first time it would grab cmbDoughnutName1 and cmbAmount1. Do I need to loop through all the combo boxes each time to find the values or is there a way to find a combobox on a form with instr(combobox,"Amount"+str(k)) sort of thing quickly. Hope this makes sense.
thanks,
Lobster

[Killer42]

Hi.

Sorry, I only have a moment (should be able to get back here tonight or tomorrow) but briefly, you'll find it a lot easier if you put the combo boxes in two control arrays. That way, rather than cmbDoughnutName1, cmbDoughnutName2 and so on, you can refer to cmbDoughnutName(number). It's much easier to work with an array.

[NeoPa]

You could do a For Each ... Next for processing through them (ignore where name not Like "cmbDoughnut*") and build name of cmbAmount? from the Doughnut name.
This will avoid the necessity of building up the arrays outside of the loop.
Just a thought...

[Killer42]

You could do a For Each ... Next for processing through them (ignore where name not Like "cmbDoughnut*") and build name of cmbAmount? from the Doughnut name.
This will avoid the necessity of building up the arrays outside of the loop.
Just a thought...

Sorry, I keep forgetting - Access doesn't do control arrays, does it?

[willakawill]

Sorry, I keep forgetting - Access doesn't do control arrays, does it?

No but it can be simulated

[Lobster]

Thanks everyone, I think I got it. Take a five year break from programming and you forget the simplest things.