Colegas!
Preciso capturar o valor do sitSQL para gravar em uma tbl - documento - o status do codprocesso que tem o maior valor. Não estou conseguindo.
Eis o código.
Obrigada a todos!

Dim db As Database, deb As Recordset, cre As Recordset
Dim sSQL As String, sitSQL As String
Dim numeromaior As Long
Dim sitproc As Long
codigododoc = [Forms]![processo3]![coddoc]
MsgBox "Valor do codigo do processo é " & codigododoc, vbOKOnly, "TESTE de BARRA"
sSQL = "SELECT Max([codprocesso]) AS maximo FROM processo WHERE ((([processo].[coddocumento])=" & Form_processo3.coddoc & "))"
Set db = CurrentDb()
Set deb = db.OpenRecordset(sSQL)
numeromaior = deb("maximo")
MsgBox "O maior valor de codigo de processo para o codigo do documento é " & numeromaior, vbOKOnly, "AVISO"
'setar o status do registro encontrado!
sitSQL = "SELECT situacaoprocesso as situacao FROM processo WHERE codprocesso=numeromaior"
Set db = CurrentDb()
Set cre = db.OpenRecordset(sitSQL)
MsgBox "A situação do processo é " & codprocesso, vbOKOnly, "AVISO"
sitproc = cre("situacao")
status.Value = situacaoprocesso
End Sub

Acho que já está resolvido.

Se ainda não, confirme...


Ewoks

Oi,

sSQL = "SELECT Max([codprocesso]) AS maximo FROM processo WHERE ((([processo].[coddocumento])=" & Form_processo3.coddoc & "))"

sSQL = "SELECT Max(codprocesso) AS maximo FROM processo "
sSql = sSql & "WHERE coddocumento =" & Forms!processo3.coddoc & ";"

Form!processo3.coddoc >> é número ?

sitSQL = "SELECT situacaoprocesso as situacao FROM processo WHERE codprocesso=numeromaior"

sitSQL = "SELECT situacaoprocesso as situacao FROM processo WHERE codprocesso =" & numeromaior

t+
...