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

    [Resolvido]Pegar Ultimo Id Mysql 2

    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 19/08/2010

    [Resolvido]Pegar Ultimo Id Mysql 2 Empty [Resolvido]Pegar Ultimo Id Mysql 2

    Mensagem  marcelo3092 17/2/2019, 12:42

    Ola pessoal O amigo Alexandre me ajudou bastante no código e coloquei como resolvido porem me apareceu outra questao e se nao tiver registro na tabela ele da erro como poderia verificar se tem algum registro antes de executar ou alguem tenha uma solução para esta ocasiao

    Public Function NovoID()
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' código criado por Alexandre Neves, do Fórum MaximoAccess '
    ' utilize o código livremente mas mantenha os créditos '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Call Conexao_Open("select * from tblpedidos") 'Abre a conexão para a tabela informada
    rs.MoveLast
    NovoID = rs("ID") + 1
    rs.Close
    cn.Close
    End Function


    Ai ele pega o ultimo ID e adiciona +1 porem se não tiver registro ele da erro.

    Agradeço a ajuda
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 19/08/2010

    [Resolvido]Pegar Ultimo Id Mysql 2 Empty Pegar Ultimo Id Mysql 2

    Mensagem  marcelo3092 17/2/2019, 12:50

    Antes mesmo de pergunta o parceiro me ajudo novamente valeu alexandre fim, ficou assim agora.


       Limpa_Campos (Me.Form.Name)
           
       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       '   código criado por Alexandre Neves, do Fórum MaximoAccess   '
       '     utilize o código livremente mas mantenha os créditos     '
       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       
       Call Conexao_Open("select * from tblsubgrupo") 'Abre a conexão para a tabela informada
       
       If rs.EOF Then
           NovoID = 1
       Else
           rs.MoveLast
           NovoID = rs("Cod_SubGrupo") + 1
       End If
       
       rs.Close
       cn.Close
       Call Add_MySQL("select * from tblsubgrupo", Me.Form.Name)
       Me.Cod_SubGrupo = NovoID
       Me.GUIADADOS.Enabled = True
       Me.Data_Cadastro = Date
       Me.SubGrupo.SetFocus
       Me.Cod_Empresa = 2

      Data/hora atual: 25/7/2021, 03:27