Función Replace me devuelve error

[ciberpata]

Saludos:
Tengo esta función que me permite cambiar los finales de linea de un campo de una DB ACCESS:

Function AcomodarDb(txt)
txt = Replace (txt, vbCrLf, "<BR>")
AcomodarDb = txt
End Function

Todos los campos de un recordset aparecen mostrados en una tabla. Lo que quiero hacer es que cuando un campo esté vacio no aparezca para lo cual hago lo siguiente:

<%if rs("situacionhotel") <> "" then%>
<tr>
<td valign="top" class="FICHAAGENCIAITEMS">Situaci&oacute;n</td>
<td colspan="2" valign="top" class="FICHAAGENCIADATOS"><%=AcomodarDb(RS("situac ionhotel"))%></td>
</tr>
<%end if%>

El problema es que cuando el campo está vacio me devuelve el error:

Uso no válido de Null: 'Replace'

Entiendo que esto es porque la función al estar el campo vacio no tiene nada que reemplazar y entonces da ese error.

He probado la función asi:

Function AcomodarDb(txt)
if txt <> "" then
txt = Replace (txt, vbCrLf, "<BR>")
AcomodarDb = txt
end if
End function

pero tampoco va.
¿Saben como puedo hacerlo?
Gracias

[PMP]

Ando medio haragán para escribir, copié y pege de un manual de VBScript:



Función IsNull
Devuelve un valor de tipo booleano que indica si una expresión contiene datos no válidos (Null).

IsNull(expresión)

El argumento expresión puede ser cualquier expresión.

Comentarios
IsNull devuelve True si expresión es Null, es decir, contiene datos no válidos; si no, IsNull devuelve False. Si expresión contiene más de una variable, Null en cualquier variable de constituyente hace que se devuelva True para toda la expresión.

El valor Null indica que la variable contiene datos no válidos. Null no es lo mismo que Empty, que indica que una variable no se ha inicializada aún. Tampoco es lo mismo que una cadena de longitud cero (""), a la que a veces se hace referencia como una cadena de tipo null.

Precaución Utilice la función IsNull para determinar si una expresión contiene un valor Null. Las expresiones que podría esperar que se evaluaran como True bajo algunas circunstancias, tales como If Var = Null and If Var <> Null, son siempre False. Esto se debe a que cualquier expresión que contiene Null es en sí misma Null y, por tanto, False.

[ciberpata]

Segun entiendo de tu post si yo escribo la función así:

Function AcomodarDb(txt)
if not isnull(txt) then
txt = Replace (txt, vbCrLf, "<BR>")
AcomodarDb = txt
end if
End function

deberia funcionar pero me da el mismo error

[3pies]

Prueba así:

Código:

<%if rs("situacionhotel") <> "" or not isnull(rs("situacionhotel")) then%>
<tr><td valign="top" class="FICHAAGENCIAITEMS">
Situaci&oacute;n
</td>
<td colspan="2" valign="top" class="FICHAAGENCIADATOS">
<%=AcomodarDb(RS("situacionhotel"))%>
</td></tr>
<%end if%>

Y utiliza la primera función que pusiste.

[ciberpata]

Ahora lo he dejado como me has dicho pero me da el mismo error:

<%
Function AcomodarDb(txt)
txt = Replace (txt, vbCrLf, "<BR>")
AcomodarDb = txt
End function
%>

<%if rs("situacionhotel") <> "" or not isnull(rs("situacionhotel")) then%>
<tr>
<td valign="top" class="FICHAAGENCIAITEMS">Situacion</td>
<td colspan="2" valign="top" class="FICHAAGENCIADATOS"><%=AcomodarDb(RS("situac ionhotel"))%></td>
</tr>
<%end if%>

[3pies]

Prueba así:

<%if rs("situacionhotel") <> "" and not isnull(rs("situacionhotel")) then%>

[AlZuwaga]

Para evitar la doble comparación, si está vacío y si es nulo, podés hacer:

<% if rs("situacionhotel") & "" <> "" then%>

[ciberpata]

pues no lo entiendo.... porque el campo esta vacio, pero de ninguna de las dos ultimas formas funciona.
Bueno, el campo es un campo Memo. No se si tiene algo que ver.... si lo tiene perdon por el olvido.
Ni como comenta Al ni como me comenta 3pies (ni con or ni con and).
Gracias

[ciberpata]

He comprobado que si el campo situacionhotel es de tipo "Texto", no hay ningún problema.
El problema surge cuando el campo es de tipo "Memo". El caso es que me hace falta un campo que mida más de 250 caracteres. Por eso tiene que ser "Memo"

[PMP]

Creo hace mucho tiempo me pasó algo parecido y resulta que si no ponía el campo Memo al final de todos los campos de la sentencia SELECT no me lo traía.

Por ejemplo, supongamos que hay tres campos:
A tipo Autonumerico
B tipo Memo
C tipo varchar

SELECT A, C, B FROM ....

[ciberpata]

En mi caso la sentencia SQL es:

"Select * From guiahoteles where referenciahotelcasa='" &referenciahotelcasa& "'"

Asi selecciono el registro y despues es cuando recojo el valor del campo MEMO "situacionhotel"

[AlZuwaga]

Ahhh, hacé una cosa, no compares directamente contra el campo de la BD sino contra una variable:

<%
situacionhotel = rs("situacionhotel")
if situacionhotel & "" <> "" then
%>
<tr>
<td valign="top" class="FICHAAGENCIAITEMS">Situaci&oacute;n</td>
<td colspan="2" valign="top" class="FICHAAGENCIADATOS"><%=AcomodarDb("situacion hotel"))%></td>
</tr>
<%end if%>


probalo y contanos

[ciberpata]

He hecho como me has dicho Al_Zuwaga pero me sigue dando el mismo error, o sea:

Uso no válido de Null: 'Replace'

No lo entiendo.....

[PMP]

¿No probaste como te dije?

No pongas "SELECT * FROM....", declará todos los campos en la sentencia SELECT y por ultimo pone el campo MEMO.

Suerte.

[ciberpata]

PMP, fijate en el hilo 11.
Yo selecciono el registro de esta forma:

"Select * From guiahoteles where referenciahotelcasa='" &referenciahotelcasa& "'" y despues veo si el campo memo esta vacio.

[PMP]

Por eso mismo, NO pongas "SELECT * FROM guiahoteles ....."
Probá poniendo "SELECT campo1, campo2, situacionhotel FROM guiahoteles ....."
En la sentencia SELECT deja para lo ultimo el campo Memo.

Ya no sé como explicarte, espero que me entiendas.

[ciberpata]

Ya te he entendido PMP, disculpa mi despiste, es que siempre me olvido del asterisco, pero tampoco funciona me sigue dando el mismo error.
gracias