By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
448,592 Members | 1,240 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 448,592 IT Pros & Developers. It's quick & easy.

Unbound ADO Continuous Sub-Form Form?

P: n/a
Hello All,

Is is possible to use an ADO recordset to populate an unbound continuous
Subform?

I've done some Googling without much luck, so this maybe impossible, but
let me try to explain why. I've been exploring using Access as a front
end to both SQL MSDE and Oracle XE. I'm in the process of writing a
class to handle the basics of the ADO connection and recordsets. The
basic relationships are as follows:

1 Main form with Company data (one side of relationship)

2 Subform with Exec data (many side of relationship)

3 Subform with Recordset Selectors buttons (Next, Previous, Last, &
First), current record # and total recordset count

4 Subform with Command buttons (i.e. Save, Cancel, Edit, New Record,
& Delete)

I've written successfully the complete form and subform (i.e. 1 & 2
above) WITHOUT the class and subforms for the recordset selectors and
command buttons (i.e. 3 & 4) above. This works if I dump the Exec data
into a temp Access table in the MDE file. LOTS OF CODE.

I can reduce the code by using the class. I've started writing the class
and have the Recordset Selectors buttons functionality working (i.e. 3
above) when I came across the ideal of form multiple instances per Allen
Brown's web site at http://allenbrowne.com/ser-35.html.

The PROBLEM: The Exec data in the subform which is the many side of the
relationship is currently using the temp Access table in the MDE file
which prevents multiple instances since there is only 1 set of Execs
which may not correlate with the other open instances of the form. Hence
the original question.

TIA!

--
Regards,

Greg Strong
Jun 8 '07 #1
Share this Question
Share on Google+
6 Replies


P: n/a
On Fri, 08 Jun 2007 12:33:24 -0500, Greg Strong
<ne*********@geedubeeu.com.invalidwrote:
>This works if I dump the Exec data
into a temp Access table in the MDE file. LOTS OF CODE.
^

MDB file

Sorry about the mistake!

--
Regards,

Greg Strong
Jun 8 '07 #2

P: n/a
>>
Is is possible to use an ADO recordset to populate an unbound continuous
Subform?
<<

No.

An Access form/subform has to read data from a persistent table or a
snapshot of a persistent table - like from a query or stored procedure.
ADO (com ADO) can't create an in-memory table like ADO.Net. What you
can do is to create a temp table within Access and populate that with
your ADO recordset. Then set your form recordsource to that table. But
as long as you are using a Server DB for the backend, you might consider
using stored procedures.

Rich

*** Sent via Developersdex http://www.developersdex.com ***
Jun 8 '07 #3

P: n/a
Nevermind about stored procedures. That would only work on an ADP.
With an mdb you can only use ADO or ODBC to use Data from a Server DB.

Rich

*** Sent via Developersdex http://www.developersdex.com ***
Jun 8 '07 #4

P: n/a
On 08 Jun 2007 20:34:47 GMT, Rich P <rp*****@aol.comwrote:
>>>
Is is possible to use an ADO recordset to populate an unbound continuous
Subform?
<<

No.
I've been informed from another source which has provided ideals that is
working in my code. Saying it simple we disagree with your answer.

See code below. Note the class has more code than necessary because I
was experimenting with different approaches. The solution has (1) the
form setting the recordset = to the opened ADO recordset in the class
module after passing it the form with (2) the appropriate controls for
the recordset 'Control Source' = to the field name.

(1) Set pfrm.Recordset = grsAcl 'see Sub FillContinuousFormOut

(2) on form property Control Source of 'field name' (ie. COID, etc)
--
Regards,

Greg Strong

Unbound form code with Textboxes Control source = Recordset field name
-------------------------------------------------------------->
Option Compare Database
Option Explicit
Public objADOform As FormADOReadWrite
Dim frm As Form
Dim strFrmName As String
Dim lngRcdNumber As Long
Private Sub Form_Close()
Set frm = Nothing
objADOform.CloseCnnADOcl
objADOform.Cleanup
End Sub
Private Sub Form_Open(Cancel As Integer)
strFrmName = Me.Name
Set frm = Forms(Me.Name)
Set objADOform = New FormADOReadWrite
objADOform.OpenCnnADOcl
objADOform.SetSQLRecordSet strFrmName
objADOform.FillContinuousFormOut frm
End Sub
Private Sub txtFocus_GotFocus()
'set focus to run code
Me!fsbRcdNavgtADO.SetFocus
Me!fsbRcdNavgtADO.Form!txtSubNavFocus.SetFocus
End Sub
--------------------------------------------------------------<


Class module FormADOReadWrite:
-------------------------------------------------------------->
Option Compare Database
Option Explicit
Private gcnnADOcl As ADODB.Connection
Private grsAcl As ADODB.Recordset
Private mobjSubFrmNav As SubFrmRecdNavigate
Private glngRecdCount As Long, mlngMoveNextRecordNo As Long, _
mlngMovePrevRecordNo As Long

Property Let RecordSetCount(lngRecNo As Long)
'grsAcl.MoveFirst
'grsAcl.MoveLast
lngRecNo = grsAcl.RecordCount
'grsAcl.MoveFirst
glngRecdCount = lngRecNo
End Property
Property Get RecordSetCount() As Long
RecordSetCount = glngRecdCount
End Property
Property Let MoveNextRecordNo(lngPrevRecdNo As Long)
'Debug.Print "MoveNext Let / Prev Recd No: "; lngPrevRecdNo & " Recd
Cnt: " & glngRecdCount
If lngPrevRecdNo + 1 <= glngRecdCount Then
lngPrevRecdNo = lngPrevRecdNo + 1
mlngMoveNextRecordNo = lngPrevRecdNo
Else
mlngMoveNextRecordNo = lngPrevRecdNo
End If
End Property
Property Get MoveNextRecordNo() As Long
MoveNextRecordNo = mlngMoveNextRecordNo
End Property
Property Let MovePreviousRecordNo(lngNextRecdNo As Long)
If lngNextRecdNo - 1 0 Then
lngNextRecdNo = lngNextRecdNo - 1
mlngMovePrevRecordNo = lngNextRecdNo
Else
mlngMovePrevRecordNo = lngNextRecdNo
End If
End Property
Property Get MovePreviousRecordNo() As Long
MovePreviousRecordNo = mlngMovePrevRecordNo
End Property
Sub OpenCnnADOcl()
Set gcnnADOcl = New ADODB.Connection

With gcnnADOcl
.ConnectionString = SetConStr(1)
.Open
End With

End Sub
Sub CloseCnnADOcl()
Set grsAcl = Nothing
With gcnnADOcl
.Close
End With

End Sub
Sub SetSQLRecordSet(ByVal strFormName As String)
Dim strSQL As String

Select Case strFormName
Case "frmCoToDo"
'pull all co's w/ ToDo = -1
strSQL = "SELECT " & gstrTblSpc & ".TBLCOMPANYINFO.COID, " &
gstrTblSpc & ".TBLCOMPANYINFO.CONAME, " & gstrTblSpc &
".TBLCOMPANYINFO.DIV, " & gstrTblSpc & ".TBLCOMPANYINFO.PHYSADDR, " &
gstrTblSpc & ".TBLCOMPANYINFO.PHYSCITY, " & gstrTblSpc &
".TBLCOMPANYINFO.PHYSSTATE, " & gstrTblSpc & ".TBLCOMPANYINFO.PHYSZIP, "
& gstrTblSpc & ".TBLCOMPANYINFO.PHYSCTY, " & gstrTblSpc &
".TBLCOMPANYINFO.MAILADDR, " & gstrTblSpc & ".TBLCOMPANYINFO.MAILCITY, "
& gstrTblSpc & ".TBLCOMPANYINFO.MAILSTATE, " & _
gstrTblSpc & ".TBLCOMPANYINFO.MAILZIP, " & gstrTblSpc &
".TBLCOMPANYINFO.CPUBRAND, " & gstrTblSpc & ".TBLCOMPANYINFO.CPUMODEL, "
& gstrTblSpc & ".TBLCOMPANYINFO.CPULANG, " & gstrTblSpc &
".TBLCOMPANYINFO.TELENUMBER, " & gstrTblSpc &
".TBLCOMPANYINFO.YEARESTAB, " & gstrTblSpc &
".TBLCOMPANYINFO.DISTRIBTYPE, " & gstrTblSpc &
".TBLCOMPANYINFO.OWNERTYPE, " & gstrTblSpc & ".TBLCOMPANYINFO.LOCCOUNT,
" & gstrTblSpc & ".TBLCOMPANYINFO.PRIMARYSIC, " & _
gstrTblSpc & ".TBLCOMPANYINFO.SIC2, " & gstrTblSpc &
".TBLCOMPANYINFO.SIC3, " & gstrTblSpc & ".TBLCOMPANYINFO.SIC4, " &
gstrTblSpc & ".TBLCOMPANYINFO.MINSALES, " & gstrTblSpc &
".TBLCOMPANYINFO.MAXSALES, " & gstrTblSpc & ".TBLCOMPANYINFO.SQUAREFEET,
" & gstrTblSpc & ".TBLCOMPANYINFO.IMPORTS, " & gstrTblSpc &
".TBLCOMPANYINFO.LocalTollNo, " & gstrTblSpc &
".TBLCOMPANYINFO.NATLTOLLNO, " & gstrTblSpc & ".TBLCOMPANYINFO.FAXNO, "
& gstrTblSpc & ".TBLCOMPANYINFO.PRODUCTS, " & _
gstrTblSpc & ".TBLCOMPANYINFO.BRANDS, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTNAME, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTADDR, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTCITY, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTSTATE, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTZIP, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTTELENO, " & gstrTblSpc & ".TBLCOMPANYINFO.WEBURL,
" & gstrTblSpc & ".TBLCOMPANYINFO.EMAIL, " & gstrTblSpc &
".TBLCOMPANYINFO.TODO " & _
"FROM " & gstrTblSpc & ".TBLCOMPANYINFO " & _
"WHERE (((" & gstrTblSpc & ".TBLCOMPANYINFO.TODO)=-1)) "
& _
"ORDER BY " & gstrTblSpc & ".TBLCOMPANYINFO.COID"
'Debug.Print "sql frmCoToDo"

Case "frmContactInfo"
strSQL = "SELECT " & gstrTblSpc & ".CONTACTID, " &
gstrTblSpc & ".CONTACTDATE, " & gstrTblSpc & ".EXECID, " & gstrTblSpc &
".TYPEID, " & gstrTblSpc & ".NOTES, " & gstrTblSpc & ".COMPLETED, " &
gstrTblSpc & ".COMPLETEDDATE"
Debug.Print "sql frmContactInfo"

Case "frmTest"
strSQL = "SELECT " & gstrTblSpc & ".TBLCOMPANYINFO.COID, " &
gstrTblSpc & ".TBLCOMPANYINFO.CONAME, " & gstrTblSpc &
".TBLCOMPANYINFO.DIV, " & gstrTblSpc & ".TBLCOMPANYINFO.PHYSADDR, " &
gstrTblSpc & ".TBLCOMPANYINFO.PHYSCITY, " & gstrTblSpc &
".TBLCOMPANYINFO.PHYSSTATE, " & gstrTblSpc & ".TBLCOMPANYINFO.PHYSZIP, "
& gstrTblSpc & ".TBLCOMPANYINFO.PHYSCTY, " & gstrTblSpc &
".TBLCOMPANYINFO.MAILADDR, " & gstrTblSpc & ".TBLCOMPANYINFO.MAILCITY, "
& gstrTblSpc & ".TBLCOMPANYINFO.MAILSTATE, " & _
gstrTblSpc & ".TBLCOMPANYINFO.MAILZIP, " & gstrTblSpc &
".TBLCOMPANYINFO.CPUBRAND, " & gstrTblSpc & ".TBLCOMPANYINFO.CPUMODEL, "
& gstrTblSpc & ".TBLCOMPANYINFO.CPULANG, " & gstrTblSpc &
".TBLCOMPANYINFO.TELENUMBER, " & gstrTblSpc &
".TBLCOMPANYINFO.YEARESTAB, " & gstrTblSpc &
".TBLCOMPANYINFO.DISTRIBTYPE, " & gstrTblSpc &
".TBLCOMPANYINFO.OWNERTYPE, " & gstrTblSpc & ".TBLCOMPANYINFO.LOCCOUNT,
" & gstrTblSpc & ".TBLCOMPANYINFO.PRIMARYSIC, " & _
gstrTblSpc & ".TBLCOMPANYINFO.SIC2, " & gstrTblSpc &
".TBLCOMPANYINFO.SIC3, " & gstrTblSpc & ".TBLCOMPANYINFO.SIC4, " &
gstrTblSpc & ".TBLCOMPANYINFO.MINSALES, " & gstrTblSpc &
".TBLCOMPANYINFO.MAXSALES, " & gstrTblSpc & ".TBLCOMPANYINFO.SQUAREFEET,
" & gstrTblSpc & ".TBLCOMPANYINFO.IMPORTS, " & gstrTblSpc &
".TBLCOMPANYINFO.LocalTollNo, " & gstrTblSpc &
".TBLCOMPANYINFO.NATLTOLLNO, " & gstrTblSpc & ".TBLCOMPANYINFO.FAXNO, "
& gstrTblSpc & ".TBLCOMPANYINFO.PRODUCTS, " & _
gstrTblSpc & ".TBLCOMPANYINFO.BRANDS, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTNAME, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTADDR, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTCITY, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTSTATE, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTZIP, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTTELENO, " & gstrTblSpc & ".TBLCOMPANYINFO.WEBURL,
" & gstrTblSpc & ".TBLCOMPANYINFO.EMAIL, " & gstrTblSpc &
".TBLCOMPANYINFO.TODO " & _
"FROM " & gstrTblSpc & ".TBLCOMPANYINFO " & _
"WHERE (((" & gstrTblSpc & ".TBLCOMPANYINFO.TODO)=-1)) "
& _
"ORDER BY " & gstrTblSpc & ".TBLCOMPANYINFO.COID"
'Debug.Print "sql frmCoToDo"

Case "frmTest_r2"
strSQL = "SELECT " & gstrTblSpc & ".TBLCOMPANYINFO.COID, " &
gstrTblSpc & ".TBLCOMPANYINFO.CONAME, " & gstrTblSpc &
".TBLCOMPANYINFO.DIV, " & gstrTblSpc & ".TBLCOMPANYINFO.PHYSADDR, " &
gstrTblSpc & ".TBLCOMPANYINFO.PHYSCITY, " & gstrTblSpc &
".TBLCOMPANYINFO.PHYSSTATE, " & gstrTblSpc & ".TBLCOMPANYINFO.PHYSZIP, "
& gstrTblSpc & ".TBLCOMPANYINFO.PHYSCTY, " & gstrTblSpc &
".TBLCOMPANYINFO.MAILADDR, " & gstrTblSpc & ".TBLCOMPANYINFO.MAILCITY, "
& gstrTblSpc & ".TBLCOMPANYINFO.MAILSTATE, " & _
gstrTblSpc & ".TBLCOMPANYINFO.MAILZIP, " & gstrTblSpc &
".TBLCOMPANYINFO.CPUBRAND, " & gstrTblSpc & ".TBLCOMPANYINFO.CPUMODEL, "
& gstrTblSpc & ".TBLCOMPANYINFO.CPULANG, " & gstrTblSpc &
".TBLCOMPANYINFO.TELENUMBER, " & gstrTblSpc &
".TBLCOMPANYINFO.YEARESTAB, " & gstrTblSpc &
".TBLCOMPANYINFO.DISTRIBTYPE, " & gstrTblSpc &
".TBLCOMPANYINFO.OWNERTYPE, " & gstrTblSpc & ".TBLCOMPANYINFO.LOCCOUNT,
" & gstrTblSpc & ".TBLCOMPANYINFO.PRIMARYSIC, " & _
gstrTblSpc & ".TBLCOMPANYINFO.SIC2, " & gstrTblSpc &
".TBLCOMPANYINFO.SIC3, " & gstrTblSpc & ".TBLCOMPANYINFO.SIC4, " &
gstrTblSpc & ".TBLCOMPANYINFO.MINSALES, " & gstrTblSpc &
".TBLCOMPANYINFO.MAXSALES, " & gstrTblSpc & ".TBLCOMPANYINFO.SQUAREFEET,
" & gstrTblSpc & ".TBLCOMPANYINFO.IMPORTS, " & gstrTblSpc &
".TBLCOMPANYINFO.LocalTollNo, " & gstrTblSpc &
".TBLCOMPANYINFO.NATLTOLLNO, " & gstrTblSpc & ".TBLCOMPANYINFO.FAXNO, "
& gstrTblSpc & ".TBLCOMPANYINFO.PRODUCTS, " & _
gstrTblSpc & ".TBLCOMPANYINFO.BRANDS, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTNAME, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTADDR, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTCITY, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTSTATE, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTZIP, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTTELENO, " & gstrTblSpc & ".TBLCOMPANYINFO.WEBURL,
" & gstrTblSpc & ".TBLCOMPANYINFO.EMAIL, " & gstrTblSpc &
".TBLCOMPANYINFO.TODO " & _
"FROM " & gstrTblSpc & ".TBLCOMPANYINFO " & _
"WHERE (((" & gstrTblSpc & ".TBLCOMPANYINFO.TODO)=-1)) "
& _
"ORDER BY " & gstrTblSpc & ".TBLCOMPANYINFO.COID"
'Debug.Print "sql frmCoToDo"

Case "frm_Test_ContinuousForm"
strSQL = "SELECT " & gstrTblSpc & ".TBLCOMPANYINFO.COID, " &
gstrTblSpc & ".TBLCOMPANYINFO.CONAME, " & gstrTblSpc &
".TBLCOMPANYINFO.DIV, " & gstrTblSpc & ".TBLCOMPANYINFO.PHYSADDR, " &
gstrTblSpc & ".TBLCOMPANYINFO.PHYSCITY, " & gstrTblSpc &
".TBLCOMPANYINFO.PHYSSTATE, " & gstrTblSpc & ".TBLCOMPANYINFO.PHYSZIP, "
& gstrTblSpc & ".TBLCOMPANYINFO.PHYSCTY, " & gstrTblSpc &
".TBLCOMPANYINFO.MAILADDR, " & gstrTblSpc & ".TBLCOMPANYINFO.MAILCITY, "
& gstrTblSpc & ".TBLCOMPANYINFO.MAILSTATE, " & _
gstrTblSpc & ".TBLCOMPANYINFO.MAILZIP, " & gstrTblSpc &
".TBLCOMPANYINFO.CPUBRAND, " & gstrTblSpc & ".TBLCOMPANYINFO.CPUMODEL, "
& gstrTblSpc & ".TBLCOMPANYINFO.CPULANG, " & gstrTblSpc &
".TBLCOMPANYINFO.TELENUMBER, " & gstrTblSpc &
".TBLCOMPANYINFO.YEARESTAB, " & gstrTblSpc &
".TBLCOMPANYINFO.DISTRIBTYPE, " & gstrTblSpc &
".TBLCOMPANYINFO.OWNERTYPE, " & gstrTblSpc & ".TBLCOMPANYINFO.LOCCOUNT,
" & gstrTblSpc & ".TBLCOMPANYINFO.PRIMARYSIC, " & _
gstrTblSpc & ".TBLCOMPANYINFO.SIC2, " & gstrTblSpc &
".TBLCOMPANYINFO.SIC3, " & gstrTblSpc & ".TBLCOMPANYINFO.SIC4, " &
gstrTblSpc & ".TBLCOMPANYINFO.MINSALES, " & gstrTblSpc &
".TBLCOMPANYINFO.MAXSALES, " & gstrTblSpc & ".TBLCOMPANYINFO.SQUAREFEET,
" & gstrTblSpc & ".TBLCOMPANYINFO.IMPORTS, " & gstrTblSpc &
".TBLCOMPANYINFO.LocalTollNo, " & gstrTblSpc &
".TBLCOMPANYINFO.NATLTOLLNO, " & gstrTblSpc & ".TBLCOMPANYINFO.FAXNO, "
& gstrTblSpc & ".TBLCOMPANYINFO.PRODUCTS, " & _
gstrTblSpc & ".TBLCOMPANYINFO.BRANDS, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTNAME, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTADDR, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTCITY, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTSTATE, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTZIP, " & gstrTblSpc &
".TBLCOMPANYINFO.PARENTTELENO, " & gstrTblSpc & ".TBLCOMPANYINFO.WEBURL,
" & gstrTblSpc & ".TBLCOMPANYINFO.EMAIL, " & gstrTblSpc &
".TBLCOMPANYINFO.TODO " & _
"FROM " & gstrTblSpc & ".TBLCOMPANYINFO " & _
"WHERE (((" & gstrTblSpc & ".TBLCOMPANYINFO.TODO)=-1)) "
& _
"ORDER BY " & gstrTblSpc & ".TBLCOMPANYINFO.COID"
'Debug.Print "sql frmCoToDo"
End Select

'Debug.Print strSQL

Call OpenRecordSetA_ADO(gcnnADOcl, strSQL)

End Sub
Sub OpenRecordSetA_ADO(cnnOpened As ADODB.Connection, _
pstrSQLa As String)
Set grsAcl = New ADODB.Recordset

'Debug.Print pstrSQLa
With grsAcl
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open pstrSQLa, cnnOpened, adOpenDynamic, adLockOptimistic
End With

End Sub

Sub FillContinuousFormOut(pfrm As Form)
Set pfrm.Recordset = grsAcl
End Sub
Sub ChgeParentFormControls(parentForm As Form, intButton As Integer)
Debug.Print "Parent Name: "; parentForm.Name & " Button #: ";
intButton
End Sub

Private Sub Class_Initialize()
Set mobjSubFrmNav = New SubFrmRecdNavigate
Set mobjSubFrmNav.Parent = Me
'Debug.Print "Parent Initialize event to set parent class"
End Sub
Sub Cleanup()
Set mobjSubFrmNav.Parent = Nothing
Set mobjSubFrmNav = Nothing
End Sub
Sub MoveNextRecord(lngRcdNoNext As Long)
'move to next record
'Debug.Print "Move Next Sub / lngRcdNoNext: "; lngRcdNoNext & "
glngRecdCount: " & glngRecdCount
'Debug.Print "Company Name B4: " & grsAcl!CONAME
If lngRcdNoNext + 1 <= glngRecdCount Then
grsAcl.MoveNext
'Debug.Print "Company Name After: " & grsAcl!CONAME
End If
End Sub
Sub MovePreviousRecord(lngRcdNoPrev As Long)
If lngRcdNoPrev - 1 0 Then
grsAcl.MovePrevious
End If
End Sub
Sub MoveFirstRecord()
If Not grsAcl.BOF Then
grsAcl.MoveFirst
End If
End Sub
Sub MoveLastRecord()
If Not grsAcl.EOF Then
grsAcl.MoveLast
End If
End Sub
--------------------------------------------------------------<
Jun 9 '07 #5

P: n/a
Greetings:
>>
"FROM " & gstrTblSpc & ".TBLCOMPANYINFO " & _
>>
Either I misenterpreted your question or else my response to the
question of "can you use an ADO recordset as the recordsource for a
continous form (or any Access form)" remains "No".
>>
"FROM " & gstrTblSpc & ".TBLCOMPANYINFO " & _
>>
This statement suggests what I suggested - that the data resides on a
persistent table - FROM " & gstrTblSpc -

I interpreted the question as if an MS Access form can have a
recordsource based on an "In Memory" recordset. My response to that
question is "NO". Only a .Net form can be based on an "In Memory"
recordset (dataset).
--so - looking at the question again:
>Is is possible to use an ADO recordset to populate an unbound
continuous
>Subform?
I may have misenterpreted the question. But that question sounds like
it is asking if you can use an "In Memory" recordset. Else, you
answered your own question. "Yes".

Rich

*** Sent via Developersdex http://www.developersdex.com ***
Jun 11 '07 #6

P: n/a
On 11 Jun 2007 15:13:04 GMT, Rich P <rp*****@aol.comwrote:
>I may have misenterpreted the question. But that question sounds like
it is asking if you can use an "In Memory" recordset. Else, you
answered your own question. "Yes".
I answered the question with support from other Access users. Maybe my
semantics were not correct. If so I do apologize. See code below.
Private grsAcl As ADODB.Recordset
The recordset is an ADO recordset.

--
Regards,

Greg Strong
Jun 15 '07 #7

This discussion thread is closed

Replies have been disabled for this discussion.