Amigos....estou com um problema....deve ser coisa boba...mas.....

 

na compilação dá a mensagem de erro: Variable not defined

 

a linha de código é a seguinte:

 

Private Function Pit_0019F9() As Double  ' {* Apelidos *} 699

Dim Sgcomiss As Double

If Pedido_vendas![Percentual Pedido] >= Comissões![Comissãode1] And Pedido_vendas![Percentual Pedido] <= Comissões![comissãoate1] Then
   Sgcomiss = Pedido_vendas![Valor total pvendas] * Comissões![Comissão1] / 100
ElseIf Pedido_vendas![Percentual Pedido] >= Comissões![comissãode2] And Pedido_vendas![Percentual Pedido] <= Comissões![comissãoate2] Then
       Sgcomiss = Pedido_vendas![Valor total pvendas] * Comissões![Comissão2] / 100

End If

 Pit_0019F9 = Sgcomiss  'Deve retornar um número

End Function

 

Se alguem puder me ajudar...

Danderson,

 

quando aparece esse erro, o VB aponta para a variavel com problema, no caso seleciona ela...

mas ohando teu codigo a variavel deve ser essa:  Pit_0019F9 = Sgcomiss  .

Bom colega no inicio do seu código deve ter um Option Explict

 

Então se você remover o mesmo já vai resolver, ou senão decklare todas as variaveis do programa, como o josé ari disse basta então você declarar o seguinte, no general do form