[Resolvido]Alterar campos ao carregar formulário

Boa tarde amigos.

Estou tentando atualizar o valor de alguns campos com o seguinte código:

Código:


Private Sub Form_Load()
Dim modcarg As String

Me.dataSaída = Now
Me.horaSaída = Now
    
    modcarg = DLookup("tipoVeículo", "modelocarros", "[Modelo] = '" & Me.modeloVeículo.Text & "' ")

    Me.fracao = DLookup("valoHora", "Preços", "[tipoVeículo]= " & modcarg & " ")
    Me.fracaoHora = DLookup("valoHora", "Preços", "[tipoVeículo]= " & modcarg & " ") / 4


End Sub


Isso trás a seguinte mensagem de erro:

Erro de tempo de execução '2185':

Você não pode fazer referência a uma propriedade ou a um método de um controle, a menos que o controle tenha o foco.

Porém o mesmo código funciona se o coloco após a alteração de algum campo.
por exemplo

Código:

Private Sub modeloVeículo_AfterUpdate()
    Dim marca As Integer
    Dim tipo As Integer
    Dim modcar As String
    Dim phora As Double
    
    marca = DLookup("Fabricante", "modelocarros", "[Modelo] = '" & Me.modeloVeículo.Text & "' ")
    Me.fabricanteVeículo = marca

    modcar = DLookup("tipoVeículo", "modelocarros", "[Modelo] = '" & Me.modeloVeículo.Text & "' ")
    
    Me.tipoVeículo = modcar
    phora = DLookup("valoHora", "Preços", "[tipoVeículo]= " & modcar & " ")
    
    Me.fracao = DLookup("valoHora", "Preços", "[tipoVeículo]= " & modcar & " ")
    Me.fracaoHora = DLookup("valoHora", "Preços", "[tipoVeículo]= " & modcar & " ") / 4
    
    Form_movimentoSaída.Refresh
    
End Sub

Já pesquisei bastante e não consegui respostas.

Alguma luz?

Obrigado!

Ola;

1º - Tem de alterar o .Text para .Value
2º - Se a variavel modcarg é string, tem de ter aspas simples no criterio dos segundos DLookup`s

Teste assim e retorne por favor;

Código:

    modcarg = DLookup("tipoVeículo", "modelocarros", "[Modelo] = '" & Me.modeloVeículo.Value & "' ")

    Me.fracao = DLookup("valoHora", "Preços", "[tipoVeículo]= '" & modcarg & "'")
    Me.fracaoHora = DLookup("valoHora", "Preços", "[tipoVeículo]= '" & modcarg & "'") / 4

Mudou a mensagem de erro,
Agora a variável modcarg retorna um valor nulo.

E por isso apresenta a msg, "Uso de Null inválido".

O Estranho é que o mesmo algoritmo funciona, dentro de um outro controle, conforme descrevi acima.
Ou seja a variável, retorna valor válido.

Obrigado pela ajuda!

Você mudou de .Text para .Value ?

O .Text só funciona no evento OnChange (Ao Alterar).

Mudei, o problema é que quando mudo pra value, ele tras o código do campo que também é um campo dinâmico e o Dlookup só acha se trouxer o texto do campo.

É ai que tá o problema, fiz um teste trocando

Código:

modcarg = DLookup("tipoVeículo", "modelocarros", "[Modelo] = '" & Me.modeloVeículo.Value & "' ")

Para

Código:

modcarg = DLookup("tipoVeículo", "modelocarros", "[Modelo] = 'focus' ")

e o modcarg achou o valor correto.

e tudo funcionou.

tive que colocar aspas simples nos outros Dlookups, conforme falou.

Ou seja, eu preciso do valor de text do controle, mas logo ao abrir o formulário, pois é pra buscar os preços e fazer a conta do valor devido logo ao abrir a tela.

Alguma sugestão?

Certo, mas para você usar o .Text numa variavel, tem de enviar o foco para o controle que tem o texto;

A Microsoft diz:
Para definir ou retornar propriedade de texto de um controle (.Text), o controle deve ter o foco, ou ocorre um erro.
Para mover o foco para um controle, você pode usar o método SetFocus ou ação IrParaControle.

Pode tentar;

Código:

    Me.modeloVeículo.SetFocus
    modcarg = Nz(DLookup("tipoVeículo", "modelocarros", "[Modelo] = '" & Me.modeloVeículo.Text & "'"),"")

Text Property Reference
http://msdn.microsoft.com/en-us/library/aa173453.aspx

Value Property Reference
http://msdn.microsoft.com/en-us/library/aa173476.aspx

Funcionou perfeitamente essa última opção!

Obrigado!

Fico feliz.

Obrigado pelo retorno o forum agradece.

Neste Natal ajude...