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

    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á
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 653
    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... Descanse e tente novamente!

      Data/hora atual: Seg 20 Nov 2017, 17:07