Postada em 08/06/2004 20:16 hs
Se você tem um campo autonumerável, pode usar: Public Function fGrava_Busca() 'OK 'grava e busca o último registro 'Tabela Codigo -> Trimestre, Ano, Grupo e Ocorrencia (Cod - fornecido pelo BD) With DataEnv cSQL = "INSERT INTO Codigo (Trimestre, Ano, Grupo, SubGrupo, Ocorrencia) VALUES (" & tpDados.vTrim & ", " & _ tpDados.vAno & ", '" & tpDados.vGrupo & "', '" & tpDados.vGrCod & "', '" & tpDados.vOcorrencia & "')" 'comando para gravação .ConectaBD.Execute cSQL, , adCmdText 'COMANDO PARA PEGAR O VLR. DO COD .rsCodigo.Open ("SELECT @@IDENTITY") tpDados.vCod = .rsCodigo(0) .rsCodigo.Close End With End Function
Se não, pode utilizar: Public Function BuscaAnterior()
Dim cSQLBA1 As String
cSQLBA1 = "SELECT TOP 1 * from Geral ORDER BY AProtocolo desc, NProtocolo desc" Dados.rsGeral.Open cSQLBA1, , adOpenDynamic, adLockOptimistic If IsNull(Dados.rsGeral!NProtocolo) Then NAnterior = 0 Else NAnterior = Dados.rsGeral!NProtocolo End If Dados.rsGeral.Close frmPrincipal.lblNProtocolo.Caption = NAnterior NAnterior = (NAnterior + 1) frmPrincipal.lblNProtocolo.Caption = NAnterior End Function
Boa sorte e t+
Feliz aquele que passa o que sabe e aprende o que ensina 
|