[AccessD] A2K: DlookUp in a For Next Loop

Darren why not use a recordset filtering it by [OptionID = 1] to hold the values in your MyCriteria fields and set y = rs.Fields().Value?

'watch for wrapping
<more pseudocode>
Dim sSQL As String
Dim rs As Recordset
	sSQL = "SELECT MyCriteria1, MyCriteria2, MyCriteria3, MyCriteria4, MyCriteria5, MyCriteria6 FROM tblOptions WHERE OptionID = 1"
	For x = 1 to 6
	  y = rs.Fields(x - 1).Value
	  Me.Controls("MyControl" & x) = y
	Next x
</more pseudocode>

HTH,

Jim DeMarco
Director Product Development
Hudson Health Plan


-----Original Message-----
From: Darren DICK [mailto:d.dick at uws.edu.au]
Sent: Thursday, October 23, 2003 7:47 AM
To: AccessD List
Subject: [AccessD] A2K: DlookUp in a For Next Loop


Hello all
I have a table called tblOptions Int it are 6 fields each sequentially numbered 
MyCriteria1,MyCriteria2,MyCriteria3,MyCriteria4,MyCriteria5,MyCriteria6

I have a form with 6 controls on it called MyControl1, MyControl2,MyControl3 etc.
The form they are on is not bound in any way to the table tblOptions.

So what I wanted to do was a "for next" loop using DlookUp, but I can't get it right. :-(
In psuedo code I want something like...

Dim x, y
For x = 1 To 6
        y  =  DLookup("[MyCriteria & x]", "tblOptions", "[OptionID] = 1")
        Me.MyControl" & x =  y
Next

Of course this doesn't work and I know I could do soemthing like

Me.MyControl1 = DLookup("[MyCriteria1]", "tblOptions", "[OptionID] = 1")

Me.MyControl2 = DLookup("[MyCriteria2]", "tblOptions", "[OptionID] = 1")
Me.MyControl3 = DLookup("[MyCriteria3]", "tblOptions", "[OptionID] = 1")

etc but I wanted something neater

Many thanks in advance

Darren


_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


***********************************************************************************
"This electronic message is intended to be for the use only of the named recipient, and may contain information from Hudson Health Plan (HHP) that is confidential or privileged.  If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution or use of the contents of this message is strictly prohibited.  If you have received this message in error or are not the named recipient, please notify us immediately, either by contacting the sender at the electronic mail address noted above or calling HHP at (914) 631-1611. If you are not the intended recipient, please do not forward this email to anyone, and delete and destroy all copies of this message.  Thank You".
***********************************************************************************