Como usar comodines en Select Case en Access
Tengo una consulta llamada Tabla1 con un campo Nombre.
En ese campo tengo varios registros con los siguientes datos:
Cuchara, Cucharita, Cucharota, Cucharon.
Trate de asignarles el numero 1 con Select Case, usando comodín en el Case, pero me puso cero en todos.
Public Function AsignaNum(ArgTx As String) As Long
Dim CualTexto As String
CualTexto = ArgTx
Select Case CualTexto
Case "Cucha*"
AsignaNum = 1
Case Else
AsignaNum = 0
End Select
End Function
2 respuestas
Rafael: Así sin darle muchas vueltas has probado
Case LIKE "Cucha*" o ésto Otro
Case Left(CualTexto,5) = "Cucha"
Ya me comentarás Mis saludos >>Jacinto
No se puede usar el operador LIKE con un Selcet Case, pero tienes otras alternativas:
1ª/ Si sólo vas a comparar esos dos valores, puedes usar un If... Then o IIF(), por ejemplo:
If CualTexto LIKE "Cucha*" Then
AsignaNum = 1
Else
AsignaNum = 0
End If
o más simplemente:
AsignaNum=IIF(CualText LIKE "Cucha*",1,0)
2ª/ Si vas a necesitar más posibilidades (o si simplemente quieres usarlo), puedes usar Select Case de esta forma:
Select Case True
Case CualTexto LIKE "Cucha*"
AsignaNum = 1
Case Else
AsignaNum = 0
End Select
Un saludo!