Load Calendar on Textbox enter

[Jimmypop]

Good day all

I have a subroutine called AdvancedCalendar.

I need to run this sub everytime a user enters a text box which has a tag "date"

code below not working

Private Sub UserForm_Initialize()


    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
            If ctl.Tag = "date" Then
 Call AdvancedCalendar
            End If
        End If
    Next ctl

End Sub

 

[dmt32]

Hi
try qualifying the TextBox object with the Microsoft Object Library & see if this resolves your issue

If TypeOf ctl Is msforms.TextBox Then

Dave

 

[Jimmypop]

Hi Dave

This does now bring up the Calendar form... however it does this on userform initialize for every textbox and then only show the userform... it needs to only on entering the textbox with tag date

 

[dmt32]

Hi Dave

This does now bring up the Calendar form

This I take it suggestion resolved the posted issue?

however it does this on userform initialize for every textbox and then only show the userform... it needs to only on entering the textbox with tag date

This is a slightly different issue & post not fully clear to me

If you only need need to call the the code AdvancedCalendar once then place and Exit For statement after the Call line

            If ctl.Tag = "date" Then
                Call AdvancedCalendar
                Exit For
            End If

Dave

 

[Jimmypop]

Sorry for not being clear...

I have a userform with about 88 textboxes which have a tag "date". No I want to run the AdvancedCalendar sub whenever one enters the textbox with relevant tag. code at the moment does show the calendar... however it is showing it 88 times and then only opens up the userform

 

[dmt32]

Maybe the Enter Event of the control will do what you want

Private Sub TextBox1_Enter()
         If Me.TextBox1.Tag = "date" Then Call AdvancedCalendar
End Sub

Dave

 

[Jimmypop]

It does work yes... Now will just investigate on what to do to het it to work for the other 87 textboxesdont want to write that for all of them... Will see maybe if there is a way to do with a class module or similar

 

[dmt32]

Glad suggestion helps & a class would be a sensible approach but off top of my head, I don't think the Enter Event is available.

Dave