Error con texbox
Publicado por Paco (2 intervenciones) el 31/05/2005 10:07:07
hola, tengo una qgenda que hice hace algun tiempo: Nombre, direccion, telefono,e-mail y notas. En eta ultima quiero escribir lo que me de la gana pero cuando escribo x caracteres y guardo me da error (Operacion cancelada), en la opcion de Maxlenght la tengo a 0.
Dejo aqui parte del code de editar y guardar:
Private Sub Command2_Click()
Me.Caption = "Agenda Editando Registro"
Adodc1.Caption = "Editando Registro"
HabilitarCajas
Frame2.Enabled = True
Frame3.Enabled = True
Adodc1.Enabled = True
Text1.SetFocus
End Sub
Private Sub Command3_Click()
On Error Resume Next
If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" _
And Text4.Text <> "" And Text5.Text <> "" And Text6.Text <> "" Then
Me.Caption = "Agenda Guardando Registro"
Adodc1.Recordset.Update
Adodc1.Enabled = True
Else
MsgBox ("Debes rellenar todos los campos"), vbInformation, "Advertencia!!!"
End If
End Sub
Dejo aqui parte del code de editar y guardar:
Private Sub Command2_Click()
Me.Caption = "Agenda Editando Registro"
Adodc1.Caption = "Editando Registro"
HabilitarCajas
Frame2.Enabled = True
Frame3.Enabled = True
Adodc1.Enabled = True
Text1.SetFocus
End Sub
Private Sub Command3_Click()
On Error Resume Next
If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" _
And Text4.Text <> "" And Text5.Text <> "" And Text6.Text <> "" Then
Me.Caption = "Agenda Guardando Registro"
Adodc1.Recordset.Update
Adodc1.Enabled = True
Else
MsgBox ("Debes rellenar todos los campos"), vbInformation, "Advertencia!!!"
End If
End Sub
Valora esta pregunta


0