Como evalúo que una cadena de caracteres de longuitud fija está vacía

hola, julian !

Yo no soy experto en el tema, pero prueba lo siguiente:
Sub prueba()
Dim nombre As String * 3
nombre = ""
If nombre = " " Then
MsgBox "La variable nombre está vacía"
End If
End Sub

Da la impresion de que hace falta indicar nombre = "" ya que si no
la variable esta en el limbo, ni existe ni esta vacia, ni es nula ni nada.
A la hora de evaluarla, como es de longitud 3 pon tres espacios en If nombre = " " Then

aunque *da la impresion* de que una variable de longitud fija esta *en el limbo*...
prueba con las siguientes *comparaciones*
-> aunque el ultimo signo "<" del msgbox... no lo podras *ver* :-((

Sub Variables()
Dim Nombre As String * 3
MsgBox "Variable vacia ? : " & IsEmpty(Nombre) & vbCr & _
"Variable nula ? : " & IsNull(Nombre) & vbCr & _
"Texto vacio ? : " & (Nombre = "") & vbCr & _
"Largo vacio ? : " & (Nombre = " ") & vbCr & _
"Igual a cero ? : " & (Nombre = "0") & vbCr & _
"Igual a 3 0's ? : " & (Nombre = "000") & vbCr & _
"Largo texto : " & Len(Nombre) & vbCr & _
"Contenido : " & Asc(Nombre) & vbCr & _
"Codigo 0 ? : " & (Asc(Nombre) = 0) & vbCr & _
"Valor : -> >" & Nombre & "<"
End Sub

saludos,
hector.

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Gracias por el aporte.


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"Héctor Miguel" escribió en el mensaje
news:OESAjWk$

hola, julian !

Yo no soy experto en el tema, pero prueba lo siguiente:
Sub prueba()
Dim nombre As String * 3
nombre = ""
If nombre = " " Then
MsgBox "La variable nombre está vacía"
End If
End Sub

Da la impresion de que hace falta indicar nombre = "" ya que si no
la variable esta en el limbo, ni existe ni esta vacia, ni es nula ni
nada.
A la hora de evaluarla, como es de longitud 3 pon tres espacios en If
nombre = " " Then

aunque *da la impresion* de que una variable de longitud fija esta *en el
limbo*...
prueba con las siguientes *comparaciones*
-> aunque el ultimo signo "<" del msgbox... no lo podras *ver* :-((

Sub Variables()
Dim Nombre As String * 3
MsgBox "Variable vacia ? : " & IsEmpty(Nombre) & vbCr & _
"Variable nula ? : " & IsNull(Nombre) & vbCr & _
"Texto vacio ? : " & (Nombre = "") & vbCr & _
"Largo vacio ? : " & (Nombre = " ") & vbCr & _
"Igual a cero ? : " & (Nombre = "0") & vbCr & _
"Igual a 3 0's ? : " & (Nombre = "000") & vbCr & _
"Largo texto : " & Len(Nombre) & vbCr & _
"Contenido : " & Asc(Nombre) & vbCr & _
"Codigo 0 ? : " & (Asc(Nombre) = 0) & vbCr & _
"Valor : -> >" & Nombre & "<"
End Sub

saludos,
hector.