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

    Recuperar o maior valor

    Compartilhe

    phellippo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 18/05/2015

    Recuperar o maior valor

    Mensagem  phellippo em Seg 25 Maio 2015, 13:11

    Bom dia,

    Estou com uma duvida/problema, eu tenho uma tabela que eu gera um código automático, 1,2,3,4,5 etc etc,
    porém quando eu recupero o código para somar mais um, sempre recupera 0, segue o código.

    =================================================================================================================
    consSQL = "SELECT * FROM tbl_TMOLFornecimento"

    Set DataSet = banco.OpenRecordset(consSQL, dbOpenDynaset)

    If Not DataSet.EOF Then
    cod_rec = DataSet![cod_rec] + 1
    consSQL = "INSERT INTO tbl_TMOLRecebimento (fk_Embarcacao, cod_for, Data, Hora, Embarcacao, Recebe, PontoEntrega, ValorRecebimento, Migo, CRGT ,RT ,Observacao ,Usuario, DataSistema) " _
    & " VALUES (" & txtId & ", " & cod_rec & " ,'" & txtData & "', '" & txtHora & "', '" & cmbFornece & "', '" & cmbNomeEmb & "', '" & cmbPontoEntrega & "', " & txtValorFornecido & ", '" & txtMigo & "', '" & txtCRGT & "', '" & txtRT & "', '" & txtObservacao & "', '" & txtChave & "', now() )"
    DoCmd.RunSQL consSQL
    End If

    =================================================================================================================
    Obrigado desde já

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    Registrado : 09/11/2012

    Re: Recuperar o maior valor

    Mensagem  =>Nois em Qua 27 Maio 2015, 17:06

    Boa tarde

    eu uso este e não tenho problema algum

    segue:

    On Error Resume Next 'Tratativa de erros

    Dim ULTIMO_REG As Double

    ULTIMO_REG = DMax("seu_campo_numerico", "sua_tabela")
    Me.seu_campo = ULTIMO_REG + 1


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

      Data/hora atual: Sab 10 Dez 2016, 06:52