I cannot handle the enter event..Unbelievable or so obvious?

ktab · Apr 29, 2007

Hello,

This code is at UF initialize event:

Code:

Option Explicit
Dim TextBoxes() As New Class1
Dim ComboBoxes() As New Class1

Private Sub UserForm_Initialize()
Dim TCount As Long, CCount As Long, c As Control
TCount = 0
CCount = 0
'Set TabIndexCollection = New Collection
For Each c In Me.Controls
'    TabIndexCollection.Add c, CStr(c.TabIndex)
    If TypeOf c Is MSForms.TextBox Then
        TCount = TCount + 1
        ReDim Preserve TextBoxes(1 To TCount)
        Set TextBoxes(TCount).TextBoxGroup = c
    End If
    If TypeOf c Is MSForms.ComboBox Then
        CCount = CCount + 1
        ReDim Preserve ComboBoxes(1 To CCount)
        Set ComboBoxes(CCount).ComboBoxGroup = c
    End If
Next c
End Sub

And the following at class1 module:

Code:

Public WithEvents TextBoxGroup As MSForms.TextBox
Public WithEvents ComboBoxGroup As MSForms.ComboBox

Sub ComboBoxGroup_Enter()
MsgBox "Hello from " & ComboBoxGroup.Name
Exit Sub
If ComboBoxGroup.Name Like "TN*" Then
    frmTask.StatusBar1.Panels(1).Text = "NUM"
Else: frmTask.StatusBar1.Panels(1).Text = ""
End If
End Sub

Sub TextBoxGroup_Enter()
MsgBox "Hello from " & TextBoxGroup.Name
Exit Sub
If TextBoxGroup.Name Like "TN*" Then
    frmTask.StatusBar1.Panels(2).Text = "NUM"
Else: frmTask.StatusBar1.Panels(2).Text = ""
End If
End Sub
Sub TextBoxGroup_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim i As Integer
If TextBoxGroup.Name Like "TN*" Then
    nonNumberEntered = False
    If KeyCode < 49 Or KeyCode > 57 Then
        If KeyCode < 96 Or KeyCode > 105 Then
            If KeyCode <> 8 Then
                If KeyCode <> 111 Then
                    If KeyCode <> 191 Then
                        nonNumberEntered = True
                    End If
                End If
            End If
        End If
    End If
End If
end sub
Sub TextBoxGroup_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If nonNumberEntered = True Then KeyAscii = 0
End Sub

The code handles keydown, keypress events with no problem. Also similar change events, and probably more.
I cannot figure out why it does not handle enter event.. What ever i may do. Unbelievable or so obvious that i cannot see?

ktab · Apr 29, 2007

Anyway, this was my recommendation also (not access but a win app), a structured DB to do what ever they want. But no.
About controls now, imagine fields like name,surname phones, addresses, city, mail, for both home and work, fields that are flaged with yes/no like active member, retired e.c.t. e.c.t. Payments to union, total, remaining, and much much more. (please do not ask me to list them all)

Legacy 98055 · Apr 29, 2007

Hi Kostas.
The Enter event is not sourced by any individual control to begin with. It is "Inherited" from the Control class. Change your code as follows.

<table width="100%" border="1" bgcolor="White" style="filter

rogid:DXImageTransform.Microsoft.Gradient(endColorstr='#C0CFE2', startColorstr='#FFFFFF', gradientType='0');"><tr><TD> Dim TextBoxes() As New Class1
 Dim ComboBoxes() As New Class1

 Private Sub UserForm_Initialize()
 Dim TCount As Long, CCount As Long, c As Control
 TCount = 0
 CCount = 0
 'Set TabIndexCollection = New Collection
 For Each c In Me.Controls
 ' TabIndexCollection.Add c, CStr(c.TabIndex)
 If TypeOf c Is MSForms.TextBox Then
 TCount = TCount + 1
 ReDim Preserve TextBoxes(1 To TCount)

 'Set TextBoxes(TCount).TextBoxGroup = c

 With TextBoxes(TCount)
 Set .TextBoxGroup = c
 Set .TextBoxEnterEvent = c
 End With

 End If
 If TypeOf c Is MSForms.ComboBox Then
 CCount = CCount + 1
 ReDim Preserve ComboBoxes(1 To CCount)
 End If
 Next c
 End Sub
</td></tr></table><button onclick='document.all("4292007104725203").value=document.all("4292007104725203").value.replace(/ \s\s/g,"");document.all("4292007104725203").value=document.all("4292007104725203").value.replace(/ /g,"");window.clipboardData.setData("Text",document.all("4292007104725203").value);'>Copy to Clipboard</BUTTON><textarea style="position:absolute;visibility:hidden" name="4292007104725203" wrap="virtual">
Dim TextBoxes() As New Class1
Dim ComboBoxes() As New Class1

Private Sub UserForm_Initialize()
Dim TCount As Long, CCount As Long, c As Control
TCount = 0
CCount = 0
'Set TabIndexCollection = New Collection
For Each c In Me.Controls
' TabIndexCollection.Add c, CStr(c.TabIndex)
If TypeOf c Is MSForms.TextBox Then
TCount = TCount + 1
ReDim Preserve TextBoxes(1 To TCount)

'Set TextBoxes(TCount).TextBoxGroup = c

With TextBoxes(TCount)
Set .TextBoxGroup = c
Set .TextBoxEnterEvent = c
End With

End If
If TypeOf c Is MSForms.ComboBox Then
CCount = CCount + 1
ReDim Preserve ComboBoxes(1 To CCount)
End If
Next c
End Sub</textarea>

<table width="100%" border="1" bgcolor="White" style="filter

rogid:DXImageTransform.Microsoft.Gradient(endColorstr='#C0CFE2', startColorstr='#FFFFFF', gradientType='0');"><tr><TD> Option Explicit

 Public WithEvents TextBoxGroup As MSForms.TextBox
 Public WithEvents ComboBoxGroup As MSForms.ComboBox
 Public WithEvents TextBoxEnterEvent As MSForms.Control

 Sub ComboBoxGroup_Enter()
 MsgBox "Hello from " & ComboBoxGroup.Name
 Exit Sub
 If ComboBoxGroup.Name Like "TN*" Then
 frmTask.StatusBar1.Panels(1).Text = "NUM"
 Else: frmTask.StatusBar1.Panels(1).Text = ""
 End If
 End Sub

 'Changes >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 'Sub TextBoxGroup_Enter()
 ' MsgBox "Hello from " & TextBoxGroup.Name
 ' Exit Sub
 ' If TextBoxGroup.Name Like "TN*" Then
 ' frmTask.StatusBar1.Panels(2).Text = "NUM"
 ' Else: frmTask.StatusBar1.Panels(2).Text = ""
 ' End If
 'End Sub

 Private Sub TextBoxEnterEvent_Enter()
 MsgBox "Hello from " & TextBoxGroup.Name
 Exit Sub
 If TextBoxGroup.Name Like "TN*" Then
 frmTask.StatusBar1.Panels(2).Text = "NUM"
 Else: frmTask.StatusBar1.Panels(2).Text = ""
 End If
 End Sub

 Sub TextBoxGroup_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 Dim i As Integer
 If TextBoxGroup.Name Like "TN*" Then
 nonNumberEntered = False
 If KeyCode < 49 Or KeyCode > 57 Then
 If KeyCode < 96 Or KeyCode > 105 Then
 If KeyCode <> 8 Then
 If KeyCode <> 111 Then
 If KeyCode <> 191 Then
 nonNumberEntered = True
 End If
 End If
 End If
 End If
 End If
 End If
 End Sub

 Sub TextBoxGroup_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
 End Sub
</td></tr></table><button onclick='document.all("429200710489859").value=document.all("429200710489859").value.replace(/ \s\s/g,"");document.all("429200710489859").value=document.all("429200710489859").value.replace(/ /g,"");window.clipboardData.setData("Text",document.all("429200710489859").value);'>Copy to Clipboard</BUTTON><textarea style="position:absolute;visibility:hidden" name="429200710489859" wrap="virtual">
Option Explicit

Public WithEvents TextBoxGroup As MSForms.TextBox
Public WithEvents ComboBoxGroup As MSForms.ComboBox
Public WithEvents TextBoxEnterEvent As MSForms.Control

Sub ComboBoxGroup_Enter()
MsgBox "Hello from " & ComboBoxGroup.Name
Exit Sub
If ComboBoxGroup.Name Like "TN*" Then
frmTask.StatusBar1.Panels(1).Text = "NUM"
Else: frmTask.StatusBar1.Panels(1).Text = ""
End If
End Sub

'Changes >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'Sub TextBoxGroup_Enter()
' MsgBox "Hello from " & TextBoxGroup.Name
' Exit Sub
' If TextBoxGroup.Name Like "TN*" Then
' frmTask.StatusBar1.Panels(2).Text = "NUM"
' Else: frmTask.StatusBar1.Panels(2).Text = ""
' End If
'End Sub

Private Sub TextBoxEnterEvent_Enter()
MsgBox "Hello from " & TextBoxGroup.Name
Exit Sub
If TextBoxGroup.Name Like "TN*" Then
frmTask.StatusBar1.Panels(2).Text = "NUM"
Else: frmTask.StatusBar1.Panels(2).Text = ""
End If
End Sub

Sub TextBoxGroup_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim i As Integer
If TextBoxGroup.Name Like "TN*" Then
nonNumberEntered = False
If KeyCode < 49 Or KeyCode > 57 Then
If KeyCode < 96 Or KeyCode > 105 Then
If KeyCode <> 8 Then
If KeyCode <> 111 Then
If KeyCode <> 191 Then
nonNumberEntered = True
End If
End If
End If
End If
End If
End If
End Sub

Sub TextBoxGroup_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub</textarea>

ktab · Apr 29, 2007

Hello Tom,

While initializing UF, i get a message: Object or class does not support the set of events.

Tom Urtis · Apr 29, 2007

ktab - -

In addition to Tom's solution, you may also find this thread relevant from a couple years ago with thoughts from me and Jaafar on this topic:

http://www.mrexcel.com/board2/viewtopic.php?t=166707

ktab · Apr 29, 2007

Thank you Tom Urtis. I will study alot the topic and i'll post back solution or more questions (i prefer to post back case 1

Legacy 98055 · Apr 29, 2007

In addition to Tom's solution... NOT

Sorry Kostas. I should have tested before I posted. I searched through my posts most assured that I have used these events, but I suppose not.

ktab · Apr 29, 2007

It's OK Tom, Jaafar uses a nice techique at link suggested by Tom (Urtis) to, as i understood, delay (or reach out) the caption of the event from the UF and pass it to the "class" (ordinary module sub procedure). Very nice.

macleanb · Apr 30, 2007

The other alternative is to create or modify these controls at runtime using VBE automation.

I cannot handle the enter event..Unbelievable or so obvious?

ktab

Well-known Member

ktab

Well-known Member

Excel Facts

Legacy 98055

Guest

ktab

Well-known Member

Tom Urtis

MrExcel MVP

ktab

Well-known Member

Legacy 98055

Guest

ktab

Well-known Member

macleanb

Well-known Member

Similar threads

Forum statistics

Share this page

I cannot handle the enter event..Unbelievable or so obvious?

ktab

Well-known Member

ktab

Well-known Member

Excel Facts

Legacy 98055

Guest

ktab

Well-known Member

Tom Urtis

MrExcel MVP

ktab

Well-known Member

Legacy 98055

Guest

ktab

Well-known Member

macleanb

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock