recordset based form VB code

  • Thread starter Thread starter rmanchu
  • Start date Start date
R

rmanchu

hi

v Access 2003

i've got a form which to which i attach a Recordset at runtime. ok upto
here
another form also. ok upto here

now i want to combine them in a single form in form/subform manner.

Private Sub Form_Open(Cancel As Integer)
Set Me.Recordset = rstSection
Me.SectionStaff.LinkMasterFields = "Section_CodeE"
Me.SectionStaff.LinkChildFields = "SecStaff_Section"
End Sub

however, on line two (LinkMasterFields), i get an error (31) saying
"Data Provider could not be initialised"

Private Sub Form_Open(Cancel As Integer)
Set Me.Recordset = rstSectionStaff
End Sub

the subform ^above^code^ is called correctly as well and before the
main form open method is called.

the fieldnames ARE correct - when i load the form/subform from *linked
tables* it works fine. i just cannot get VB code above to work. please
help.

halp
riyaz
 
I believe that when you set a forms reocrdset via code, then you can't use
the link master/child fields.

However, I suppose that since you are using code...then you just setup
"defaults" in the sub forms "on insert" event to set the foreign key
field...
 
hello

can u explain what u mean by "setup defaults in the sub forms on insert
event"?

do u mean like get the value of the linked field from the main form and
set that up?

if so, then i'll have to write a little code to filter the subform such
that only the "linked records" are shown in the subform?

am on the right track?

thanx
riyaz
 
can u explain what u mean by "setup defaults in the sub forms on insert
event"?

do u mean like get the value of the linked field from the main form and
set that up?
Click to expand...

Yes. So, in the sub forms "before insert" event (this event fires when the
user starts to type data), you could go:

me!FKID = me.parent!ID
if so, then i'll have to write a little code to filter the subform such
that only the "linked records" are shown in the subform?
Click to expand...

Yes...you will have to do the above also.....
 
hi. thanx for the reply
Yes...you will have to do the above also.....
Click to expand...

i'm having trouble with the above part.
note that i'm using Recordset objects attached at runtime for both
parent n child forms

-- parent form; "SectionStaff" is the subform object
Private Sub Form_Current()
Me.SectionStaff.Form.Filter = "SecStaff_Section='" &
me.Staff_CodeE.Value & "'"
End Sub

this does seem to filter the subform; ie all records r displayed; so i
changed it

Private Sub Form_Current()
Me.SectionStaff.Form.Filter = "SecStaff_Section='" &
me.Staff_CodeE.Value & "'"
Me.SectionStaff.Form.FilterOn = True
End Sub

but this does not seem to work either :(

is it possible to c an example on this?
what am i doing wrong?

thanx n haalp
riyaz
 
Back
Top