PERGUNTA AO USUARIO NA VENDA
                    Caros amigos !
Qual melhor opção para que na venda eu realize uma pergunta (selecionável) ao usuário sem ter que criar form ...
Ex: após informar o código do cliente eu pergunte se é para realizar a venda com preço no atacado ou no varejo.
                
            Qual melhor opção para que na venda eu realize uma pergunta (selecionável) ao usuário sem ter que criar form ...
Ex: após informar o código do cliente eu pergunte se é para realizar a venda com preço no atacado ou no varejo.
                    sem criar form? algo bem especifico não conheço mas você poderia fazer assim:
colocar um msgbox e cria a seguinte pergunta [Ô]Clique em sim para atacado ou não para varejo[Ô].
ficaria assim
                
            colocar um msgbox e cria a seguinte pergunta [Ô]Clique em sim para atacado ou não para varejo[Ô].
ficaria assim
Dim msg
msg = MsgBox([Ô][Ô]Clique em sim para atacado ou não para varejo[Ô],vbYesNo,[Ô]tipodevenda[Ô])
If msg = vbYes then
[ô]atacado
else
[ô]Varejo
End if
                    Será que o inputbox não daria certo ??? 
Alguém sabe me dizer e se tiver algum exemplo dele 
                
            Alguém sabe me dizer e se tiver algum exemplo dele
 
                
                    no inputbox você teria que fazer algo parecido, tipo digite A para atacado e V para varejo
                
            
                    Como uso o inputbox ?? ..quais os parametros
                
            
                    Apenas pergunta se [Ô]Venda com preço de atacado[Ô] porque se não for, é óbvio que será varejo.
If MsgBox([Ô]Venda com preço de atacado ?[Ô], vbQuestion + vbYesNo, [Ô][Ô]) = vbYes Then
[ô]Atacado
Else
[ô]Varejo
End If
            If MsgBox([Ô]Venda com preço de atacado ?[Ô], vbQuestion + vbYesNo, [Ô][Ô]) = vbYes Then
[ô]Atacado
Else
[ô]Varejo
End If
                    Dim Op as string
Op= Inputbox([Ô]Digita A para... Digita B para...[Ô])
if op=[Ô]A[Ô] then
end if
            Op= Inputbox([Ô]Digita A para... Digita B para...[Ô])
if op=[Ô]A[Ô] then
end if
                        Tópico encerrado , respostas não são mais permitidas
                    
                


