Populate An Unbound Form with Recordset

[mfaisalwarraich]

Hello Everybody,

Please tell me is there any way to populate an unbound form of MS Access 2002 with Recordset of an MS Access 2002 external database??

if yes then how???

I dont wana link tables/queries what i want is to hold all data in recordset and then display it into the form like continuous forms.

thank u.

[FishVal]

Hi, where.

You may try to use Form.Recordset property.
The following code bind an unbound form to table [t1] located in the same db.

Private Sub Form_Open(Cancel As Integer)
    Set Me.Recordset = CurrentDb.OpenRecordset("SELECT * FROM t1;")
End Sub
 

P.S. Sure, forms controls are expected to have right values in ControlSourcce property.

[ADezii]

Hello Everybody,

Please tell me is there any way to populate an unbound form of MS Access 2002 with Recordset of an MS Access 2002 external database??

if yes then how???

I dont wana link tables/queries what i want is to hold all data in recordset and then display it into the form like continuous forms.

thank u.

Let's assume you wish to populate an Unbound Access Form consisting of three Unbound Text Boxes named txtFirstName, txtLastName, and txtBirthDate. Furthermore, the mechanism with which you wish to populate this Form is via a Recordset created on an External Database. In this scenario, the External Database is Northwind.mdb residing in the C:\Test\ Directory. We will use the Employees Table as the source of the Recordset and populate our Unbound Access Form and Text Boxes with 3 Fields from this Recordset. Follow these 3 simple steps:

1. Place the following Declarations in the Form's Code Module (Declarations Section):
   

   Dim wrkJet As Workspace
   Dim dbsNorthwind As DAO.Database, rstNorthWind As DAO.Recordset

2. Copy and Paste the following code to the Open() Event of the Form:
   

   Private Sub Form_Open(Cancel As Integer)
   'Create Microsoft Jet Workspace object.
   Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
    
   'Open Database object from saved Microsoft Jet database for exclusive use
   Set dbsNorthwind = wrkJet.OpenDatabase("C:\Test\Northwind.mdb", True)
    
   Set rstNorthWind = dbsNorthwind.OpenRecordset("Employees", dbOpenDynaset)
    
   Set Me.Recordset = rstNorthWind
    
   Me![txtFirstName].ControlSource = "FirstName"
   Me![txtLastName].ControlSource = "LastName"
   Me![txtBirthDate].ControlSource = "BirthDate"
   End Sub

3. Place the following code in the Close() Event of the Form:
   

   Private Sub Form_Close()
     rstNorthWind.Close
     Set rstNorthWind = Nothing
   End Sub

4. This code has been tested and is fully operational, let me know how you make out.