Visual Basic - mensaje error

Life is soft - evento anual de software empresarial
   
Vista:

mensaje error

Publicado por owen (1 intervención) el 17/02/2011 23:57:54
estoy trabajando con control datagrid y el control ado
y 3 cuadros de texto y 2 botones de comando donde ingreso nombre apellido direccion.
cuando lleno los 3 cuadro de texto y precionado el boton nuevo ,y luego el boton grabar, registra los datos en el datagrid y no hay problema.
pero cuando dejo vacio los 3 cuadro de texto y preciono boton nuevo y salgo de la aplicacion me sale el siguiente error:

no es posible insertar fila vacia. dbe contener al menos un valor columna establecida

como puedeo eliminar este mensaje de error

Dim cn As New ADODB.Connection
Dim rs As New Recordset

Private Sub cmdnuevo_Click()

Ado.Recordset.AddNew

end sub

Private Sub cmdgrabar_Click()
Ado.Recordset.Update

Ado.Recordset.MoveLast
end sub

Private Sub Form_Load()

cn.CursorLocation = adUseClient
Call IniciarConexion

Sub IniciarConexion()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Escritorio\\bd1.mdb;Persist Security Info=False"

end sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:mensaje error

Publicado por jcmg (518 intervenciones) el 18/02/2011 06:28:26
lo que entiendo es que debes de insertar los valores en los textboxes antes de presionar nuevo y grabar como dices

creo que esto quiero decir el mensaje
no es posible insertar fila vacia. debe contener al menos un valor columna establecida
no es posible meter un registro nuevo si no tiene al menos un valor
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:mensaje error

Publicado por owen (4 intervenciones) el 18/02/2011 16:34:14
hola
asi este los textbox vacios y al precionar nuevamente el boton nuevo
no salga error
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:mensaje error

Publicado por Christian (666 intervenciones) el 18/02/2011 19:03:47
Captura el error con On Error y fijate que queres hacer ante ese caso

por ejemplo deshabilitar uno de los botones , cerrar la aplicacion u otra cosa.

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:mensaje error

Publicado por Emilio (15 intervenciones) el 18/02/2011 23:56:56
Private Sub cmdnuevo_Click()

IF TEXT1.TEXT<>"" AND TEXT2.TEXT<>"" AND TEXT3.TEXT<>"" THEN
Ado.Recordset.AddNew
ELSE
MSGBOX"DEBE LLENAR LOS TRES VALORES"
END IF

end sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar