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

    [Resolvido]Funcão DMáx convertida para VBA

    Tobiasfranca
    Tobiasfranca
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 08/05/2013

    [Resolvido]Funcão DMáx convertida para VBA Empty [Resolvido]Funcão DMáx convertida para VBA

    Mensagem  Tobiasfranca 22/10/2015, 15:12

    Bom dia!!

    Prezados, sempre utilizei a função "=Nz(DMáx("[Codigo]";"[CadFiliais]"))+1" na propriedade valor padrão de uma caixa de texto para gerar um numero sequencial e não utilizar a autonumeração do access e funciona perfeitamente. Estou tentando adaptar essa função no código vba para que esse valor apareça na caixa de texto somente quando o usuário clicar no botão "Incluir" mas não funciona. o que estou fazendo de errado? segue exemplo do código:

    Private Sub BtnIncluir_Click()
    me.TxtCodigo.Text = Nz(DMáx("[Codigo]";"[CadFiliais]"))+1
    End Sub

    mensagem de erro: erro de compilação! era esperado separador de lista ou ).

    ainda sou iniciante no vba e não faço ideia de como resolver isso. conto com vocês.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Funcão DMáx convertida para VBA Empty Re: [Resolvido]Funcão DMáx convertida para VBA

    Mensagem  Alvaro Teixeira 22/10/2015, 15:33

    Olá Tobias,

    Teste assim:
    Me.txtCodigo.Value = Nz(DMax("[Codigo]", "[CadFiliais]")) + 1

    No VBA os comando são patriotas (Inglês)
    Outro exemplo DPesquisar em VBA é DLookup

    Ficamos aguardar retorno.
    Abraço

    Nota: Ajustei título do tópico, de forma a ficar mais fácil para outros utilizadores
    Tobiasfranca
    Tobiasfranca
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 08/05/2013

    [Resolvido]Funcão DMáx convertida para VBA Empty Re: [Resolvido]Funcão DMáx convertida para VBA

    Mensagem  Tobiasfranca 22/10/2015, 15:34

    Funcionou. Obrigado.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Funcão DMáx convertida para VBA Empty Re: [Resolvido]Funcão DMáx convertida para VBA

    Mensagem  Alvaro Teixeira 22/10/2015, 16:54

    cheers

    Conteúdo patrocinado


    [Resolvido]Funcão DMáx convertida para VBA Empty Re: [Resolvido]Funcão DMáx convertida para VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 06:39