Open Form change record source

[naobao]

Hi,

I use this code in form button, to open another form, but is not work...

Form!CHECK_OUT_1.Form.RecordSource = "CHECK_OUT_data_1"
DoCmd.OpenForm "CHECK_OUT_1", acFormDS, "", "", acReadOnly, acNormal

 

[arnelgp]

use CHECK_OUT_1 form's Open Event:

private sub form_open(cancel as integer)
me.recordsource="CHECK_OUT_data_1"
end sub

 

[naobao]

use CHECK_OUT_1 form's Open Event:

private sub form_open(cancel as integer)
me.recordsource="CHECK_OUT_data_1"
end sub

I need to open "CHECK_OUT_1" form's by different record source,
so need to open by different button, can't use Open Event.

 

[arnelgp]

passed the recordsource as parameter:

DoCmd.OpenForm "CHECK_OUT_1", acFormDS, "", "", acReadOnly, acNormal,"CHECK_OUT_data_1"


again on the open event of CHECK_OUT_1 form:


private sub form_open(cancel as integer)
if not isnull(me.openargs) then _
me.recordsource=me.openargs & ""
end sub

 

[naobao]

passed the recordsource as parameter:

DoCmd.OpenForm "CHECK_OUT_1", acFormDS, "", "", acReadOnly, acNormal,"CHECK_OUT_data_1"


again on the open event of CHECK_OUT_1 form:


private sub form_open(cancel as integer)
if not isnull(me.openargs) then _
me.recordsource=me.openargs & ""
end sub

Thanks so much!!

 

[arnelgp]

ur welcome.