Bom, estou fazendu um programa, e o meu problema é que eu insiro dados,....OK.....quando insiro outro dado e dou deletar nele mesmo, ae, ele da o erro 3021,......no current record,..... alguém saberia o porque???? o codigo de meus botoes de salvar e de deletar saum os seguintes: Private Sub cmdSalvar_Click() If txtReferente.Text = "" Or txtMail.Text = "" Or txtResponsavel.Text = "" Or txtMeio.Text = "" Or txtPedido.Text = "" Then MsgBox "Preencha todos os campos!", vbCritical, "Atualize! - Salvar" Exit Sub End If AtualizaCampos 'Função que indica que os texts onde saum no banco tbl.Update dbank.Recordsets.Refresh cmdIncluir.Enabled = True cmdExcluir.Enabled = True cmdAlterar.Enabled = True cmdAvancar.Enabled = True cmdVoltar.Enabled = True cmdSalvar.Enabled = False cmdFeito.Enabled = True cmdCancelar.Enabled = False MsgBox "Registro incluso com sucesso!", vbInformation, "Atualize! - Salvar" tbl.MovePrevious End Sub Private Sub cmdExcluir_Click() Dim excluirMsg As String excluirMsg = MsgBox("Deseja excluir?", vbYesNo + vbQuestion, "Atualize! - Excluir") If excluirMsg = vbYes Then tbl.Seek "=", txtCodigo tbl.Delete dbank.Recordsets.Refresh If tbl.BOF = False Then Limpa If tbl.RecordCount > 0 Then tbl.MoveNext AtualizaForm num = num - 1 Exit Sub End If cmdExcluir.Enabled = False cmdAlterar.Enabled = False cmdAvancar.Enabled = False cmdVoltar.Enabled = False cmdSalvar.Enabled = False cmdFeito.Enabled = False cmdCancelar.Enabled = False num = num - 1 Else tbl.MovePrevious AtualizaForm End If End If End Sub Se alguém puder me ajudar,... muito obrigado,...obrigado mesmo
