Private Sub CONTROLLO_CAMPI_SCHEDE()
ER = 0
lCtr = 0
For Each CCONT In Me.Controls
If TypeName(CCONT) = "ComboBox" Or TypeName(CCONT) = "TextBox" Then
If CCONT.Container.Name = "[b]Frame4[/b]" Then
If Trim(CCONT.Tag) >= "" And CCONT = "" And CCONT.Tag <> 99 Then
TG = CCONT.Tag
'Debug.Print TG & "-" & CCONT.Name
Call SELECT_CASE_SCHEDE(TG)
ER = ER + 1
End If
End If
End If
Next
End Sub
Private Sub CONTROLLO_CAMPI_SCHEDE(FrameName As String)
ER = 0
lCtr = 0
For Each CCONT In Me.Controls
If TypeName(CCONT) = "ComboBox" Or TypeName(CCONT) = "TextBox" Then
If CCONT.Container.Name = FrameName Then
If Trim(CCONT.Tag) >= "" And CCONT = "" And CCONT.Tag <> 99 Then
TG = CCONT.Tag
'Debug.Print TG & "-" & CCONT.Name
Call SELECT_CASE_SCHEDE(TG)
ER = ER + 1
End If
End If
End If
Next
End Sub
Hans has provided the direct answer - but were you really simply asking is how to pass a string as a parameter - I suspect there may be more to your question than initially appears.
Perhaps you really mean how you could pass control by name?
Private Sub CONTROLLO_CAMPI_SCHEDE(FrameName As String)
ER = 0
lCtr = 0
For Each CCONT In Me.Controls
If TypeName(CCONT) = "ComboBox" Or TypeName(CCONT) = "TextBox" Then
If CCONT.Container.Name = FrameName Then
If Trim(CCONT.Tag) >= "" And CCONT = "" And CCONT.Tag <> 99 Then
TG = CCONT.Tag
'Debug.Print TG & "-" & CCONT.Name
Call SELECT_CASE_SCHEDE(TG)
ER = ER + 1
End If
End If
End If
Next
End Sub