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