Rossana
30 de Abril del 2004

Alguien sabe si el operador de comparación <> no fuciona en VB, pues he escrito esta instrucción

If UCase(cod_carpeta) = UCase(txtcodcar) And UCase(nom_carpeta) <> UCase(cbocarpeta.Text) Then

visual basic hace caso omiso de el operador <> solo toma en consideración el primero

gucesoft
30 de Abril del 2004

DEBES VERIFICAR QUE LAS VARIABLES QUE ESTAS COMPARANDO NO SEAN NULAS, SI EXISTE DICHA POSIBILIDAD DEBERAS PREVEER DICHA SITUACION.

Rossana
30 de Abril del 2004

No son nulas

Tengo este código: no me ejecuta nunca el else donde se emite un mensaje y eso que el if al cual pertenece es falso, es decir el nom_carpeta es diferente del cbocarpeta.

Do While Tabla2.EOF = False

If UCase(cod_carpeta) = UCase(txtcodcar) Then

If UCase(nom_carpeta) = UCase(cbocarpeta.Text) Then

sql = "insert into MENSAJE (n_mensaje, día, mes, año, para, de, asunto, descripción, observaciones, cod_carpeta) values ( " & txtnummensaje & ", " & cbodia.Text & " , \'" & cbomes.Text & "\', " & cboaño.Text & ", \'" & txtpara & "\' , \'" & txtde & "\', \'" & txtasunto & "\', \'" & txtdes & "\', \'" & txtobs & "\', \'" & txtcodcar & "\')"
Base.Execute (sql)
MsgBox "Datos agregados éxitosamente", vbInformation
\'vaciar las cajas de texto
cbocarpeta.Text = ""
txtcodcar.Text = ""
txtdescar.Text = ""
cbodia.Text = ""
cbomes.Text = ""
cboaño.Text = ""
txtpara = ""
txtde = ""
txtasunto = ""
txtdes = ""
txtobs = ""
txtnummensaje = ""
cbocarpeta.SetFocus
Else
MsgBox "El código ya está asignado a una carpeta, introduzca otro", vbInformation
End If

Else
sql = "insert into MENSAJE (n_mensaje, día, mes, año, para, de, asunto, descripción, observaciones, cod_carpeta) values ( " & txtnummensaje & " ," & cbodia & " , \'" & cbomes & "\', " & cboaño & ", \'" & txtpara & "\' , \'" & txtde & "\', \'" & txtasunto & "\', \'" & txtdes & "\', \'" & txtobs & "\', \'" & txtcodcar & "\')"
Base.Execute (sql)
sql = "insert into CARPETA (nom_carpeta, cod_carpeta, des_carpeta) values ( \'" & cbocarpeta.Text & "\' , \'" & txtcodcar & "\', \'" & txtdescar & "\')"
Base.Execute (sql)
MsgBox "Datos agregados éxitosamente", vbInformation
vaciar las cajas de texto
cbocarpeta.Text = ""
txtcodcar.Text = ""
txtdescar.Text = ""
cbodia.Text = ""
cbomes.Text = ""
cboaño.Text = ""
txtpara = ""
txtde = ""
txtasunto = ""
txtdes = ""
txtobs = ""
txtnummensaje = ""
cbocarpeta.SetFocus
End If