Último Número

[jntk]

Galera, preciso de um help.

Preciso achar o último número cadastrado na tabela e joga-lo em uma variável.

Usei esse código mas não deu certo:

'declarando as variáveis'
Dim db As Database
Dim sql As String
Dim dyn As Dynaset
Dim dd As Integer
'variáveis declaradas

'função que verifica o último número
If Not dyn.EOF Then
    dd = dyn.Fields("codigo")
End If

Me dêm uma luz ae...

Abraço

[Graymalkin]

Galera, preciso de um help.

Preciso achar o último número cadastrado na tabela e joga-lo em uma variável.

Usei esse código mas não deu certo:

'declarando as variáveis'
Dim db As Database
Dim sql As String
Dim dyn As Dynaset
Dim dd As Integer
'variáveis declaradas

'função que verifica o último número
If Not dyn.EOF Then
    dd = dyn.Fields("codigo")
End If

Me dêm uma luz ae... Abraço

Supondo que o seu objeto "db" já esteja aberto, acho que você poderia fazer isso aqui:

    Dim rs As Recordset
    
    rs = db.OpenRecordset("SELECT MAX(codigo) AS último FROM TABELA")
    MsgBox rs.Fields("último").Value

Certo? Não testei aqui.

Abraços,

Graymalkin

[jntk]

Galera, preciso de um help.

Preciso achar o último número cadastrado na tabela e joga-lo em uma variável.

Usei esse código mas não deu certo:

'declarando as variáveis'
Dim db As Database
Dim sql As String
Dim dyn As Dynaset
Dim dd As Integer
'variáveis declaradas

'função que verifica o último número
If Not dyn.EOF Then
    dd = dyn.Fields("codigo")
End If

Me dêm uma luz ae... Abraço

Supondo que o seu objeto "db" já esteja aberto, acho que você poderia fazer isso aqui:

    Dim rs As Recordset
    
    rs = db.OpenRecordset("SELECT MAX(codigo) AS último FROM TABELA")
    MsgBox rs.Fields("último").Value

Certo? Não testei aqui.

Abraços,

Graymalkin

Não deu certo....

Deu o erro:

"

Compile error:

Invalid use of property

"

No aguardo por mais ajudas.....

[Graymalkin]

Em qual linha deu esse erro?

Abraços,

Graymalkin

[jntk]

Em qual linha deu esse erro?

Abraços,

Graymalkin

Ele selecionou o "rs =" e deu a mensagem.

Abraço...

[Graymalkin]

Experimente então:

set rs = db.OpenRecordset("SELECT MAX(codigo) AS último FROM TABELA")

Abraços,

Graymalkin

[jntk]

Experimente então:

set rs = db.OpenRecordset("SELECT MAX(codigo) AS último FROM TABELA")

Abraços,

Graymalkin

Aeeee...

Cara, valeu, muito obrigado....

Estava tentando resolver essa parada desde sexta-feira à tarde....

Podem fechar o tópico...hehe

Abraço....