Loading forms as classes from Listbox click events

D

dd

Not one for the novice. I reckon this is a bug.

When I click on a given listbox in a form, I open another form which
has a listbox on it.
If I open that second form as a class module, then the listbox on the
second form won't work, you can't click on it.

Its only a problem when:
1. Open the second form as a class module (set frm = new Form_Form2) as
opposed to using docmd.openform (its done this way so can open multiple
copies of the second form)
2. Open the second form from within a Click event on a listbox on the
first form (dblclick is ok, click from a textbox is ok).
3. The secondform has a combo or listbox (normal or multiselect).

Have attached forms to demonstrate. Just paste this code into a module
and run it to create the test forms.

So anyone got any ideas? know how you get MS to look into a bug?
Cheers


------------------------------­------------------------------
' When you paste or change this code, save & compile before trying to
run
Sub MakeThisForm()

Dim frm As Form
Dim ctl As Control
Dim strFormName As String

On Error Resume Next
Set frm = Application.CreateForm()
strFormName = frm.Name
DoCmd.SelectObject acForm, strFormName
frm.RecordSource=""
frm.Filter=""
frm.FilterOn="False"
frm.OrderBy=""
frm.OrderByOn="False"
frm.AllowFilters="True"
frm.Caption="Caller"
frm.DefaultView="0"
frm.ViewsAllowed="0"
frm.AllowEditing="True"
frm.DefaultEditing="2"
frm.AllowEdits="True"
frm.AllowDeletions="True"
frm.AllowAdditions="True"
frm.DataEntry="False"
frm.AllowUpdating="0"
frm.RecordsetType="0"
frm.RecordLocks="0"
frm.ScrollBars="3"
frm.RecordSelectors="False"
frm.NavigationButtons="False"
frm.DividingLines="True"
frm.AutoResize="True"
frm.AutoCenter="False"
frm.PopUp="False"
frm.Modal="False"
frm.BorderStyle="2"
frm.ControlBox="True"
frm.MinButton="True"
frm.MaxButton="True"
frm.MinMaxButtons="3"
frm.CloseButton="True"
frm.WhatsThisButton="False"
frm.Width="5886"
frm.Picture="(none)"
frm.PictureType="0"
frm.PictureSizeMode="0"
frm.PictureAlignment="2"
frm.PictureTiling="False"
frm.Cycle="0"
frm.MenuBar=""
frm.Toolbar=""
frm.ShortcutMenu="True"
frm.ShortcutMenuBar=""
frm.GridX="10"
frm.GridY="10"
frm.LayoutForPrint="False"
frm.FastLaserPrinting="True"
frm.HelpFile=""
frm.HelpContextId="0"
frm.SubdatasheetHeight="0"
frm.SubdatasheetExpanded="False"
frm.RowHeight="-1"
frm.DatasheetFontName="Arial"
frm.DatasheetFontHeight="8"
frm.DatasheetFontWeight="400"
frm.DatasheetFontItalic="False"
frm.DatasheetFontUnderline="False"
frm.DatasheetGridlinesBehavior="3"
frm.DatasheetGridlinesColor="12632256"
frm.DatasheetCellsEffect="0"
frm.DatasheetForeColor="0"
frm.ShowGrid="True"
frm.DatasheetBackColor="16777215"
frm.DatasheetBorderLineStyle="1"
frm.HorizontalDatasheetGridlineStyle="1"
frm.VerticalDatasheetGridlineStyle="1"
frm.DatasheetColumnHeaderUnderlineStyle="1"
frm.Hwnd="3081030"
frm.Count="13"
frm.LogicalPageWidth="9070"
frm.Visible="True"
frm.Painting="True"
frm.FrozenColumns="1"
frm.Name="frmCaller"
frm.PaletteSource="(Default)"
frm.Tag=""
frm.PaintPalette=""
frm.OpenArgs=""
frm.OnCurrent=""
frm.BeforeInsert=""
frm.AfterInsert=""
frm.BeforeUpdate=""
frm.AfterUpdate=""
frm.OnDirty=""
frm.OnDelete=""
frm.BeforeDelConfirm=""
frm.AfterDelConfirm=""
frm.OnOpen=""
frm.OnLoad=""
frm.OnResize=""
frm.OnUnload=""
frm.OnClose=""
frm.OnActivate=""
frm.OnDeactivate=""
frm.OnGotFocus=""
frm.OnLostFocus=""
frm.OnClick=""
frm.OnDblClick=""
frm.OnMouseDown=""
frm.OnMouseMove=""
frm.OnMouseUp=""
frm.OnKeyDown=""
frm.OnKeyUp=""
frm.OnKeyPress=""
frm.KeyPreview="False"
frm.OnError=""
frm.OnFilter=""
frm.OnApplyFilter=""
frm.OnTimer=""
frm.TimerInterval="0"
frm.WindowWidth="8280"
frm.WindowHeight="7350"
frm.CurrentView="0"
frm.PictureData=""
frm.InsideHeight="6645"
frm.InsideWidth="7860"
frm.PicturePalette=""
frm.HasModule="True"
frm.AllowDesignChanges="True"
frm.Section(acDetail).Height=4830
frm.Section(acDetail).Visible=True
frm.Width=5886
Set ctl = Application.CreateControl(strFormName, acTextBox, 0,
"frmCaller", 1440, 495, 1500, 300)
ctl.EventProcPrefix="Text0"
ctl.Name="Text0"
ctl.ControlType="109"
ctl.ControlSource=""
ctl.Format=""
ctl.ConditionalFormat=""
ctl.DecimalPlaces="255"
ctl.InputMask=""
ctl.DefaultValue=""
ctl.ValidationRule=""
ctl.ValidationText=""
ctl.StatusBarText=""
ctl.EnterKeyBehavior="False"
ctl.AllowAutoCorrect="True"
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Enabled="True"
ctl.Locked="False"
ctl.FilterLookup="1"
ctl.AutoTab="False"
ctl.TabStop="True"
ctl.TabIndex="0"
ctl.ScrollBars="0"
ctl.CanGrow="False"
ctl.CanShrink="False"
ctl.Left="1440"
ctl.Top="495"
ctl.Width="1500"
ctl.Height="300"
ctl.BackStyle="1"
ctl.BackColor="16777215"
ctl.SpecialEffect="2"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ShortcutMenuBar=""
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.ColumnWidth="-1"
ctl.ColumnOrder="0"
ctl.ColumnHidden="False"
ctl.Section="0"
ctl.Tag=""
ctl.InSelection="False"
ctl.BeforeUpdate=""
ctl.AfterUpdate=""
ctl.OnChange=""
ctl.OnEnter=""
ctl.OnExit=""
ctl.OnGotFocus=""
ctl.OnLostFocus=""
ctl.OnClick=""
ctl.OnDblClick="[Event Procedure]"
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.OnKeyDown=""
ctl.OnKeyUp=""
ctl.OnKeyPress=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
ctl.IsHyperlink="False"
Set ctl = Application.CreateControl(strFormName, acLabel, 0, "Text0",
0, 495, 1155, 240)
ctl.EventProcPrefix="Label1"
ctl.Name="Label1"
ctl.ControlType="100"
ctl.Caption="Text DblClick"
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="0"
ctl.Top="495"
ctl.Width="1155"
ctl.Height="240"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
Set ctl = Application.CreateControl(strFormName, acTextBox, 0,
"frmCaller", 1485, 0, 1440, 300)
ctl.EventProcPrefix="Text2"
ctl.Name="Text2"
ctl.ControlType="109"
ctl.ControlSource=""
ctl.Format=""
ctl.ConditionalFormat=""
ctl.DecimalPlaces="255"
ctl.InputMask=""
ctl.DefaultValue=""
ctl.ValidationRule=""
ctl.ValidationText=""
ctl.StatusBarText=""
ctl.EnterKeyBehavior="False"
ctl.AllowAutoCorrect="True"
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Enabled="True"
ctl.Locked="False"
ctl.FilterLookup="1"
ctl.AutoTab="False"
ctl.TabStop="True"
ctl.TabIndex="1"
ctl.ScrollBars="0"
ctl.CanGrow="False"
ctl.CanShrink="False"
ctl.Left="1485"
ctl.Top="0"
ctl.Width="1440"
ctl.Height="300"
ctl.BackStyle="1"
ctl.BackColor="16777215"
ctl.SpecialEffect="2"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ShortcutMenuBar=""
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.ColumnWidth="-1"
ctl.ColumnOrder="0"
ctl.ColumnHidden="False"
ctl.Section="0"
ctl.Tag=""
ctl.InSelection="False"
ctl.BeforeUpdate=""
ctl.AfterUpdate=""
ctl.OnChange=""
ctl.OnEnter=""
ctl.OnExit=""
ctl.OnGotFocus=""
ctl.OnLostFocus=""
ctl.OnClick="[Event Procedure]"
ctl.OnDblClick=""
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.OnKeyDown=""
ctl.OnKeyUp=""
ctl.OnKeyPress=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
ctl.IsHyperlink="False"
Set ctl = Application.CreateControl(strFormName, acLabel, 0, "Text2",
0, 0, 1140, 240)
ctl.EventProcPrefix="Label3"
ctl.Name="Label3"
ctl.ControlType="100"
ctl.Caption="Text Click"
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="0"
ctl.Top="0"
ctl.Width="1140"
ctl.Height="240"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
Set ctl = Application.CreateControl(strFormName, acListBox , 0,
"frmCaller", 1701, 2340, 1230, 1170)
ctl.EventProcPrefix="List4"
ctl.Name="List4"
ctl.ControlType="110"
ctl.ControlSource=""
ctl.RowSourceType="Value List"
ctl.RowSource="aaa"
ctl.ColumnCount="1"
ctl.ColumnHeads="False"
ctl.ColumnWidths=""
ctl.BoundColumn="1"
ctl.DefaultValue=""
ctl.ValidationRule=""
ctl.ValidationText=""
ctl.StatusBarText=""
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Enabled="True"
ctl.Locked="False"
ctl.MultiSelect="0"
ctl.TabStop="True"
ctl.TabIndex="2"
ctl.Left="1701"
ctl.Top="2340"
ctl.Width="1230"
ctl.Height="1170"
ctl.BackColor="16777215"
ctl.SpecialEffect="2"
ctl.BorderStyle="1"
ctl.OldBorderStyle="1"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.BorderColor="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.FontBold="0"
ctl.ShortcutMenuBar=""
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.ColumnWidth="-1"
ctl.ColumnOrder="0"
ctl.ColumnHidden="False"
ctl.Section="0"
ctl.Tag=""
ctl.InSelection="False"
ctl.BeforeUpdate=""
ctl.AfterUpdate=""
ctl.OnEnter=""
ctl.OnExit=""
ctl.OnGotFocus=""
ctl.OnLostFocus=""
ctl.OnClick=""
ctl.OnDblClick="[Event Procedure]"
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.OnKeyDown=""
ctl.OnKeyUp=""
ctl.OnKeyPress=""
ctl.TextAlign="0"
Set ctl = Application.CreateControl(strFormName, acLabel, 0, "List4",
0, 2340, 900, 240)
ctl.EventProcPrefix="Label5"
ctl.Name="Label5"
ctl.ControlType="100"
ctl.Caption="List DblClick"
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="0"
ctl.Top="2340"
ctl.Width="900"
ctl.Height="240"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
Set ctl = Application.CreateControl(strFormName, acListBox , 0,
"frmCaller", 1701, 1065, 1230, 1170)
ctl.EventProcPrefix="List6"
ctl.Name="List6"
ctl.ControlType="110"
ctl.ControlSource=""
ctl.RowSourceType="Value List"
ctl.RowSource="aaa"
ctl.ColumnCount="1"
ctl.ColumnHeads="False"
ctl.ColumnWidths=""
ctl.BoundColumn="1"
ctl.DefaultValue=""
ctl.ValidationRule=""
ctl.ValidationText=""
ctl.StatusBarText=""
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Enabled="True"
ctl.Locked="False"
ctl.MultiSelect="0"
ctl.TabStop="True"
ctl.TabIndex="3"
ctl.Left="1701"
ctl.Top="1065"
ctl.Width="1230"
ctl.Height="1170"
ctl.BackColor="16777215"
ctl.SpecialEffect="2"
ctl.BorderStyle="1"
ctl.OldBorderStyle="1"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.BorderColor="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.FontBold="0"
ctl.ShortcutMenuBar=""
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.ColumnWidth="-1"
ctl.ColumnOrder="0"
ctl.ColumnHidden="False"
ctl.Section="0"
ctl.Tag=""
ctl.InSelection="False"
ctl.BeforeUpdate=""
ctl.AfterUpdate=""
ctl.OnEnter=""
ctl.OnExit=""
ctl.OnGotFocus=""
ctl.OnLostFocus=""
ctl.OnClick="[Event Procedure]"
ctl.OnDblClick=""
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.OnKeyDown=""
ctl.OnKeyUp=""
ctl.OnKeyPress=""
ctl.TextAlign="0"
Set ctl = Application.CreateControl(strFormName, acLabel, 0, "List6",
0, 1065, 855, 240)
ctl.EventProcPrefix="Label7"
ctl.Name="Label7"
ctl.ControlType="100"
ctl.Caption="List Click"
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="0"
ctl.Top="1065"
ctl.Width="855"
ctl.Height="240"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"frmCaller", 3090, 45, 1260, 210)
ctl.EventProcPrefix="Label8"
ctl.Name="Label8"
ctl.ControlType="100"
ctl.Caption="Click Me - I work"
ctl.HyperlinkAddress=""
ctl.HyperlinkSubAddress=""
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="3090"
ctl.Top="45"
ctl.Width="1260"
ctl.Height="210"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.OnClick=""
ctl.OnDblClick=""
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.ShortcutMenuBar=""
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"frmCaller", 3105, 525, 1470, 210)
ctl.EventProcPrefix="Label9"
ctl.Name="Label9"
ctl.ControlType="100"
ctl.Caption="DblClick Me - I work"
ctl.HyperlinkAddress=""
ctl.HyperlinkSubAddress=""
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="3105"
ctl.Top="525"
ctl.Width="1470"
ctl.Height="210"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.OnClick=""
ctl.OnDblClick=""
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.ShortcutMenuBar=""
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"frmCaller", 3030, 1035, 1740, 210)
ctl.EventProcPrefix="Label10"
ctl.Name="Label10"
ctl.ControlType="100"
ctl.Caption="Click Me - I DON'T work"
ctl.HyperlinkAddress=""
ctl.HyperlinkSubAddress=""
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="3030"
ctl.Top="1035"
ctl.Width="1740"
ctl.Height="210"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.OnClick=""
ctl.OnDblClick=""
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.ShortcutMenuBar=""
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"frmCaller", 3090, 2460, 1260, 210)
ctl.EventProcPrefix="Label11"
ctl.Name="Label11"
ctl.ControlType="100"
ctl.Caption="Click Me - I work"
ctl.HyperlinkAddress=""
ctl.HyperlinkSubAddress=""
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="3090"
ctl.Top="2460"
ctl.Width="1260"
ctl.Height="210"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.OnClick=""
ctl.OnDblClick=""
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.ShortcutMenuBar=""
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"frmCaller", 510, 3945, 4365, 795)
ctl.EventProcPrefix="Label12"
ctl.Name="Label12"
ctl.ControlType="100"
ctl.Caption=Replace("Click/Dblclick each of these controls. |They open
a form, frmCalled. |In that form, see if you can select an entry in the
listbox or combobox.","|",vbCrLf)
ctl.HyperlinkAddress=""
ctl.HyperlinkSubAddress=""
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="510"
ctl.Top="3945"
ctl.Width="4365"
ctl.Height="795"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="700"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="1"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.OnClick=""
ctl.OnDblClick=""
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.ShortcutMenuBar=""
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
frm.HasModule = True
Application.VBE.ActiveVBProject.VBComponents("Form_" &
strFormName).CodeModule.DeleteLines 1
Application.VBE.ActiveVBProject.VBComponents("Form_" &
strFormName).CodeModule.DeleteLines 1
Application.VBE.ActiveVBProject.VBComponents("Form_" &
strFormName).CodeModule.AddFromString Replace("Option Compare
Database||Private Sub List4_DblClick(Cancel As Integer)| Call
LoadAsClass|End Sub||Private Sub List6_Click()| Call LoadAsClass|End
Sub||Private Sub Text0_DblClick(Cancel As Integer)| Call
LoadAsClass|End Sub||Private Sub Text2_Click()| Call LoadAsClass|End
Sub||Sub LoadAsClass()| Dim frm As New Form_frmCalled|
frm.Visible = True| lib_WaitUntilWindowClosed frm.hWnd| Beep|
Set frm = Nothing|End Sub||","|",vbCrLf)
DoCmd.Close acForm, strFormName, acSaveYes
DoCmd.Rename "frmCaller", acForm, strFormName

Set frm = Application.CreateForm()
strFormName = frm.Name
DoCmd.SelectObject acForm, strFormName
frm.RecordSource=""
frm.Filter=""
frm.FilterOn="False"
frm.OrderBy=""
frm.OrderByOn="False"
frm.AllowFilters="True"
frm.Caption="Called"
frm.DefaultView="0"
frm.ViewsAllowed="0"
frm.AllowEditing="True"
frm.DefaultEditing="2"
frm.AllowEdits="True"
frm.AllowDeletions="True"
frm.AllowAdditions="True"
frm.DataEntry="False"
frm.AllowUpdating="0"
frm.RecordsetType="0"
frm.RecordLocks="0"
frm.ScrollBars="3"
frm.RecordSelectors="False"
frm.NavigationButtons="False"
frm.DividingLines="True"
frm.AutoResize="True"
frm.AutoCenter="False"
frm.PopUp="False"
frm.Modal="False"
frm.BorderStyle="2"
frm.ControlBox="True"
frm.MinButton="True"
frm.MaxButton="True"
frm.MinMaxButtons="3"
frm.CloseButton="True"
frm.WhatsThisButton="False"
frm.Width="2955"
frm.Picture="(none)"
frm.PictureType="0"
frm.PictureSizeMode="0"
frm.PictureAlignment="2"
frm.PictureTiling="False"
frm.Cycle="0"
frm.MenuBar=""
frm.Toolbar=""
frm.ShortcutMenu="True"
frm.ShortcutMenuBar=""
frm.GridX="10"
frm.GridY="10"
frm.LayoutForPrint="False"
frm.FastLaserPrinting="True"
frm.HelpFile=""
frm.HelpContextId="0"
frm.SubdatasheetHeight="0"
frm.SubdatasheetExpanded="False"
frm.RowHeight="-1"
frm.DatasheetFontName="Arial"
frm.DatasheetFontHeight="8"
frm.DatasheetFontWeight="400"
frm.DatasheetFontItalic="False"
frm.DatasheetFontUnderline="False"
frm.DatasheetGridlinesBehavior="3"
frm.DatasheetGridlinesColor="12632256"
frm.DatasheetCellsEffect="0"
frm.DatasheetForeColor="0"
frm.ShowGrid="True"
frm.DatasheetBackColor="16777215"
frm.DatasheetBorderLineStyle="1"
frm.HorizontalDatasheetGridlineStyle="1"
frm.VerticalDatasheetGridlineStyle="1"
frm.DatasheetColumnHeaderUnderlineStyle="1"
frm.Hwnd="3146566"
frm.Count="8"
frm.LogicalPageWidth="9070"
frm.Visible="True"
frm.Painting="True"
frm.FrozenColumns="1"
frm.Name="frmCalled"
frm.PaletteSource="(Default)"
frm.Tag=""
frm.PaintPalette=""
frm.OpenArgs=""
frm.OnCurrent=""
frm.BeforeInsert=""
frm.AfterInsert=""
frm.BeforeUpdate=""
frm.AfterUpdate=""
frm.OnDirty=""
frm.OnDelete=""
frm.BeforeDelConfirm=""
frm.AfterDelConfirm=""
frm.OnOpen=""
frm.OnLoad=""
frm.OnResize=""
frm.OnUnload=""
frm.OnClose=""
frm.OnActivate=""
frm.OnDeactivate=""
frm.OnGotFocus=""
frm.OnLostFocus=""
frm.OnClick=""
frm.OnDblClick=""
frm.OnMouseDown=""
frm.OnMouseMove=""
frm.OnMouseUp=""
frm.OnKeyDown=""
frm.OnKeyUp=""
frm.OnKeyPress=""
frm.KeyPreview="False"
frm.OnError=""
frm.OnFilter=""
frm.OnApplyFilter=""
frm.OnTimer=""
frm.TimerInterval="0"
frm.WindowWidth="7965"
frm.WindowHeight="4920"
frm.CurrentView="0"
frm.PictureData=""
frm.InsideHeight="4215"
frm.InsideWidth="7545"
frm.PicturePalette=""
frm.HasModule="True"
frm.AllowDesignChanges="True"
frm.Section(acDetail).Height=3390
frm.Section(acDetail).Visible=True
frm.Width=2955
Set ctl = Application.CreateControl(strFormName, acComboBox, 0,
"frmCalled", 705, 240, 1650, 255)
ctl.EventProcPrefix="Combo0"
ctl.Name="Combo0"
ctl.ControlType="111"
ctl.ControlSource=""
ctl.Format=""
ctl.ConditionalFormat=""
ctl.DecimalPlaces="255"
ctl.InputMask=""
ctl.RowSourceType="Value List"
ctl.RowSource="AAA;BBB"
ctl.ColumnCount="2"
ctl.ColumnHeads="False"
ctl.ColumnWidths="0;1440"
ctl.BoundColumn="1"
ctl.ListRows="8"
ctl.ListWidth="1440"
ctl.StatusBarText=""
ctl.LimitToList="True"
ctl.AutoExpand="True"
ctl.DefaultValue=""
ctl.ValidationRule=""
ctl.ValidationText=""
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Enabled="True"
ctl.Locked="False"
ctl.AllowAutoCorrect="True"
ctl.TabStop="True"
ctl.TabIndex="0"
ctl.Left="705"
ctl.Top="240"
ctl.Width="1650"
ctl.Height="255"
ctl.BackStyle="1"
ctl.BackColor="16777215"
ctl.SpecialEffect="2"
ctl.BorderStyle="1"
ctl.OldBorderStyle="1"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ShortcutMenuBar=""
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.ColumnWidth="-1"
ctl.ColumnOrder="0"
ctl.ColumnHidden="False"
ctl.Section="0"
ctl.Tag=""
ctl.InSelection="False"
ctl.BeforeUpdate=""
ctl.AfterUpdate=""
ctl.OnChange=""
ctl.OnNotInList=""
ctl.OnEnter=""
ctl.OnExit=""
ctl.OnGotFocus=""
ctl.OnLostFocus=""
ctl.OnClick=""
ctl.OnDblClick=""
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.OnKeyDown=""
ctl.OnKeyUp=""
ctl.OnKeyPress=""
ctl.IsHyperlink="False"
Set ctl = Application.CreateControl(strFormName, acLabel, 0, "Combo0",
0, 240, 720, 240)
ctl.EventProcPrefix="Date_Label"
ctl.Name="Date_Label"
ctl.ControlType="100"
ctl.Caption="Combo"
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="0"
ctl.Top="240"
ctl.Width="720"
ctl.Height="240"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
Set ctl = Application.CreateControl(strFormName, acListBox , 0,
"frmCalled", 1026, 645, 1350, 975)
ctl.EventProcPrefix="List2"
ctl.Name="List2"
ctl.ControlType="110"
ctl.ControlSource=""
ctl.RowSourceType="Value List"
ctl.RowSource="AAA;BBB"
ctl.ColumnCount="1"
ctl.ColumnHeads="False"
ctl.ColumnWidths=""
ctl.BoundColumn="1"
ctl.DefaultValue=""
ctl.ValidationRule=""
ctl.ValidationText=""
ctl.StatusBarText=""
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Enabled="True"
ctl.Locked="False"
ctl.MultiSelect="0"
ctl.TabStop="True"
ctl.TabIndex="1"
ctl.Left="1026"
ctl.Top="645"
ctl.Width="1350"
ctl.Height="975"
ctl.BackColor="16777215"
ctl.SpecialEffect="2"
ctl.BorderStyle="1"
ctl.OldBorderStyle="1"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.BorderColor="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.FontBold="0"
ctl.ShortcutMenuBar=""
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.ColumnWidth="-1"
ctl.ColumnOrder="0"
ctl.ColumnHidden="False"
ctl.Section="0"
ctl.Tag=""
ctl.InSelection="False"
ctl.BeforeUpdate=""
ctl.AfterUpdate=""
ctl.OnEnter=""
ctl.OnExit=""
ctl.OnGotFocus=""
ctl.OnLostFocus=""
ctl.OnClick=""
ctl.OnDblClick=""
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.OnKeyDown=""
ctl.OnKeyUp=""
ctl.OnKeyPress=""
ctl.TextAlign="0"
Set ctl = Application.CreateControl(strFormName, acLabel, 0, "List2",
0, 645, 750, 315)
ctl.EventProcPrefix="Label11"
ctl.Name="Label11"
ctl.ControlType="100"
ctl.Caption="List"
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="0"
ctl.Top="645"
ctl.Width="750"
ctl.Height="315"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
Set ctl = Application.CreateControl(strFormName, acTextBox, 0,
"frmCalled", 1065, 3015, 1320, 255)
ctl.EventProcPrefix="Text8"
ctl.Name="Text8"
ctl.ControlType="109"
ctl.ControlSource=""
ctl.Format=""
ctl.ConditionalFormat=""
ctl.DecimalPlaces="255"
ctl.InputMask=""
ctl.DefaultValue=""
ctl.ValidationRule=""
ctl.ValidationText=""
ctl.StatusBarText=""
ctl.EnterKeyBehavior="False"
ctl.AllowAutoCorrect="True"
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Enabled="True"
ctl.Locked="False"
ctl.FilterLookup="1"
ctl.AutoTab="False"
ctl.TabStop="True"
ctl.TabIndex="2"
ctl.ScrollBars="0"
ctl.CanGrow="False"
ctl.CanShrink="False"
ctl.Left="1065"
ctl.Top="3015"
ctl.Width="1320"
ctl.Height="255"
ctl.BackStyle="1"
ctl.BackColor="16777215"
ctl.SpecialEffect="2"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ShortcutMenuBar=""
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.ColumnWidth="-1"
ctl.ColumnOrder="0"
ctl.ColumnHidden="False"
ctl.Section="0"
ctl.Tag=""
ctl.InSelection="False"
ctl.BeforeUpdate=""
ctl.AfterUpdate=""
ctl.OnChange=""
ctl.OnEnter=""
ctl.OnExit=""
ctl.OnGotFocus=""
ctl.OnLostFocus=""
ctl.OnClick="[Event Procedure]"
ctl.OnDblClick=""
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.OnKeyDown=""
ctl.OnKeyUp=""
ctl.OnKeyPress=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
ctl.IsHyperlink="False"
Set ctl = Application.CreateControl(strFormName, acLabel, 0, "Text8",
0, 3015, 555, 240)
ctl.EventProcPrefix="Label9"
ctl.Name="Label9"
ctl.ControlType="100"
ctl.Caption="Text8:"
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="0"
ctl.Top="3015"
ctl.Width="555"
ctl.Height="240"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
Set ctl = Application.CreateControl(strFormName, acListBox , 0,
"frmCalled", 1026, 1740, 1350, 975)
ctl.EventProcPrefix="List12"
ctl.Name="List12"
ctl.ControlType="110"
ctl.ControlSource=""
ctl.RowSourceType="Value List"
ctl.RowSource="AAA;BBB"
ctl.ColumnCount="1"
ctl.ColumnHeads="False"
ctl.ColumnWidths=""
ctl.BoundColumn="1"
ctl.DefaultValue=""
ctl.ValidationRule=""
ctl.ValidationText=""
ctl.StatusBarText=""
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Enabled="True"
ctl.Locked="False"
ctl.MultiSelect="1"
ctl.TabStop="True"
ctl.TabIndex="3"
ctl.Left="1026"
ctl.Top="1740"
ctl.Width="1350"
ctl.Height="975"
ctl.BackColor="16777215"
ctl.SpecialEffect="2"
ctl.BorderStyle="1"
ctl.OldBorderStyle="1"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.BorderColor="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.FontBold="0"
ctl.ShortcutMenuBar=""
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.ColumnWidth="-1"
ctl.ColumnOrder="0"
ctl.ColumnHidden="False"
ctl.Section="0"
ctl.Tag=""
ctl.InSelection="False"
ctl.BeforeUpdate=""
ctl.AfterUpdate=""
ctl.OnEnter=""
ctl.OnExit=""
ctl.OnGotFocus=""
ctl.OnLostFocus=""
ctl.OnClick=""
ctl.OnDblClick=""
ctl.OnMouseDown=""
ctl.OnMouseMove=""
ctl.OnMouseUp=""
ctl.OnKeyDown=""
ctl.OnKeyUp=""
ctl.OnKeyPress=""
ctl.TextAlign="0"
Set ctl = Application.CreateControl(strFormName, acLabel, 0, "List12",
0, 1740, 750, 315)
ctl.EventProcPrefix="Label13"
ctl.Name="Label13"
ctl.ControlType="100"
ctl.Caption="MultiList"
ctl.Visible="True"
ctl.DisplayWhen="0"
ctl.Vertical="False"
ctl.Left="0"
ctl.Top="1740"
ctl.Width="750"
ctl.Height="315"
ctl.BackStyle="0"
ctl.BackColor="16777215"
ctl.SpecialEffect="0"
ctl.BorderStyle="0"
ctl.OldBorderStyle="0"
ctl.BorderColor="0"
ctl.BorderWidth="0"
ctl.BorderLineStyle="0"
ctl.ForeColor="0"
ctl.FontName="Tahoma"
ctl.FontSize="8"
ctl.FontWeight="400"
ctl.FontItalic="False"
ctl.FontUnderline="False"
ctl.TextFontCharSet="0"
ctl.TextAlign="0"
ctl.FontBold="0"
ctl.ControlTipText=""
ctl.HelpContextId="0"
ctl.Section="0"
ctl.InSelection="False"
ctl.Tag=""
ctl.LeftMargin="0"
ctl.TopMargin="0"
ctl.RightMargin="0"
ctl.BottomMargin="0"
ctl.LineSpacing="0"
frm.HasModule = True
Application.VBE.ActiveVBProject.VBComponents("Form_" &
strFormName).CodeModule.DeleteLines 1
Application.VBE.ActiveVBProject.VBComponents("Form_" &
strFormName).CodeModule.DeleteLines 1
Application.VBE.ActiveVBProject.VBComponents("Form_" &
strFormName).CodeModule.AddFromString Replace("Option Compare
Database||Private Sub Text8_Click()| Text8 = Time()|End
Sub|","|",vbCrLf)
DoCmd.Close acForm, strFormName, acSaveYes
DoCmd.Rename "frmCalled", acForm, strFormName

Set ctl = Nothing
Set frm = Nothing

End Sub
------------------------------­------------------------------

ps. This code was generated by a proc from actual forms. if you want
that code just ask.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Loading forms as classes from Listbox click events 0
Loading forms as classes from Listbox click events 0
listbox align right 1

Top