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

    Recuperar o maior valor

    avatar
    phellippo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Recuperar o maior valor Empty Recuperar o maior valor

    Mensagem  phellippo 25/5/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
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Recuperar o maior valor Empty Re: Recuperar o maior valor

    Mensagem  =>Nois 27/5/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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 29/3/2024, 06:38