Question 1: How to refer to a arrayed multple textbox?

[jan Veenstra]

Hi,

I am having two problems with Access 97. These '2 problems are posted
seperately in this newsgroup. Here's the first:

I have a form with lots of similar textboxes and I have a procedure that

acts on all these textboxes. Therefore I would like to refer to these
textboxes as an array.

My real form is somewhat more complicated, so for simplicity: Let's say
I
have a form with 5 textboxes who's name is "JanTextBox (1)" until
"JanTextBox(5)" . I also have a button called "JanButton" and this button
has this code (on click):

Private Sub JanButton_Click ()

Dim X As Integer

For X = 1 To 5
JanTextBox(X).E nabled = True
Next

End Sub

This yields the error : "Compile Error function or subfunction not
defined"
So it sees JanTextBox as a function. So I tell him this is an object.

Private Sub JanButton_Click ()

Dim X As Integer
Dim JanTextBox(1 To 5) As TextBox

For X = 1 To 5
TextBox(Teller) .Enabled = True
Next

End Sub

This is also not accepted: "Run time error '91':
Object variable or With block variable not set."
So does it want a 'set' statement? Let's try:

Private Sub JanButton_Click ()

Dim X As Integer
Dim JanTextBox(1 To 5) As TextBox
Dim OtherBox As TextBox

For X = 1 To 5
Set OtherBox = JanTextBox(X)
OtherBox.Enable d = True
Next

End Sub

This gives the same result: "Run time error '91':
Object variable or With block variable not set."
It seems like Access doesn't want to recognize "JanTextBox (X)" as an
array
of textboxes.

How can I declare textboxes in an array like way?

Thanks: jan Veenstra
(For your information:

My initial solution however works but looks quite awkward
and I was trying to avoid this solution:
Renaming all JanTextBox(X) to JanTextBoxX:

Private Sub JanButton_Click ()

JanTextBox1.Ena bled = True
JanTextBox2.Ena bled = True
JanTextBox3.Ena bled = True
JanTextBox4.Ena bled = True
JanTextBox5.Ena bled = True

End Sub
)

--
..

[Arno R]

Try this:
Private Sub JanButton_Click ()
Dim X As Integer
For X = 1 To 5
Me("JanTextBox " & X)..Enabled = True
Next
End Sub

Arno R

"jan Veenstra" <ve*********@ho tmail.com> schreef in bericht news:42******** *******@hotmail .com...

Hi,

I am having two problems with Access 97. These '2 problems are posted
seperately in this newsgroup. Here's the first:

I have a form with lots of similar textboxes and I have a procedure that

acts on all these textboxes. Therefore I would like to refer to these
textboxes as an array.

My real form is somewhat more complicated, so for simplicity: Let's say
I
have a form with 5 textboxes who's name is "JanTextBox (1)" until
"JanTextBox(5)" . I also have a button called "JanButton" and this button
has this code (on click):

Private Sub JanButton_Click ()

Dim X As Integer

For X = 1 To 5
JanTextBox(X).E nabled = True
Next

End Sub

This yields the error : "Compile Error function or subfunction not
defined"
So it sees JanTextBox as a function. So I tell him this is an object.

Private Sub JanButton_Click ()

Dim X As Integer
Dim JanTextBox(1 To 5) As TextBox

For X = 1 To 5
TextBox(Teller) .Enabled = True
Next

End Sub

This is also not accepted: "Run time error '91':
Object variable or With block variable not set."
So does it want a 'set' statement? Let's try:

Private Sub JanButton_Click ()

Dim X As Integer
Dim JanTextBox(1 To 5) As TextBox
Dim OtherBox As TextBox

For X = 1 To 5
Set OtherBox = JanTextBox(X)
OtherBox.Enable d = True
Next

End Sub

This gives the same result: "Run time error '91':
Object variable or With block variable not set."
It seems like Access doesn't want to recognize "JanTextBox (X)" as an
array
of textboxes.

How can I declare textboxes in an array like way?

Thanks: jan Veenstra


(For your information:

My initial solution however works but looks quite awkward
and I was trying to avoid this solution:
Renaming all JanTextBox(X) to JanTextBoxX:

Private Sub JanButton_Click ()

JanTextBox1.Ena bled = True
JanTextBox2.Ena bled = True
JanTextBox3.Ena bled = True
JanTextBox4.Ena bled = True
JanTextBox5.Ena bled = True

End Sub
)

--
.

[Filips Benoit]

Try this

Private Sub Command15_Click ()
Dim cntl As Control
Dim iLoop As Byte
For Each cntl In Me.Controls
For iLoop = 1 To 5
If cntl.Name = "anTextBox" & CStr(iLoop) Then
Me(cntl.Name).E nabled = True
Next iLoop
Next cntl
End Sub
Filip
"jan Veenstra" <ve*********@ho tmail.com> wrote in message
news:42******** *******@hotmail .com...

Hi,

I am having two problems with Access 97. These '2 problems are posted
seperately in this newsgroup. Here's the first:

I have a form with lots of similar textboxes and I have a procedure that

acts on all these textboxes. Therefore I would like to refer to these
textboxes as an array.

My real form is somewhat more complicated, so for simplicity: Let's say
I
have a form with 5 textboxes who's name is "JanTextBox (1)" until
"JanTextBox(5)" . I also have a button called "JanButton" and this button
has this code (on click):

Private Sub JanButton_Click ()

Dim X As Integer

For X = 1 To 5
JanTextBox(X).E nabled = True
Next

End Sub

This yields the error : "Compile Error function or subfunction not
defined"
So it sees JanTextBox as a function. So I tell him this is an object.

Private Sub JanButton_Click ()

Dim X As Integer
Dim JanTextBox(1 To 5) As TextBox

For X = 1 To 5
TextBox(Teller) .Enabled = True
Next

End Sub

This is also not accepted: "Run time error '91':
Object variable or With block variable not set."
So does it want a 'set' statement? Let's try:

Private Sub JanButton_Click ()

Dim X As Integer
Dim JanTextBox(1 To 5) As TextBox
Dim OtherBox As TextBox

For X = 1 To 5
Set OtherBox = JanTextBox(X)
OtherBox.Enable d = True
Next

End Sub

This gives the same result: "Run time error '91':
Object variable or With block variable not set."
It seems like Access doesn't want to recognize "JanTextBox (X)" as an
array
of textboxes.

How can I declare textboxes in an array like way?

Thanks: jan Veenstra
(For your information:

My initial solution however works but looks quite awkward
and I was trying to avoid this solution:
Renaming all JanTextBox(X) to JanTextBoxX:

Private Sub JanButton_Click ()

JanTextBox1.Ena bled = True
JanTextBox2.Ena bled = True
JanTextBox3.Ena bled = True
JanTextBox4.Ena bled = True
JanTextBox5.Ena bled = True

End Sub
)

--
.

[David W. Fenton]

"Arno R" <ar***********@ tiscali.nl> wrote in
news:42******** *************@d reader2.news.ti scali.nl:

Private Sub JanButton_Click ()
Dim X As Integer
For X = 1 To 5
Me("JanTextBox " & X)..Enabled = True
Next
End Sub

While that works because of implicit type coercion, I think it's
always best to explicity coerce numeric types to strings when you
know that's what you have. So, I would have this, instead:

Dim X As Integer
For X = 1 To 5
Me("JanTextBox " & CStr(X()).Enabl ed = True
Next

--
David W. Fenton http://www.bway.net/~dfenton
dfenton at bway dot net http://www.bway.net/~dfassoc

[Filips Benoit]

Dim X As Integer
For X = 1 To 5
Me("JanTextBox " & CStr(X()).Enabl ed = True 'Errase the '(' after X
Next

"Filips Benoit" <be***********@ pandora.be> wrote in message
news:G2******** **************@ phobos.telenet-ops.be...

Try this

Private Sub Command15_Click ()
Dim cntl As Control
Dim iLoop As Byte
For Each cntl In Me.Controls
For iLoop = 1 To 5
If cntl.Name = "anTextBox" & CStr(iLoop) Then
Me(cntl.Name).E nabled = True
Next iLoop
Next cntl
End Sub
Filip
"jan Veenstra" <ve*********@ho tmail.com> wrote in message
news:42******** *******@hotmail .com...

Hi,

I am having two problems with Access 97. These '2 problems are posted
seperately in this newsgroup. Here's the first:

I have a form with lots of similar textboxes and I have a procedure that

acts on all these textboxes. Therefore I would like to refer to these
textboxes as an array.

My real form is somewhat more complicated, so for simplicity: Let's say
I
have a form with 5 textboxes who's name is "JanTextBox (1)" until
"JanTextBox(5)" . I also have a button called "JanButton" and this button
has this code (on click):

Private Sub JanButton_Click ()

Dim X As Integer

For X = 1 To 5
JanTextBox(X).E nabled = True
Next

End Sub

This yields the error : "Compile Error function or subfunction not
defined"
So it sees JanTextBox as a function. So I tell him this is an object.

Private Sub JanButton_Click ()

Dim X As Integer
Dim JanTextBox(1 To 5) As TextBox

For X = 1 To 5
TextBox(Teller) .Enabled = True
Next

End Sub

This is also not accepted: "Run time error '91':
Object variable or With block variable not set."
So does it want a 'set' statement? Let's try:

Private Sub JanButton_Click ()

Dim X As Integer
Dim JanTextBox(1 To 5) As TextBox
Dim OtherBox As TextBox

For X = 1 To 5
Set OtherBox = JanTextBox(X)
OtherBox.Enable d = True
Next

End Sub

This gives the same result: "Run time error '91':
Object variable or With block variable not set."
It seems like Access doesn't want to recognize "JanTextBox (X)" as an
array
of textboxes.

How can I declare textboxes in an array like way?

Thanks: jan Veenstra
(For your information:

My initial solution however works but looks quite awkward
and I was trying to avoid this solution:
Renaming all JanTextBox(X) to JanTextBoxX:

Private Sub JanButton_Click ()

JanTextBox1.Ena bled = True
JanTextBox2.Ena bled = True
JanTextBox3.Ena bled = True
JanTextBox4.Ena bled = True
JanTextBox5.Ena bled = True

End Sub
)

--
.

[Arno R]

"David W. Fenton" <dX********@bwa y.net.invalid> schreef in bericht news:Xn******** *************** ***********@24. 168.128.86...

"Arno R" <ar***********@ tiscali.nl> wrote in
news:42******** *************@d reader2.news.ti scali.nl:

Private Sub JanButton_Click ()
Dim X As Integer
For X = 1 To 5
Me("JanTextBox " & X)..Enabled = True
Next
End Sub

While that works because of implicit type coercion, I think it's
always best to explicity coerce numeric types to strings when you
know that's what you have. So, I would have this, instead:

Dim X As Integer
For X = 1 To 5
Me("JanTextBox " & CStr(X()).Enabl ed = True
Next

--
David W. Fenton http://www.bway.net/~dfenton
dfenton at bway dot net http://www.bway.net/~dfassoc

While my solution works and your solution won't ... ;-)
you are very right on the implicit vs. explicit issue.

You should have: Me("JanTextBox " & CStr(X)).Enable d = True

Arno R

[David W. Fenton]

"Arno R" <ar***********@ tiscali.nl> wrote in
news:42******** *************@d reader2.news.ti scali.nl:

"David W. Fenton" <dX********@bwa y.net.invalid> schreef in bericht
news:Xn******** *************** ***********@24. 168.128.86...

"Arno R" <ar***********@ tiscali.nl> wrote in
news:42******** *************@d reader2.news.ti scali.nl:

Private Sub JanButton_Click ()
Dim X As Integer
For X = 1 To 5
Me("JanTextBox " & X)..Enabled = True
Next
End Sub
While that works because of implicit type coercion, I think it's
always best to explicity coerce numeric types to strings when you
know that's what you have. So, I would have this, instead:

Dim X As Integer
For X = 1 To 5
Me("JanTextBox " & CStr(X()).Enabl ed = True
Next

--
David W. Fenton
http://www.bway.net/~dfenton dfenton at bway dot net
http://www.bway.net/~dfassoc

While my solution works and your solution won't ... ;-)
you are very right on the implicit vs. explicit issue.

Heh.
You should have: Me("JanTextBox " & CStr(X)).Enable d = True

That will teach me to post after coming back from the optometrist
after having my eyes dilated!

--
David W. Fenton http://www.bway.net/~dfenton
dfenton at bway dot net http://www.bway.net/~dfassoc

[David W. Fenton]

"Filips Benoit" <be***********@ pandora.be> wrote in
news:G2******** **************@ phobos.telenet-ops.be:

Private Sub Command15_Click ()
Dim cntl As Control
Dim iLoop As Byte
For Each cntl In Me.Controls
For iLoop = 1 To 5
If cntl.Name = "anTextBox" & CStr(iLoop) Then
Me(cntl.Name).E nabled = True
Next iLoop
Next cntl
End Sub

This is the kind of thing that seems to me to call out for a custom
collection.

You'd assign control references to the collection in the form's
OnLoad event, then when you want to enable controls, you'd just loop
through the collection.

--
David W. Fenton http://www.bway.net/~dfenton
dfenton at bway dot net http://www.bway.net/~dfassoc

[jan Veenstra]

"David W. Fenton" wrote:

"Arno R" <ar***********@ tiscali.nl> wrote in
news:42******** *************@d reader2.news.ti scali.nl:

Thanks guys. This really helped!

--
..