That was awesome!! Thanks for the info, it is greatly appreciated.


""Charles Wang [MSFT]"" wrote in message
...
Hi Rockn,
You can save your checkboxes names and labels names into two arrays. Then
you can dynamic set the attributes according to the record loop and the
array index.
For example:
===================================
Public chkList As Variant
Public lblList As Variant


Private Sub cmdLoad_Click()
Dim dbsTest As DAO.Database
Dim rsTasks As DAO.Recordset
Dim strSQL As String
Dim strChkName As String
Dim strLblName As String
Dim intI As Integer

chkList = Array("chk0", "chk1", "chk2", "chk3", "chk4", "chk5")
lblList = Array("lbl0", "lbl1", "lbl2", "lbl3", "lbl4", "lbl5")

On Error GoTo ErrorHandler

Set dbsTest = CurrentDb
strSQL = "SELECT * FROM Tasks"
intI = 0
Set rsTasks = dbsTest.OpenRecordset(strSQL, dbOpenDynaset)
With rsTasks
Do Until .EOF
If intI 6 Then
strChkName = chkList(intI)
strLblName = lblList(intI)

Me.Controls(strChkName).Visible = True
Me.Controls(strLblName).Visible = True
Me.Controls(strChkName).Value = .Fields("ID").Value
Me.Controls(strLblName).Caption = .Fields("TASK_NAME").Value
intI = intI + 1
End If
.MoveNext
Loop
End With
rsTasks.Close
Set rsTasks = Nothing

Exit Sub
ErrorHandler:
MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description

End Sub
===========================================

Hope this helps. If you have any other questions or concerns, please feel
free to let me know. Have a nice day!

Best regards,
Charles Wang
Microsoft Online Community Support
================================================== =========
Delighting our customers is our #1 priority. We welcome your
comments and suggestions about how we can improve the
support we provide to you. Please feel free to let my manager
know what you think of the level of service provided. You can
send feedback directly to my manager at: .
================================================== =========
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/subscripti...ult.aspx#notif
ications.

Note: The MSDN Managed Newsgroup support offering is for
non-urgent issues where an initial response from the community
or a Microsoft Support Engineer within 1 business day is acceptable.
Please note that each follow up response may take approximately
2 business days as the support professional working with you may
need further investigation to reach the most efficient resolution.
The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by
contacting Microsoft Customer Support Services (CSS) at
http://msdn.microsoft.com/subscripti...t/default.aspx.
================================================== ==========
This posting is provided "AS IS" with no warranties, and confers no
rights.
================================================== =======