[Resolvido]nenhum registro atual erro 3021

boa noite pessoal eu havia feito o anexo deste exemplo estou tentando adaptar ele em meu sistema agora esta dando erro de nenhum registro atual não estou conseguindo resolver este problema se alguém puder me dar esta força

desde ja agradeço

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

bom dia ahteixeira fiz a mudança como vc mencionou mais eu havia esquecido de mencionar este erro é quando eu abro o formulário se eu ja tentar inserir o produto sem inserir o campo contas e também sem inserir o tipo de conta ai sim ocorre este erro.


grato

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

ola ahteixeira muito obrigado deu certo

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