Forms Substitution Within A Loop

[lhooker]

How can I substitute "A1" in a "Forms" statement within a loop (as shown below) to move to the next textbox in a form.

Dim strAs As String
Dim Counter As Integer
Counter = 0

Do Until Counter = 30
Counter = Counter + 1
varX = DLookup("Question" & Counter, "Answers_Horizontal")
strAs = "[" & "A" & Counter & "]
"[Forms]![Form_Questions]!" & strAs & " = varX"
Loop


This is the original syntax ===> [Forms]![Form_Questions]![A1] = varX
I do not want create thirty (30) "Forms" statements.

 

[plog]

Why not respond back to the original thread you made for this:

Variable For "Forms" Statement

How can I make [A1] an acceptable varible that will be allowed with the below "Forms" statement ? That is make [A1] change to [A2], [A3 , [A4], [A5], [A6] . . . etc. [Forms]![Form_Questions]![A1] = varX I tried the statement below, but it did not work. Counter = 1 Do While Counter

www.access-programmers.co.uk

People had given advice.

 

[MajP]

Again. Dot notation not bang.

 

[Mark_]

Again. Dot notation not bang.

Are you saying he just banged this code out?

 

[lhooker]

Why not respond back to the original thread you made for this:

Variable For "Forms" Statement

How can I make [A1] an acceptable varible that will be allowed with the below "Forms" statement ? That is make [A1] change to [A2], [A3 , [A4], [A5], [A6] . . . etc. [Forms]![Form_Questions]![A1] = varX I tried the statement below, but it did not work. Counter = 1 Do While Counter

www.access-programmers.co.uk

People had given advice.

I did already . . . I used the EXCEL 'Transpose' feature.

 

[arnelgp]

maybe try:

Do Until Counter = 30
    Counter = Counter + 1
    varX = DLookup("Question" & Counter, "Answers_Horizontal")
    strAs = "A" & Counter
    Forms("Questions").Controls(strAs) = varX
Loop

 

[MajP]

Are you saying he just banged this code out?

No. Explained here.
Thread 'Bang Vs Dot, Me, and Default Properties' https://www.access-programmers.co.uk/forums/threads/bang-vs-dot-me-and-default-properties.327749/

Explains that only variable references can be used in Dot. @arnelgp is demoing using Dot. My previous thread did the same.

 

[lhooker]

maybe try:

Do Until Counter = 30
    Counter = Counter + 1
    varX = DLookup("Question" & Counter, "Answers_Horizontal")
    strAs = "A" & Counter
    Forms("Questions").Controls(strAs) = varX
Loop

This worked . . . Thanks ! ! !

 

[cheekybuddha]

Are you saying he just banged this code out?

No. Explained here.

Whoosh!

 

[lhooker]

No. Explained here.
Thread 'Bang Vs Dot, Me, and Default Properties' https://www.access-programmers.co.uk/forums/threads/bang-vs-dot-me-and-default-properties.327749/

Explains that only variable references can be used in Dot. @arnelgp is demoing using Dot. My previous thread did the same.

I used the EXCEL 'Transpose' featureand the code below to resolve my problems.

Do Until Counter = 30
Counter = Counter + 1
varX = DLookup("Question" & Counter, "Answers_Horizontal")
strAs = "A" & Counter
Forms("Questions").Controls(strAs) = varX
Loop

 

[The_Doc_Man]

@lhooker, just for clarity: It appeared that you triple-posted. I deleted two of the three. I checked that they were, in fact, duplicates before doing so.

 

[lhooker]

@lhooker, just for clarity: It appeared that you triple-posted. I deleted two of the three. I checked that they were, in fact, duplicates before doing so.

Thank you ! ! ! I wanted everyone to know that my problems were resolved. Someone mentioned in one of previous posts that I should let everyone know. Obviously, I made too many posts.