Error Data Grid
Publicado por Ale (47 intervenciones) el 01/11/2010 16:47:10
Hola A todos
Favor si me pueden ayudar
Tengo un form con textbox enlazados a un abase de datos mediante un adodc, en este form tb tengo un datagrid. El problema que tengo es el siguiente
Al dar clik al command1 el datagrid inserta una nueva fila y a medida que voy escribiendo en los text box , va llenando los campos enlazados del datagrid. Sin embargo al cancelar la operacion (command3) me sale el siguiente error
"No es posible insertar una fila vacia. Debe contener al menos una valor en la columna establecido"
¿Como hago para que no me copie datos en el data mientras lleno los textbox sino que lo haga cuando aprete el command2 (Guardar)
¿Como elimino el error?
Espero me ayuden
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox ("Sr. Usuario debe completar todos los datos,vbInformation")
Else
Adodc1.Recordset.Update
Adodc1.Refresh
End If
End Sub
Private Sub Command3_Click()
Limpiar
Text1.SetFocus
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Favor si me pueden ayudar
Tengo un form con textbox enlazados a un abase de datos mediante un adodc, en este form tb tengo un datagrid. El problema que tengo es el siguiente
Al dar clik al command1 el datagrid inserta una nueva fila y a medida que voy escribiendo en los text box , va llenando los campos enlazados del datagrid. Sin embargo al cancelar la operacion (command3) me sale el siguiente error
"No es posible insertar una fila vacia. Debe contener al menos una valor en la columna establecido"
¿Como hago para que no me copie datos en el data mientras lleno los textbox sino que lo haga cuando aprete el command2 (Guardar)
¿Como elimino el error?
Espero me ayuden
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox ("Sr. Usuario debe completar todos los datos,vbInformation")
Else
Adodc1.Recordset.Update
Adodc1.Refresh
End If
End Sub
Private Sub Command3_Click()
Limpiar
Text1.SetFocus
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Valora esta pregunta


0