Questão:
Olá meus caros amigos. É a primeira vez que faço uma pergunta aki.
É o seguinte:
Como eu faço para achar o maior valor dentro de um subformulário quando eu pressionar um botão?

Seria mais ou menos assim:

Private Sub Incluir_Click()
Dim Vr As String

Dim dbs As Database
Dim rst As Recordset

Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("SELECT * from detalhepedido WHERE CodPed = " & CodPed)
Do While rst.EOF = False

Vr = DMax(ValorEscolhido, rst, CodPed)
rst.MoveNext
Loop
Set rst = Nothing

ValorPed.SetFocus
ValorPed = Vr
Set rst = Nothing
rst.Close
dbs.Close

End Sub

O que eu estou fazendo errado que sempre mostra a mensagem: "Tipos incompatíveis"?

Quem puder me ajudar, entre em contato comigo:
andrea.passos@gmail.com

Opções:
Fico no aguardo

 

Olá,

Vr é numérico ou string ?

esse é um dos meus problemas, pois já declarei como variant, como string, inteiro mas sempre dá o mesmo erro: tipos incompatíveis.