Access vba: how to programmatically create form with onclick event

[Ranthalion]

Hi all,

I'm trying to programmatically create a form, add a command button, and assign an event procedure for the button. I'm running into a problem with adding the event procedure.

Here is the code I currently have:

Dim frmWarning As Form
    Dim btnOK As CommandButton
    
    Set frmWarning = CreateForm
    With frmWarning
        .Caption = "Warning"
        .AllowFormView = True
        .PopUp = True
        .ScrollBars = 0 'no scrollbars
        .RecordSelectors = False
        .NavigationButtons = False
        .DividingLines = False
        .Modal = True
        .Width = 4000
        .GridX = 40
        .GridY = 40
        .Moveable = True
        .AutoCenter = True
        .CloseButton = False
        .ControlBox = False
    End With
    
    Set btnOK = CreateControl(frmWarning.Name, acCommandButton, acDetail, , , 1500, 2700, 950, 450)
    btnOK.Caption = "OK"
    btnOK.OnClick = "[Event Procedure]"     'Here is the problem
           
    DoCmd.OpenForm frmWarning.Name, acNormal
    
    DoCmd.Restore
    DoCmd.MoveSize 6000, 4000, 5500, 1800
    
    'frmWarning.SetFocus
    'frmWarning.Move 400, 400, 4000, 4000

I read in msdn that I should have "[Event Procedure]" as the OnClick property, but I can't figure out how to tell it which function to run.

Does anyone have any ideas on this?

Thanks,
Ranthalion

[RobDog888]

You will also need to have a Public WithEvents btnOK declaration at the top of the class module that is behind the form that you also need to add.

It would be called btnOK_Click procedure.

[Ranthalion]

Thanks for your reply. I'm not sure I understand what you mean.
I have a form which has code in its module as follows. When you click on Command0 on the actual form, it should generate the new form, which should pop up the message box when the ok button is pressed.
I'm not sure on where to put the withevents statement or how to code it. Can you clarify, please?

Option Compare Database
Option Explicit
 
public withevents btnOK 'States I need an AS clause, do not know how to do it.
 
Public Function btnOK_Click()
    MsgBox "Here is where it does some stuff"
End Function
 
Private Sub Command0_Click()
    Dim frmWarning As Form
    Dim btnOK As CommandButton
    
    Set frmWarning = CreateForm
    With frmWarning
        .Caption = "Warning"
        .AllowFormView = True
        .PopUp = True
        .ScrollBars = 0 'no scrollbars
        .RecordSelectors = False
        .NavigationButtons = False
        .DividingLines = False
        .Modal = True
        .Width = 4000
        .GridX = 40
        .GridY = 40
        .Moveable = True
        .AutoCenter = True
        .CloseButton = False
        .ControlBox = False
    End With
    
    Set btnOK = CreateControl(frmWarning.Name, acCommandButton, acDetail, , , 1500, 2700, 950, 450)
    btnOK.Caption = "OK"
    btnOK.OnClick = "[Event Procedure]"
           
    DoCmd.OpenForm frmWarning.Name, acNormal
    
    DoCmd.Restore
    DoCmd.MoveSize 6000, 4000, 5500, 1800
    
    'frmWarning.SetFocus
    'frmWarning.Move 400, 400, 4000, 4000
    
        
End Sub

Thanks,
Ranthalion

[Ranthalion]

OK,
I've been working on this and still haven't really come up with any progress. I've read about the withevents keyword, and found some examples of its use with VBA, and I thought I understood how it should work. I have a form with a commandButton on it. The commandButton has an event procedure which should create a new form and generate a commandbutton on the new form. The second form is generated just fine, but it doesn't respond to any of the events I try to define for it. Here is the current version of my code:

Option Compare Database
Option Explicit

Public WithEvents frmWarning As Form
Public WithEvents btnOK As CommandButton


Public Sub btnOK_Click()
    MsgBox "hello there"
End Sub


Public Sub frmWarning_Load()
    MsgBox "load"
End Sub


Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
    
    Set frmWarning = CreateForm
    With frmWarning
        .Caption = "Warning"
        .AllowFormView = True
        .PopUp = True
        .ScrollBars = 0 'no scrollbars
        .RecordSelectors = False
        .NavigationButtons = False
        .DividingLines = False
        .Modal = True
        .Width = 4000
        .GridX = 40
        .GridY = 40
        .Moveable = True
        .AutoCenter = True
        .CloseButton = False
        .ControlBox = False
        .OnLoad = "[Event Procedure]"
    End With
    
    Set btnOK = CreateControl(frmWarning.Name, acCommandButton, acDetail, , , 1500, 2700, 950, 450)
    btnOK.Caption = "OK"
    btnOK.OnClick = "[Event Procedure]"
    
           
    DoCmd.OpenForm frmWarning.Name, acNormal
    
    DoCmd.Restore
    DoCmd.MoveSize 6000, 4000, 5500, 1800
    
Exit_Command0_Click:
    Exit Sub
    
Err_Command0_Click:
    MsgBox (Err.Number & ": " & Err.Description)
    GoTo Exit_Command0_Click
        
End Sub

This is contained the module connected to the main form. It is called Form_Form1. I did not create a class module for the second form. As far as I have learned, the above code should work fine, but the events are never fired when the second form load, nor when I press the command button on the second form (btnOK). Any ideas or advice on what I need to do to get the events to fire correctly, or to be able to handle them?

Thanks,
Ranthalion

[RobDog888]

If you manually create one and check out how its designed, you will see that it (btnOk) may have to be in the class file of the form in order for the [Event Procedure] to link up.

[Ranthalion]

Thank you very much for your help RobDog.
I tried creating a class for my form and putting the btnOK code and form creation code in the class module, then declaring a variable of my class' type from the form Module, but I still couldn't get it to work.

I've looked online for some examples of using the withevents keyword and the onClick property, but I haven't come across any good tutorials on it.

The purpose of my project is to have everything contained on one form. Other Access database designers would import my form and set it to show up in the OnOpen event of their startup form. My imported form is hidden and contains a timer that will generate a form dynamically from code.

-Ranthalion