Microsoft Access 2000


         


ctl.SpecialEffect = 0 '

ctl.BackColor = rst!BackColor '

ctl.BorderColor = 0 '

ctl.ColumnCount = 2 '

ctl.ColumnWidths = "7,932 ;1 " '

ctl.RowSource = "" '

End Select

ctl.Name = rst!Name '

ctl.ForeColor = !ForeColor '

rst.MoveNext '

Next i

End With

rst.Close '



funRestoreFormControls = True '

Exit Function '

999:

MsgBox Err.Description '

Err.Clear '