MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Uso de 'Null' iinválido

    avatar
    lschramm
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 1
    Registrado : 22/10/2021

    Uso de 'Null' iinválido Empty Uso de 'Null' iinválido

    Mensagem  lschramm 22/10/2021, 15:21

    Bom dia,

    Tenho o seguinte trecho de código (abaixo) para deletar o registro do UserForm, porém está ocorrendo o erro que demonstro no anexo "Erro.png".

    Código:

    Sub Deletar()

    bloqueado = True
    Dim tabela As ListObject
    Dim n As Integer, l As Integer
    Set tabela = Planilha1.ListObjects(1)

    n = UserForm1.ListBox1.Value
    l = tabela.Range.Columns().Find(n, , , xlWhole).Row

    UserForm1.ListBox1.RowSource = ""
    tabela.Range.Rows(l).Delete

    Call Atualizar_ListBox
    Call LimparCampos
    MsgBox "O Registro foi deletado"
    bloqueado = False

    End Sub

    Podem me auxiliar por gentileza?

    Obrigado!
    Anexos
    Uso de 'Null' iinválido AttachmentErro.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 4 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    Uso de 'Null' iinválido Empty Re: Uso de 'Null' iinválido

    Mensagem  Marcelo David 22/10/2021, 16:45

    Seja bem vindo ao fórum!
    Como se trata de um assunto não relacionado ao Access e este fórum é dedicado ao Access,
    vou alterar o tópico para assuntos variados.

    Pode ser que alguém te auxilie.

    No mais, tenho um palpite que
    tabela.Range.Rows(l).Delete está retornando nulo, por isso o erro.

    Boa sorte Very Happy


    .................................................................................
    Uso de 'Null' iinválido Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Uso de 'Null' iinválido Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Uso de 'Null' iinválido Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Uso de 'Null' iinválido Marcel11

    lschramm gosta desta mensagem


      Data/hora atual: 22/11/2024, 20:57