Can a tab be created in form when a record is created or query is run?

[Rotorian]

Hello,

This is a design question not a "how to" I would like know if it can be done before searching for a non existant answer :).

If a record is created via a form, can a tab be created on another form from that record creation?

I.e. user creates record 286 (arbitrary number) via FormRecordEntry. Is it possible that a tab be created at that time on FormLog for that record?

I am thinking if that can be done, then I can create an OnClick event for the tab to query TableRecords for all subdata that relates to record 286.

If it is doable, I'll go searching for the how-to.

Regards,

[ChipR]

I haven't really explored whether this is possible, but I would doubt it could be done outside of design mode. I think it might be easier, though, to have a continuous form with a record selector, and a linked subform with details. When a record is added, it will show up in the continuous form, where it can be selected to view details. On the other hand, I'm not sure of any way to make the records list horizontally, if that's what your application requires.

[Rotorian]

Okies, ChipR.

I see where that would also take care of it.

[NeoPa]

I can't see how it would make sense to design a page (Tab) that relates to a specific record. Surely the page would relate to a particular record source. Assuming that to be the case then the form on that page could be requeried or its filter could be reset. These would give what you require without design changes. I'm assuming your requirements are for what I'm thinking. Otherwise your question doesn't make sense to me. Maybe I'm missing something.

[ADezii]

@Rotorian
I too like NeoPa am slightly lost, but I'll nonetheless show you how to dynamically add another Tab (Page) to a Tab Control named TabCtl1 on frmTabTest and give it the Caption of 'Last Tab Added':

Dim frm As Form
Dim tbc As TabControl
 
DoCmd.OpenForm "frmTabTest", acDesign
 
Set frm = Forms!frmTabTest
Set tbc = frm!TabCtl1
 
tbc.Pages.Add
 
tbc.Pages(tbc.Pages.Count - 1).Caption = "Last Tab Added"
 
DoCmd.OpenForm "frmTabTest", acNormal