Hi

I am trying to write a code where there are 25 non visible lable on a form.
I want to make that lable visible if recordset has a value to write.

while (Not (rs.EOF))

me.lbl1.visible = true
me.lbl1.caption = rs![Pat]
rs.MoveNext
' if rs.movenext is ture then i want to show second lable and wirte a vlue
'in that lable
' me.lbl2.visible = true
'me.lbl2.caption = rs![Pat]

Wend

Can anyone hlp me please , Thank You !
SAP

I'm not a big fan of the While-Wend loop, so I rewrote this in a Do Loop:

Dim strName as string
Dim nCount as long

nCount = 1

Do Until rs.EOF
strName = "lbl" & CStr(nCount)
Me.Controls(strName).Visible = True
Me.Controls(strName).Caption = rs("Pat")
rs.MoveNext
nCount = nCount +1
Loop

I'm making the assumption that you have a properly opened recordset with the
appropriate fields, etc.


"SAP" <saparikh_98 (AT) yahoo (DOT) com> wrote