MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    Tobiasfranca
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Tobiasfranca em Qui 22 Out 2015, 16: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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 22 Out 2015, 16: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
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Tobiasfranca em Qui 22 Out 2015, 16:34

    Funcionou. Obrigado.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 22 Out 2015, 17:54

    cheers

      Data/hora atual: Dom 11 Dez 2016, 01:17