This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(102.4, 95%, 19%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EMM%3C/text%3E%3C/svg%3E)
I have a form that constructs a RecordSet of unique values. I want to send the record set to a different form so I can create a table using the data from the passed record set.
I can send the record set to the new form, but I am getting an error 91 Object not set error when I try to view the record set using a Do Loop in the New Forms Open event.
Can anyone enlighten me how to do this?
Thank you,
MRM256
There are no traps, neither tricks here, so when you get a "not set" error, somehow your secret code doesn't pass the recordset.
Hey Gustav,
Nothing secret about the code since I found it on the Internet. Just puzzles me why the RecordSet (rsData) is considered not set when passed to the CreateTbls form. Do I have to assign the passed RecordSet to a new record set?
Code in standard module Googled from the Internet
Private Const POINTERSIZE As Long = 4
Private Const ZEROPOINTER As Long = 0
Public Declare Sub RtlMoveMemory Lib "kernel32" (ByRef Destination As Any, _
ByRef Source As Any, _
ByVal Length As Long)
Public Function GetPointerToObject(ByRef objThisObject As Object) As Long
Dim lngThisPointer As Long
RtlMoveMemory lngThisPointer, objThisObject, POINTERSIZE
GetPointerToObject = lngThisPointer
End Function
Public Function GetObjectFromPointer(ByVal lngThisPointer As Long) As Object
Dim objThisObject As Object
RtlMoveMemory objThisObject, lngThisPointer, POINTERSIZE
Set GetObjectFromPointer = objThisObject
RtlMoveMemory objThisObject, ZEROPOINTER, POINTERSIZE
End Function
Calling Event in frTblType_AfterUpdate()
Private Sub frTblType_AfterUpdate()
Select Case frTblType.Value
Case 1
'Create Support table using rsData
If Me.lstTarget.ListCount = 0 Then
Msg = "There are no columns in the " & _
"Target ListBox to make a new table." & _
vbCrLf & "Please add columns to target ListBox."
txtMsg.Value = Msg
ElseIf rsData Is Nothing Then
Msg = "This option requires a missing RecordSet." & _
vbCrLf & "Please supply the missing RecordSet."
txtMsg.Value = Msg
Else
'DoCmd.OpenForm "frmCreateTbl", acNormal, , , , , GetPointerToObject(rsData)
DoCmd.OpenForm "frmCreateTbl", _
WindowMode:=acWindowNormal, _
OpenArgs:=GetPointerToObject(rsData)
End If
Case 2
'Create an Empty table
If Me.lstTarget.ListCount = 0 Then
Msg = "There are no columns in the " & _
"Target ListBox to make a new table." & _
vbCrLf & "Please add columns to target ListBox."
txtMsg.Value = Msg
Else
'DoCmd.OpenForm "frmCreateTbl"
DoCmd.OpenForm "frmCreateTbl", _
WindowMode:=acWindowNormal, _
OpenArgs:=GetPointerToObject(rsData)
End If
Case Else
'Unselected option
Msg = "You must select either Support or Empty"
txtMsg.Value = Msg
End Select
End Sub
Form_Open event in Create Tables to see if record set was passed successfully
Private Sub Form_Open(Cancel As Integer)
'Checking for RecordSet data
'Was it passed successfully
Do While Not rsData.EOF
Debug.Print rsData.Fields(0)
rsData.MoveNext
Loop
End Sub
Found the problem.
If you are passing a RecordSet to another form using the example in my first post. Make sure you define the RecordSet as Public.
Thanks,
MRM256