[Resolvido]nenhum registro atual erro 3021

Olá Marcelino,
O erro acontece, porque está a tentar desativar um botão (controlo) que está com o foco.
Para não acontecer, devemos mudar o foco para outro campo de depois desativar o botão (controlo).

Veja no como fazer no casdo do botão gerar parcelas:

Código:

Private Sub bt_GerarParcelas_Click()
 Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("Tbl_ContasAPagar") 'Abre a tabela ContasAPagar
    Valor_Parcela = (Me.TxtTotal_Compra / Me.QtdeParcelas) 'Valor de cada Parcela
   
    For i = 1 To Me.QtdeParcelas  'Insere as Parcela na Tbl_ContasAreceber
        rs.AddNew
        rs("Cod_Tabcompra") = Me.Codcompra
        rs("Parcelas") = i & "/" & Me.QtdeParcelas
        rs("Valor_Parcela") = Valor_Parcela
        rs("Dt_Vencimento") = DateAdd("m", i - 1, Me.txtVenc_1_Parc) 'Calcula as datas de Vencto através da função DateAdd()
        rs.Update
    Next
    rs.Close
    DB.Close
    Me.frmSub_ContasApagar.Requery  'Atualiza o SubForm
    'ahteixeira inicio--------------------------------------------
    Me.txtNrPedido.SetFocus  'muda o foco para permitir desativar
    'ahteixeira fim ----------------------------------------------
    Me.bt_GerarParcelas.Enabled = False
End Sub

Abraço

Olá,
Se a questão é essa, pode colocar o formulario subformulario Frm_ComprasDet apenas ativo, quando tiver os campos necessários devidamente preenchidos.
Âbraço

Olá, veja se é isto:
meocloud.pt/link/8927eeb1-3815-4c83-a4d0-16524fd50a94/exemplobd.zip/
Copiar e colar no browser
Abraço

Olá Marcelino,
Obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço