Repeating routines in VBA code

[jketcher]

Hi!

I have several places in my code where I am performing the same initializations. What is the syntax for setting up one routine that can be performed from multiple places in the code?

Thanks, jketcher

 

[ezfriend]

Perhaps, you can initialize it like this.

Private Sub Initializations()

     'intialize variables, text fields, etc.. here

End Sub

Then call the sub routine when need to.

Private Sub cmdOK_Click()

    Call Initializations

End Sub

If you want to intialize let's say combo boxes, you can put this sub routine in a module and pass in the combobox. For example, this is the one i use.

Public Sub ClearComboBox(ByVal cbo As ComboBox)

    Dim i As Long
    
    For i = cbo.ListCount - 1 To 0 Step -1
        cbo.RemoveItem i
        DoEvents
    Next
    
End Sub

So each time I want to clear up the combo box I just call the function

ClearComboBox cboFields