phuz
Member
I swear I had this working, but I'm on site deploying this and find it's not working.
I have a string input, exposed to VBA, that has a Change event, but it's not working. I put a temporary MsgBox instruction which won't even execute.
FTView SE 8.2
I have a string input, exposed to VBA, that has a Change event, but it's not working. I put a temporary MsgBox instruction which won't even execute.
FTView SE 8.2
Code:
Private Sub CanNumber_Change()
Dim FiberType As String
MsgBox ("test")
FiberType = Mid(CanNumber.Value, 6, 1)
Set oTag = MyGroup.Item("ERE_FIBER_TYPE")
If FiberType = "C" Then
oTag.Value = 0
ElseIf FiberType = "G" Then
oTag.Value = 1
ElseIf FiberType = "M" Then
oTag.Value = 2
ElseIf FiberType = "P" Then
oTag.Value = 3
ElseIf FiberType = "T" Then
oTag.Value = 4
ElseIf FiberType = "H" Then
If Mid(CanNumber.Value, 6, 2) = "HH" Then
oTag.Value = 6
Else
oTag.Value = 5
Else: MsgBox "Invalid Can Number!"
End If
End Sub
Last edited: