MaximoAccess

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

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
    avatar
    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, 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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 22 Out 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
    avatar
    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, 15:34

    Funcionou. Obrigado.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 22 Out 2015, 16:54

    cheers

      Data/hora atual: Sab 22 Jul 2017, 05:35