Anderson, sua sugestão é valida, só tenho algumas ressalvas :
Eliminar o Click no Botão, criar uma Variável GLOBAL, e alterar o Metodo HIDE :
Explicando:
Combobox - "boxdia"
Eu usaria a Instrução Select Case no Evento Change do Combobox - "boxdia" da seguinte forma :
Dependendo da rotina, eu prefiro usar Select Case do que os Ifs. . .Else
Private Sub boxdia_Change()
sBoxDia = boxdia.Value
Select Case sBoxDia
Case "Ensolarado"
txtpegar.Value = "Óculos de Sol"
Case "Chuvoso"
txtpegar.Value = "Guarda-Chuva"
Case "Frio"
txtpegar.Value = "Casaco"
End Select
End Sub
Variável GLOBAL
Em um Módulo separado eu crio a Variável sBoxDia como Global, ou seja, o valor armazenado pode ser usada em qualquer rotina, e ficará armazenado enquanto não zerarmos a mesma com uma instrução Nothing, então no Modulo coloque:
Global sBoxDia
Metodo HIDE
Você utilizou este Metodo, ou seja, os valores digitados nos campos de um formulário, permanecerão, pelo fato de não termos Fechado o Formulário e sim somente o escondemos, então com a criação da Variavel Global eu posso utilizar a Instrução Unload, descarregando o Formulário, mas a variavel continuara armazenada, não sei se fui claro nesta questão, então repito abaixo o que escrevi no Tópico :"ir de um formulário para o outro" (viewtopic.php?f=10&t=2082&p=8740&hilit=unload#p8740) :
A diferença entre HIDE e UNLOAD :
O comando HIDE sómente oculta o formulário, e não o remove da memória, tornando sua reexibição mais rápida, e como não descarrega da memória, o mesmo mantem os dados carregados na memória, e dependendo do tanto de memoria que irá ocupar torna o aplicativo mais lento e as vezes dando erro de estouro de pilha de memoria, ao contrário do UNLOAD que fecha o formulário e descarrega da memória, então o ideal é descarrega-los usando o UNLOAD.
Uma outra opção, sem ter de fazer tudo isto acima, seria jogar para uma celula o último valor Selecionado, e carrega-lo novamente quando se abrir o formulário.
Espero não ter complicado demais, qualquer duvida retornem.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 27/09/2011 9:15 pm