Displaying labels and checkboxes at runtime, but getting errros

[pluggy]

Hello,

I am trying to display, on an MS Access form (frm024), the contents of a table (tbl_TypeOfOrgs). The table has two fields, OrgTypeID and OrgType. It currently has 4 records. This table could expand or shrink.

The OrgType field needs to be displayed on a form (frm024, as Labels) along with checkboxs next to them. When completing the form, the user will select the appropriate checkboxes.

Now, because this table could be expanded (or shrunk) I need to be able to dynamically create the labels and checkboxes at runtime. Then when a save button is hit on the form another table will be updated with the OrgTypeID (and the OrgID, which is already on the form).

My problem is that I can't get the the labels to show on the form. I get an 'ActiveX component can't create object' error.

The code I have is as follows:

========================================

Private Sub btn033_Click()
On Error GoTo Err_btn033_Click

DoCmd.OpenForm "frm027"

Dim conn As ADODB.Connection, rcd1 As New ADODB.Recordset
Dim intCountRecords As Integer
Set conn = CurrentProject.Connection
rcd1.Open "tbl_TypeOfOrgs", conn, adOpenKeyset, adLockOptimistic
intCountRecords = rcd1.RecordCount

MsgBox intCountRecords

rcd1.MoveFirst
Dim Label1() As Label
ReDim Label1(intCountRecords)

Dim Text1() As TextBox
ReDim Text1(intCountRecords)

Dim i As Integer
For i = 1 To intCountRecords ' the number of names you have
MsgBox i
Text1(i) = New TextBox
'Load Text1(I)

'Label1(I) = New Label
'Load Label1(I) = New Label

'Text1(I).Visible = True
'Label1(I).Visible = True
'Label1(I).Top = Label1(I - 1).Top + Label1(I - 1).Height + 100
'Text1(I).Top = Text1(I - 1).Top + Text1(I - 1).Height + 100
'Text1(I).TabIndex = Text1(I - 1).TabIndex + 1
Next i



Exit_btn033_Click:
Exit Sub

Err_btn033_Click:
MsgBox Err.Description
Resume Exit_btn033_Click
End Sub

===========================================

Apologies for the commented out code, I have tried numerous ways having looked all over the net. But to no avail.

The 'MsgBox i' line is showing that the code is breaking here.

Please help before I lose all my hair!!!!

I am running Access 2000 and MS VB 6.3, and am exremely new to this language.

Thanks in anticipation.

[Dököll]

Hello,

I am trying to display, on an MS Access form (frm024), the contents of a table (tbl_TypeOfOrgs). The table has two fields, OrgTypeID and OrgType. It currently has 4 records. This table could expand or shrink.

The OrgType field needs to be displayed on a form (frm024, as Labels) along with checkboxs next to them. When completing the form, the user will select the appropriate checkboxes.

Now, because this table could be expanded (or shrunk) I need to be able to dynamically create the labels and checkboxes at runtime. Then when a save button is hit on the form another table will be updated with the OrgTypeID (and the OrgID, which is already on the form).

My problem is that I can't get the the labels to show on the form. I get an 'ActiveX component can't create object' error.

The code I have is as follows:

========================================

Private Sub btn033_Click()
    On Error GoTo Err_btn033_Click
 
    DoCmd.OpenForm "frm027"
 
    Dim conn As ADODB.Connection, rcd1 As New ADODB.Recordset
    Dim intCountRecords As Integer
    Set conn = CurrentProject.Connection
    rcd1.Open "tbl_TypeOfOrgs", conn, adOpenKeyset, adLockOptimistic
    intCountRecords = rcd1.RecordCount
 
    MsgBox intCountRecords
 
    rcd1.MoveFirst
    Dim Label1() As Label
    ReDim Label1(intCountRecords)
 
    Dim Text1() As TextBox
    ReDim Text1(intCountRecords)
 
    Dim i As Integer
    For i = 1 To intCountRecords ' the number of names you have
        MsgBox i
        Text1(i) = New TextBox
        'Load Text1(I)
 
        'Label1(I) = New Label
        'Load Label1(I) = New Label
 
        'Text1(I).Visible = True
        'Label1(I).Visible = True
        'Label1(I).Top = Label1(I - 1).Top + Label1(I - 1).Height + 100
        'Text1(I).Top = Text1(I - 1).Top + Text1(I - 1).Height + 100
        'Text1(I).TabIndex = Text1(I - 1).TabIndex + 1
    Next i
 
 
 
Exit_btn033_Click:
    Exit Sub
 
Err_btn033_Click:
    MsgBox Err.Description
    Resume Exit_btn033_Click
End Sub
 

===========================================

Apologies for the commented out code, I have tried numerous ways having looked all over the net. But to no avail.

The 'MsgBox i' line is showing that the code is breaking here.

Please help before I lose all my hair!!!!

I am running Access 2000 and MS VB 6.3, and am exremely new to this language.

Thanks in anticipation.

Perhaps this will not solve the problem you are having, looks like a nicely written code. But the only thing I see is that you dimensioned Text1(), and have it set to relay a loop as i, but are loading it as 'Load Text1(I)

Looks like the application is looking for i...