RecordsetClone - referencing another form

[supergirlgem]

Hi,

I have just been on an access course and was given the following code:

Dim rs As DAO.Recordset
Set rs = Forms!frmFilm.Form.RecordsetClone
 
Call rs.FindFirst("FilmID =" & Me.lstFilm.Value)
Forms!frmFilm.Recordset.Bookmark = rs.Bookmark
Call DoCmd.Close(acForm, "frmFindFilm")
 
I have a form called frmFilm and a form called frmFindFilm, the above code is in the frmFindFIlm module. I'm using access 2002 (and have also tried it on access 2003) and the following error occurs:
 
Run-time error '2450':
 
Film Library can't find the form 'frmFilm' referenced in a macro expression or visual basic code. When I click debug the following line is highlighted:
 
Set rs = Forms!frmFilm.RecordsetClone

Can anyone help? Thanks

Gemma

[PianoMan64]

Hi,

I have just been on an access course and was given the following code:

Dim rs As DAO.Recordset
Set rs = Forms!frmFilm.Form.RecordsetClone

Call rs.FindFirst("FilmID =" & Me.lstFilm.Value)
Forms!frmFilm.Recordset.Bookmark = rs.Bookmark
Call DoCmd.Close(acForm, "frmFindFilm")

I have a form called frmFilm and a form called frmFindFilm, the above code is in the frmFindFIlm module. I'm using access 2002 (and have also tried it on access 2003) and the following error occurs:

Run-time error '2450':

Film Library can't find the form 'frmFilm' referenced in a macro expression or visual basic code. When I click debug the following line is highlighted:

Set rs = Forms!frmFilm.RecordsetClone

Can anyone help? Thanks

Gemma

Gemmal,

Ok, the reason that the reference line that you're speaking about doesn't work, you're assuming the form that it's trying to reference is Open. The reason it fails is because there isn't an active reference to the recordset. You'll need to create the recordset within the code block that you're speaking of in order to make use of it.

for example:

Dim db as DAO.Database
dim rs as DAO.Recordset
 
'Set rs = db.OpenRecordset("The Name of the table that you're wanting the information from",dbOpenDynaset)
 
'Example
 
Set rs = db.OpenRecordSet("SELECT * FROM [Film Table] WHERE FilmID=" & me.lstFilm.value, dbOpenDynaset)
 
'Then you can simply display that recordset in a listbox or set the Recordset to the active form, as long as the active form is of the same structure as the table it is coming from?
 
'otherwise, I would simply display that in a listbox control
 
 

If you need help as to how to bind that to another control on a form, or how to display the results in a listbox control, let me know, I can send you code examples.

Hope that helps,

Joe P.

[neelaseenu]

Ji Joe,

Do you mind sending the code examples as i need this to my application. I have got a recordset with 22 columns and rows may varry, I need this data to be displayed on grid view control or similar.
I have used this but its failed
Gridview4.DataSource = MyRSet.
Comes up with Run time error 438.
Also i need a functionality to edit one of the colum and update in database accordingly.
Much appreciated if you can send me the code

[PianoMan64]

Ji Joe,

Do you mind sending the code examples as i need this to my application. I have got a recordset with 22 columns and rows may varry, I need this data to be displayed on grid view control or similar.
I have used this but its failed
Gridview4.DataSource = MyRSet.
Comes up with Run time error 438.
Also i need a functionality to edit one of the colum and update in database accordingly.
Much appreciated if you can send me the code

Ok, take what I've already sent you to connect to the data and if you're wanting to bind that to your List control Gridview4 then here's what you need to do.

In the same routine and the following line of code:

 
me.gridview4.rowsource = MyRSet.Name
 
 

Please make sure that the number of columns and the columnwidths are set to display the data the way that you want it to.

If you have more questions, let me know.

Joe P.