Olá Pessoal
Não sei se fiz bem em abri outro tópico, mas ainda estou buscando ajuda pra este problema:
Nosso colega JPaulo sugeriu a função que segue mas não deu certo. O resultado no campo total dá erro.
Private Sub IDtbltriagem_AfterUpdate()
Me.nome = DLookup("txtNome", "tbltriagem", "IDcliente=" & Me!IDtbltriagem)
Me.Aluno = DLookup("txtAluno", "tbltriagem", "IDcliente=" & Me!IDtbltriagem)
Me.valor.Value = DLookup("txtValor", "tbltriagem", "IDcliente=" & Me!IDtbltriagem)
Me.valor.Requery
Me.Total.Value = Nz(Me.valor, 0) * Nz(Me.Quant, 0)
End Sub
Se alguem se habilitar agradeço muito.
Wenilton
Não sei se fiz bem em abri outro tópico, mas ainda estou buscando ajuda pra este problema:
Nosso colega JPaulo sugeriu a função que segue mas não deu certo. O resultado no campo total dá erro.
Private Sub IDtbltriagem_AfterUpdate()
Me.nome = DLookup("txtNome", "tbltriagem", "IDcliente=" & Me!IDtbltriagem)
Me.Aluno = DLookup("txtAluno", "tbltriagem", "IDcliente=" & Me!IDtbltriagem)
Me.valor.Value = DLookup("txtValor", "tbltriagem", "IDcliente=" & Me!IDtbltriagem)
Me.valor.Requery
Me.Total.Value = Nz(Me.valor, 0) * Nz(Me.Quant, 0)
End Sub
Se alguem se habilitar agradeço muito.
Wenilton