Boa noite pessoal gostaria de vir aqui pedir mais uma vez a ajuda de vcs.
Estou com um problema em buscar o Ultimo id do mysql, o Amigo Alexandre Neves desenvolveu um exemplo e funcionou perfeito.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 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
NOVOID = rs("Cod_Pedido") + 1
Me.Cod_Pedido = NOVOID
'Call Updade_MySQL("select * from tblpedidos where Cod_Pedido=" & Me.Cod_Pedido, Me.Form.Name)
End If
rs.Close
cn.Close
Porem o que acontece ele pega o ultimo registro e coloca mais 1 problema;
1- Se o campo estiver autoincrement e por ventura o ultimo id for excluido ele pega o penultimo e coloca +1 dando erro pois aquele ja foi excluido, e para tentar resolver eu tirei o autoincrement blz.
2- tirando o autoincrement acontece que se na tabela não estiver registro ele n coloca o 1.
qual é a ideia ele fazer uma verificação no campo ID e trazer o valor se o campo esta vazio retornando o valor faça uma condição onde ele for verdadeiro coloca 1 no campo id do formulario sendo faço dispara a condição depois do else pois nessa função ta la o novoid=1 mais não adiciona.
alguem pode da uma maozinha
Estou com um problema em buscar o Ultimo id do mysql, o Amigo Alexandre Neves desenvolveu um exemplo e funcionou perfeito.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 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
NOVOID = rs("Cod_Pedido") + 1
Me.Cod_Pedido = NOVOID
'Call Updade_MySQL("select * from tblpedidos where Cod_Pedido=" & Me.Cod_Pedido, Me.Form.Name)
End If
rs.Close
cn.Close
Porem o que acontece ele pega o ultimo registro e coloca mais 1 problema;
1- Se o campo estiver autoincrement e por ventura o ultimo id for excluido ele pega o penultimo e coloca +1 dando erro pois aquele ja foi excluido, e para tentar resolver eu tirei o autoincrement blz.
2- tirando o autoincrement acontece que se na tabela não estiver registro ele n coloca o 1.
qual é a ideia ele fazer uma verificação no campo ID e trazer o valor se o campo esta vazio retornando o valor faça uma condição onde ele for verdadeiro coloca 1 no campo id do formulario sendo faço dispara a condição depois do else pois nessa função ta la o novoid=1 mais não adiciona.
alguem pode da uma maozinha