Hola a todos de nuevo fastidiandolos ;P pero espero que resuelvan mi duda o mejor dicho el inconveniente que tengo...
1ro- agrego un dato al registro numero 3, 4, y 5 (supongamos) luego quiero retroceder al registro numero 3 o 4 y me sale el error
" no es posible insertar una fila vacia, debe contener al menos un valor de columna establecido "
este es mi diseño
Public Sub Habilitatext()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True
Text13.Enabled = True
Text14.Enabled = True
Text15.Enabled = True
lblFecha.Enabled = True
End Sub
Public Sub desabilitaText()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Text15.Enabled = False
lblFecha.Enabled = False
End Sub
Private Sub Command1_Click()
Adoclientes.Recordset.MoveFirst <--- error
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Text15.Enabled = False
cmbCIT.Enabled = False
cmbLista.Enabled = False
cmbINSPECTOR.Enabled = False
cmbCombo.Enabled = False
cmbBolefactu.Enabled = False
cmbMes.Enabled = False
lblFecha.Enabled = False
End Sub
Private Sub Command10_Click()
frmListaBase.Show
End Sub
Private Sub Command2_Click()
Adoclientes.Recordset.MovePrevious <---- error
If Adoclientes.Recordset.BOF Then
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Text15.Enabled = False
cmbCIT.Enabled = False
cmbLista.Enabled = False
cmbINSPECTOR.Enabled = False
cmbCombo.Enabled = False
cmbBolefactu.Enabled = False
cmbMes.Enabled = False
lblFecha.Enabled = False
Adoclientes.Recordset.MoveFirst
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End If
End Sub
Private Sub Command3_Click()
Adoclientes.Recordset.MoveNext <---- error
If Adoclientes.Recordset.EOF Then
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Text15.Enabled = False
lblFecha.Enabled = False
cmbCIT.Enabled = False
cmbLista.Enabled = False
cmbINSPECTOR.Enabled = False
cmbCombo.Enabled = False
cmbBolefactu.Enabled = False
cmbMes.Enabled = False
Adoclientes.Recordset.MoveLast
Else
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End If
End Sub
Private Sub Command4_Click()
Adoclientes.Recordset.MoveLast <---- error
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Text15.Enabled = False
lblFecha.Enabled = False
cmbCIT.Enabled = False
cmbLista.Enabled = False
cmbINSPECTOR.Enabled = False
cmbCombo.Enabled = False
cmbBolefactu.Enabled = False
cmbMes.Enabled = False
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Command6_Click()
Habilitatext
Adoclientes.Recordset.AddNew
lblFecha = Format(Date, "dd/mm/yyyy")
Command8.Enabled = True
Command6.Enabled = False
Command7.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
cmbLista.Enabled = True
cmbCIT.Enabled = True
cmbINSPECTOR.Enabled = True
cmbCombo.Enabled = True
cmbBolefactu.Enabled = True
cmbMes.Enabled = True
Text1.SetFocus
End Sub
Private Sub Command7_Click()
Habilitatext
Command8.Enabled = True
Command6.Enabled = False
Command7.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
cmbCIT.Enabled = True
cmbLista.Enabled = True
cmbINSPECTOR.Enabled = True
cmbCombo.Enabled = True
cmbBolefactu.Enabled = True
cmbMes.Enabled = True
lblFecha.Enabled = True
Text1.SetFocus
End Sub
Private Sub Command8_Click()
Command8.Enabled = False
Dim res As Integer
res = MsgBox("Desea Grabar los Cambios", vbQuestion + vbYesNo, "Clientes")
If res = 6 Then
Adoclientes.Recordset.UpdateBatch
Else
Adoclientes.Recordset.CancelUpdate
End If
Habilitatext
Adoclientes.Recordset.AddNew
Command8.Enabled = False
Command6.Enabled = True
Command7.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Text15.Enabled = False
lblFecha.Enabled = False
cmbCIT.Enabled = False
cmbLista.Enabled = False
cmbINSPECTOR.Enabled = False
cmbCombo.Enabled = False
cmbBolefactu.Enabled = False
cmbMes.Enabled = False
End Sub
Private Sub Command9_Click()
Dim res As Integer
res = MsgBox("Desea Eliminar el Registro", vbQuestion + vbYesNo, "Clientes")
If res = 6 Then
Adoclientes.Recordset.Delete
Adoclientes.Recordset.MoveLast
Else
Exit Sub
End If
End Sub
Eso lo señalado es cuando hago clic en mi commandbutton de "inicio" "anterior" "siguiente" "ultimo"
espero que me puedan ayudar. muchas gracias de antemano y
