Colegas,
Estou com um problema. Tenho duas tbls que se relacionam por meio de um codigo de documento, o problema é que preciso pegar na tbl "associativa" o maior codigo de um determinado documento.
por exemplo na tbl processo tem-se:
coddocumento codprocesso
1 2
1 3
1 9
ele retornaria 9. Mas com o código abaixo ele não retorna NADA!
---------------------------------------
Private Sub Comando46_Click()
Dim db As Database, deb As Recordset, cre As Recordset
Dim numeromaior As Long
Set db = CurrentDb()
Set deb = db.OpenRecordset("Select max(codprocesso) as maximo from processo where (coddocumento)=coddoc")
numeromaior = maximo
MsgBox "Valor do codigo do processo é " & numeromaior, vbOKOnly, "TESTE de BARRA"""
End Sub
Alguém saberia? Já imagino q é uma besteira grande.. =(

Você conhece a função Dmax() ???

Procure no Help do Access.

Acho que vai se aplicar melhor ao que você precisa...


Ewoks

Obrigada.
Ele está pegando o valor, mas não está buscando do registro q o formulário principal está mostrando - coddoc (da tabela documento)

Dim curX As Long, curY As Long
Dim codigovalor As Long
codigovalor=coddoc.Value

curY = DMax("[codprocesso]", "Processo", "[coddocumento] = codigovalor")
MsgBox "Valor do codigo do processo é " & curY, vbOKOnly, "TESTE de BARRA"""

Você que mandar o form pra mim analisar???

aecinformatica@terra.com.br

Enviei o arquivo para seu e-mail..

verfique se o coddoc e codprocessso são campos numéricos...

CODDOC é um campo autonumerico inteiro longo da tbl DOCUMENTO (pk).
CODPROCESSO é um campo autonumerico inteiro longo da tbl PROCESSO (pk).

Erro na linha: Set deb = db.OpenRecordset(sSQL)
Tipo de dados incompativel.
-----------------------------------------------------------
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])='" & [Forms]![processo3]!coddoc & "'))"
Set db = CurrentDb()
Set deb = db.OpenRecordset(sSQL)
numeromaior = sSQL
'Texto48.SetFocus
'Texto48.Value = CLng(sSQL)
'numeromaior = maximo
MsgBox "Valor do codigo do processo é " & numeromaior, vbOKOnly, "TESTE de BARRA"""

Alguem sabe.. eu agradeceria!

Veja seu email.

Enviei a solução, conforme você me solicitou...


Ewoks

Seu email está retornando...

Tentei enviar várias vezes.


Algum outro???


Ewoks

Por favor,
envie para: thymyan_osdorf@yahoo.com

Enviei para o email que você indicou...

Retorne se deu certo...

Ewoks