Duduh_Capixaba

Uma dúvida que sempre tive nos vários foruns que eu participo é: devo ou não devo responder meu tópico dizendo que meu problema foi resolvido? Em alguns foruns o pessoal acha bacana e até cobra dos usuários que eles postem se as sugestões e dicas deram certo ou não. Mas responder só pra dizer que está tudo resolvido sempre me pareceu uma forma de flood (não proposital, que fique claro). Eu por exemplo, sempre respondo quando consigo resolver minha dúvida. A pergunta é: isso é permitido ou não? Não achei nenhuma artigo dentro das regras que fale sobre o assunto, por isso a dúvida. Bem, pelo menos nunca recebi MP's de moderadores por isso, hehehe :)

Great!!! :) Cara, é por isso que eu amo este forum, hehe... Funcionou galera, brigadão a todos! ah sim, e obrigado a você também Graymalkin (resposta logo abaixo). esse código também funcionou!

Olá pessoal, seguinte... Estou começando em VB e já me deparei com um problema: campos nulos. Estou trabalhando com uma base de dados GDB gerenciada pelo Firebird. Tenho um programa simples que lê o código do cliente e mostra seu nome e telefone. O problema acontece quando tento listar um cliente que tem o campo telefone (ou qualquer outro que eu venha a acrescer depois) nulo. O VB me retorna a seguinte mensagem: "Run-time error '94': Invalid use of Null". Pois bem, eu consegui contornar a situação da seguinte forma: If IsNull(TbCli!FONE1) Then txtNome.Text = TbCli!NOME txtTelefone.Text = "" Else txtNome.Text = TbCli!NOME txtTelefone.Text = TbCli!FONE1 End If A minha preocupação é se eu tiver um Form exibindo VÁRIOS campos nulos. Eu vou ter que fazer condições IF para cada TextBox??? Acho que deve ter uma outra forma, tipo, construindo uma FUNCTION ou algo assim.

Resolvido pessoal! Quer dizer, mais ou menos...o jeito que eu encontrei é mais uma "gambiarra" do que uma solução definitiva. O que eu fiz: Como o código vbKey só funciona se você estiver com o objeto focado nele (isso só no Excel, no Access existe a configuração que eu escrevi acima), criei um botão que sempre recebe o foco após alguma ação, e escrevi todo o código vbKey neste botão. Ou seja, com esse botão sempre em foco, qualquer tecla que se encaixe no código irá funcionar. Aí é só esconder esse botão atrás de algum outro objeto pra que ele não fique sobrando dentro do Form. Foi o único jeito que encontrei, pois não encontrei uma configuração pro Form. Bem, é isso! Espero que ajude a outras pessoas tb :)

cara esse código é show!!! funciona perfeito, muito bom mesmo! dá só uma olhada nisso tb: Este exemplo executa my_Procedure daqui a 15 segundos. Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure" Este exemplo executa my_Procedure às 17:00. Application.OnTime TimeValue("17:00:00"), "my_Procedure" Este exemplo cancela a definição de OnTime do exemplo anterior. Application.OnTime EarliestTime:=TimeValue("17:00:00"), _ Procedure:="my_Procedure", Schedule:=False

Só pra ajudar: no Access estava acontecendo a mesma coisa, mas aí, pesquisando aqui no forum descobri que nas propriedades do Form existe uma configuração na categoria "Evento" chamada "KeyPreview (ou Visualizar teclas)" que se marcada como "True (Sim)" faz o teclado funcionar independente de o formulário ter ou não algum objeto inserido. O problema é que não encontrei essa propriedade no Excel :( alguém sabe qual configuração eu devo modificar no Form?

Olá pessoal, estou estreando por aqui. Tenho um Form contendo dois botões e o seguinte código: Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyCode Case vbKeyNumpad1 MsgBox "Você teclou o número 1" End Select End Sub O código serve pra quando eu apertar a tecla 1 do teclado numérico aparecer a mensagem "Você teclou o número 1". O problema é que esse código só funciona se o Form estiver vazio, pois quando os botões estão dentro dele automaticamente um deles é focado. Como faço para o código funcionar mesmo com os botões dentro do Form?

dentro do editor do VB, clique duas vezes em "EstaPasta_de_trabalho" e insira o seguinte código: Private Sub Workbook_Open() Nome_do_Form.Show End Sub espero ter ajudado :)