28/04/2009, 07:39
|
| | | Fecha de Ingreso: noviembre-2008
Mensajes: 131
Antigüedad: 15 años, 6 meses Puntos: 0 | |
| Respuesta: Comparar una cadena
Gracias Seba123neo, porfin alguien respondió.
cuando me respondiste ya habia encontrado la solución era muy sencillo pero ya de lo cansada ni pienso.
de todas maneras gracias porque lo necesitaba con urgencia y fuiste el unico que se interesó.
así lo resolví
var = Trim(Text_Product.Text)
If Left(var, 1) = 4 Then
If Right(var, 1) <> "A" Then
MsgBox "debe ingresar el código con la letra A al final"
Connect_2.Close
Exit Sub
End If
End If |