David Laplante
Oct 31st, 1999, 01:44 PM
I Have a procedure in an activex control that when I try to call I get and "Object required" error... any ideas?
Here's the code
Activex sub:
Public Sub Repopulate()
Dim DB As Database
Dim rstRecordSet As Recordset
Dim Entete As String
Dim Data As String
Dim I As Integer
Set DB = TechGrid.dsDatabase
Set rstRecordSet = DB.OpenRecordset(TechGrid.dsRecordset, dbOpenSnapshot)
Flexgrid.Rows = 2
Flexgrid.Cols = rstRecordSet.Fields.Count
Flexgrid.FixedRows = 1
'Faire les entetes de colonnes...
For I = 0 To rstRecordSet.Fields.Count - 1
If I = 0 Then
Entete = rstRecordSet.Fields(I).Name
Else
Entete = Entete & Chr(9) & rstRecordSet.Fields(I).Name
End If
Next I
'Populer la grille
rstRecordSet.MoveFirst
Do While Not rstRecordSet.EOF
For I = 0 To rstRecordSet.Fields.Count - 1
If I = 0 Then
Data = rstRecordSet.Fields(I).Value
Else
Data = Data & Chr(9) & rstRecordSet.Fields(I).Value
End If
Next I
Loop
End Sub
Now I call my procedure as so:
TechGrid1.Repopulate
Please Help.
Here's the code
Activex sub:
Public Sub Repopulate()
Dim DB As Database
Dim rstRecordSet As Recordset
Dim Entete As String
Dim Data As String
Dim I As Integer
Set DB = TechGrid.dsDatabase
Set rstRecordSet = DB.OpenRecordset(TechGrid.dsRecordset, dbOpenSnapshot)
Flexgrid.Rows = 2
Flexgrid.Cols = rstRecordSet.Fields.Count
Flexgrid.FixedRows = 1
'Faire les entetes de colonnes...
For I = 0 To rstRecordSet.Fields.Count - 1
If I = 0 Then
Entete = rstRecordSet.Fields(I).Name
Else
Entete = Entete & Chr(9) & rstRecordSet.Fields(I).Name
End If
Next I
'Populer la grille
rstRecordSet.MoveFirst
Do While Not rstRecordSet.EOF
For I = 0 To rstRecordSet.Fields.Count - 1
If I = 0 Then
Data = rstRecordSet.Fields(I).Value
Else
Data = Data & Chr(9) & rstRecordSet.Fields(I).Value
End If
Next I
Loop
End Sub
Now I call my procedure as so:
TechGrid1.Repopulate
Please Help.