Estoy acostumbrado a usar en algunas ocasiones mas la instrucción Instr que Like.
Ejemplo:
Si se que tengo tres gastos fijos, puedo nombrarlos como vlbG1,vlbG2,vlbG3...son objetos del tipo ValueBox.
Y puedo tener algo como esto:
Este es el procedimiento de donde sale todo:
Public Sub Gastos_KeyRelease()
Dim tipogasto As Object
Dim gasto As Float
For Each tipogasto In Me.Controls
'If tipogasto Is ValueBox And InStr(tipogasto.name, "vlbG") <> 0 Then
If tipogasto Is ValueBox And tipogasto.name Like "vlbG[123]"
If Not IsNull(tipogasto.value) Then
gasto += tipogasto.value
Endif
Endif
Next
vlbGastos.Value = gasto
End
Dim tipogasto As Object
Dim gasto As Float
For Each tipogasto In Me.Controls
'If tipogasto Is ValueBox And InStr(tipogasto.name, "vlbG") <> 0 Then
If tipogasto Is ValueBox And tipogasto.name Like "vlbG[123]"
If Not IsNull(tipogasto.value) Then
gasto += tipogasto.value
Endif
Endif
Next
vlbGastos.Value = gasto
End
Naturalmente la condicional se puede ampliar en la primera linea y no crear una segunda condicional, parece verse mejor.
¿ Qué opináis del uso de Like con respecto a veces otras sentencias de comparación de cadenas ?.
Saludos