[Resolvido]Pegar Ultimo Id Mysql

Bom dia pessoal venho aqui pedir a ajuda de vcs para resgata o id que acabei de salvar no access x mysql servidor online pois ao salvar ele não coloca o id no formulario somente se sair e entrar novamente e que ele aparece sera que alguem pode da uma ajuda.

Pra salvar uso este;


If IsNull(Me.Cod_Pedido) Then

Call Add_MySQL("select * from tblpedidos", Me.Form.Name)
'Call Lista_Load("select * from tblcliente order by Razao_Social", Me.Form.Name)

MsgBox "Dados salvos com sucesso."

Else

Call Updade_MySQL("select * from tblpedidos where Cod_Pedido=" & Me.Cod_Pedido, Me.Form.Name)
'Call Lista_Load("select * from tblcliente order by Razao_Social", Me.Form.Name)

MsgBox "Dados atualizados com sucesso."


End If


e para abrir o formulario este;


Dim MySQL As String



MySQL = " Select * from tblpedidos"


Call Conexao_Open(MySQL)

Set Forms(Me.Form.Name).Recordset = rs


Lembrando que formulario desvinculado.

Boa tarde
Tente

Dim MySQL As String
If IsNull(Me.Cod_Pedido) Then

Call Add_MySQL("select * from tblpedidos", Me.Form.Name)
MsgBox "Dados salvos com sucesso." 
Else
Call Updade_MySQL("select * from tblpedidos where Cod_Pedido=" & Me.Cod_Pedido, Me.Form.Name)
MsgBox "Dados atualizados com sucesso."
End If
MySQL = " Select * from tblpedidos"
Call Conexao_Open(MySQL)
Set Forms(Me.Form.Name).Recordset = rs

Grande Alexandre testei teve o mesmo efeito ele salva normal porem não adiciona o cod_pedido no campo no formulario no servidor ele adiciona no formulario somente se sair e entrar novamente.
No caso ele teria que buscar o ultimo registro da tabela pedido e coloca o registro + 1 na teoria eu sei mais na pratica me falta conhecimento, tipo um recordset tambem

Informe o código subjacente a
Add_MySQL e Updade_MySQL

Public Sub Add_MySQL(sMySQL, FrMy)

Call Conexao_Open(sMySQL) 'Abre a conexão para a tabela informada

rs.AddNew

Dim FormAberto As Form
Dim Controle As Control

Set FormAberto = Forms(FrMy)

For Each Controle In FormAberto

If Controle.ControlType = acTextBox Then

rs(Controle.Name) = FormAberto.Controls(Controle.Name).Value

End If

Next

rs.Update
rs.Close
cn.Close


End Sub


Public Function Updade_MySQL(sMySQL, FrMy)

Call Conexao_Open(sMySQL) 'Abre a conexão para a tabela informada

Dim FormAberto As Form
Dim Controle As Control

Set FormAberto = Forms(FrMy)

For Each Controle In FormAberto

If Controle.ControlType = acTextBox Then

rs(Controle.Name) = FormAberto.Controls(Controle.Name).Value

End If

Next

rs.Update
rs.Close
cn.Close

End Function

Para obter novo ID

Código:

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


Grande Alexandre ficou show ele pega o id, agora me surgiu uma duvida a gente tem que pensar e testar todo possivel erro né, e se não tiver um registro na tabela como poderia verificar ou pular a verificação se for um registro novo e a tabela não tiver registro qual poderia ser a solução.

Olá MArcelo,

Aproveitando o gancho do Alexandre Neves.

Código:



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
   
    If rs.EOF Then
        NovoID = 1
    Else
        rs.MoveLast
        NovoID = rs("ID") + 1
    End If
   
    rs.Close
    cn.Close

End Function



Boa sorte.

[]'s

Valeu a ajuda era essa minha duvida. ficou show quem sabe sabe.

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

Boa tarde

Código:

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
    If rs.EOF Then
        NovoID = 1
    Else
        rs.MoveLast
        NovoID = rs("ID") + 1
    End If
    rs.Close
    cn.Close
End Function