Edson_csi

OK! Vou tentar e posto aqui. Valeu!

Private Sub mkeDataJ_LostFocus() mkeDataV.Text = DateAdd("d", 30, Data) End Sub

Quando eu joguei a data: 07/03/2008 ele retornou o valor: 29/11/900_

Boa noite! Tenho um formulário onde tenho 2 campos: 1 campo DataAtual e 1 campo DataVencimento. Gostaria de saber a fórmula para que quando eu digitasse a Data Atual ele me retornasse uma data + 30 dias no campo Data Vencimento. Não sei nem por onde começo! Desde já agradeço a atenção!

Obrigado! Vou tentar aqui. Valeu!!!

Olá! Tenho um form com uma lista de produtos em uma ComboBox. Gostaria de selecionar as opções dessa ComboBox, mas sem poder digitar nela. Acontece que se eu coloco a propriedade Locked como True, aparece a lista de opções mas não consigo selecionar nada. E se eu coloco a propriedade Locked como False, a caixa fica sem bloqueio para digitar. Alguém sabem como posso resolver?

Olá Graymalkin! Estou começando a trabalhar com VB tem pouco tempo, então fiquei meio enrolado na sua dica! Tem como você explicar onde eu uso esse código? Desde já agradeço!

Olá pessoal! Consegui achar uma dica em outro fórum que diz o seguinte: O VB tem um limite de controles por form. Esse limite é dinâmico, depende do gasto de memória de cada componente. Um jeito simples de evitar esse erro, é criar um array do controle que você deseja, pois um array contendo 50 controles, só vai contar como 1. Se não souber como faz isso, crie um label com nome lblLabel e a propriedade index = 0. Todos os label que você for adicionando no form, use o nome lblLabel que o VB vai ter perguntar se deseja criar um Array desse controle e já vai colocando os Index automaticamente. Não testei ainda, mas vou ver depois! Espero que ajude!

Olá pessoal! Estou montando um programa, e de repente ao tentar inserir mais um Label no meu form deu a seguinte mensagem de erro: Reached limit: cannot create any more controls for this form. Pelo que pesquisei, pareve haver um limite de ítens que podem ser colocados no form. É isso mesmo? Se for, há alguma maneira de burlar isso?

Olá pessoal! Tenho a seguinte fórmula para somar e campos e mostrar o resultado no 4. Text4.Text = CSng(Text1.Text) + CSng(Text2.Text) + CSng(Text3.Text) Gostaria de saber qual a maneira de um dos campos, ou aceitar valor em branco, ou então se não digitar nada ele soma com 0. Porque se eu nçao digitar nada em um dos campos e mandar somar, ele gera um erro Run-Time error "13".

Boa noite pessoal! Tenho uma tabela com alguns campos que ao serem inseridos devem aparecer no DataGrid. Estava tudo occorendo perfeitamente bem, só que de uma hora pra outra, agora o DataGrid salva os o novo registro, mas só aparece os dados novos na DataGrid se eu fechar o formulário e abrí-lo novamente! Private Sub cmdSalvar_Click() On Error GoTo mensagem DadosRetorno.Recordset.Update DadosRetorno.Refresh Exit Sub mensagem: MsgBox "Você tentou Inserir um nome já existente. Digite um novo nome." End Sub

Ok Macêdo! Deu certo! Era isso mesmo que eu qria. Valeu!!!

Olá Macedo! Quero multiplicar o text 1 com o text2. O resultado do text1 e text2 somar com o text3. Então o resultado deste, multiplicar pelo text4.

Olá pessoal! Estou tentando montar uma fórmula aqui mais estou precisando de uma ajuda! Tenho um formulário com 5 caicas de texto usando uma fórmula só que está ocorrendo um erro. O Text4.Text, tem que multiplicar o resultado do Text1, Text2, Text3 Código: Text5.Text = (CSng(Text1.Text) * CSng(Text2.Text)) + (CSng(Text3.Text) * (CSng(Text4.Text))

Bom dia! Tenho um formulário com um campo data (MakedBox), e um campo idade (TextBox). Gostaria de saber se existe uma fórmula para q ao seja inserido a data de nascimento, seja calculado a idade automático. Obrigado!

Olá! Tenho um formulario de cadastro, onde eu qro q só possa ser inserido apenas um registro com o mesmo nome. Já fui no banco de dados access e alterei o campo para chave primária e coloquei o a propriedade do campo como Duplicação não autorizada. Feito isso quando tento gravar dois registros com o mesmo nome gera o erro, mas grava assim mesmo o nome 2 vezes.

Olá! Tenho um formulário onde está ocorrendo o problema de inserir registros em branco. EX: Quando clico no botão incluir e depois em salvar mesmo sem inserir nada em nenhum campo, ele grava o registro assim mesmo, só que em branco. Fica um espasso entre os registros. Teria como bloquear isso?

Maravilha Kuroi! Valeu mesmo! Deu super certo. Brigadão!

Boa tarde! Tentei esse código mas não funcionou ainda! Mesmo assim veleu!

lá! Tenho uma formulário de cadastro que está acontecendo o seguinte erro. Quando aciono o botão "Consultar", ele só busca os registros se eu digitar os nomes completos. Teria como fazer uma pesquisa ou só pelo nome ou pelo sobrenome? Desde já agradeço! Private Sub cmdConsultar_Click() Dim ValorPesquisa As String ValorPesquisa = InputBox("Digite o nome do cliente que você quer encontrar:") DadosDadosP.Recordset.FindFirst "NomeC = '" & ValorPesquisa & "'" If DadosDadosP.Recordset.NoMatch = True Then MsgBox "Este registro não foi encontrado." End If End Sub

OK! Vou tentar e posto aqui! Valeu!

Ok Decio. Vou tentar aqui e posto se deu certo. Valeu!