Pesquisar na Comunidade

Boa tarde! Estou calculando vários campos dentro de um relatório , utilizando consultas. Ocorre que para cada "caixa de texto" eu aponto para um resultado de pesquisa utilizando "Dsoma". Na sequencia eu utilizo estes campos par somar e subtrair. quando o a consulta não encontra resultado , ela retorna "vazio" , e quando somo "vazio" + 1 , o critério não corresponde por ser um campo de texto. Segue abaixo o exemplo: ***Nome : A1 ***Fonte de Controle: =DSoma("PREMIO";"TBL_Ano_Atual_Seguradora";"[SEGURADORA]='ALLIANZ SEGUROS S.A.'") RESULTADO: "vazio" ***Nome : M1 ***Fonte de Controle: =DSoma("PREMIO";"TBL_Ano_Atual_Seguradora";"[SEGURADORA]='ALLIANZ SEGUROS S.A.'") RESULTADO: "1" Campo Total : =([A1]-[M1]) RESULTADO: "Em branco." Gostaria de saber , como faço para retornar valor = 0 , dentro da caixa de texto, toda vez que o valor da consulta for "Vazio" . Obrigado!

Bom dia!Pessoal preciso de uma ajuda urgente!!Estou com problema nos meus códigos, preciso fazer um formulário do qual numa única TextBox seja possível atingir duas linhas. Então, segue a planilha fiz alguns exemplos e espero que esteja claro: Exemplo 1 e Exemplo 2Obrigado e tenham um ótimo dia!Lonx.

Estou trabalhando num formulário de cadastro onde aparece o número da certidão de nascimento. Como já devem saber, existe o antigo formato de certidões, com nome do cartório, termo, livro e folha (4 campos), e um formato novo de campo único, com 32 dígitos, onde estão implícitas todas essas informações. Coloquei no meu formulário apenas um campo de texto para colocar esses 32 dígitos da nova certidão, e apenas um checkbox chamado certidão antiga, que quando clicado (checado) irá fazer aparecer os quatro campos para preenchimento com os dados das certidões antigas. Pensei em colocar hidden no campo, e através de um if, mudar para text quando checado. Mesmo pra essa idéia simples, não consigo achar a sintaxe. Alguém tem uma solução pra esse problema?

Boa tarde! Sou novato e legio na área de programação e estou começando a programar em VBA por necessidade aqui na empresa (estou em busca de cursos para ter algum conhecimento nisso). Um amigo me ajudou a fazer uma planilha similar ao que eu preciso agora para prestadores de serviços de outro setor, mas foi bem mais fácil pois cada peça tinha apenas 2 tipos de valor. Como acabei me enrolando bastante com os códigos, gostaria de pedir ajuda de vocês... Estou tentando criar uma TextBox que seja preenchida automaticamente seguindo os critérios de 3 combobox anteriores a ela. Seria basicamente: Se na ComboBox1 estiver selecionado o Fornecedor1, na combobox2 a Cor Cromado e na combobox3, ao selecionar o produto1 na combobox 4 a TextBoxValor busca o valor do item na Coluna/Linha com preços referente ao fornecedor, produto e cor determinado. Eu travei ao escolher a melhor forma de fazer com que o VBA envie isso pra Plan "Banco de Dados" (e demais destinos)... Fiz um esboço copiando a planilha anterior e anexei aqui no tópico (Link via Mega). Caso alguém tenha uma idéia para facilitar o uso da mesma, estou aberto a sugestões. (Estou preocupado no momento com o Envio de Lotes, pois no recebimento terei um problema ainda maior, uma vez que os Lotes não vem como saem... Os fornecedores misturam lote 1 com lote 2, 3, 4, 5; trazendo cada lote de forma parcial e misturado... Então resolvendo essa parte ainda vou procurar uma solução para isso.) Segue cópia do arquivo: https://mega.nz/#!2O4gASzT

Ola Gostaria de saber como colocar um filtro de busca para nome e data e data até. Que os tres textbox se relacionassem nesse filtro.

boa tarde caros colegas, estou aprendendo a programar pois estou convertendo um sistema antigamente em access para visual basic porém estou com dificuldades (que pra vocês deve ser coisa basica) em popular as textbox com os registros específicos das tabelas, eu consegui fazer funcionar porém estou achando que demora para abrir o formulario, alguém poderia me dar uma dica para ficar melhor? Realmente tem bastante informação nas tabelas mas creio que dê para optimizar (corrijam se eu estiver errado ou se tiver algo melhor a ser feito) meu codigo ta da seguinte forma. Tenho um modulo que faz com a conexão do banco de dados que está assim: Imports System.Data.OleDb Module mdlAcesso Public Function getConnection() As OleDbConnection Dim sql As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Settings.conexaoBanco Return New OleDbConnection(sql) End Function End Module E no formulario está assim: Imports System.Data.OleDb Public Class frmProcesso Public Sub PCarregaDados() Using con As OleDbConnection = getConnection() Try con.Open() Dim strPasta As String strPasta = InputBox("Digite o numero da pasta") Dim sql As String = "Select * from Processos WHERE pasta LIKE '%" & strPasta & "%'" Dim cmd As New OleDbCommand(sql, con) Dim da As New OleDbDataAdapter(cmd) Dim dt As New DataTable da.Fill(dt) txtpasta.Text = dt.Rows(0)("Pasta").ToString txtprocesso.Text = dt.Rows(0)("Processo").ToString cboobjacao.Text = dt.Rows(0)("Objeto da Ação").ToString txtsituacao.Text = dt.Rows(0)("Situação do Processo").ToString txttipoacao.Text = dt.Rows(0)("Ação").ToString txtvara.Text = dt.Rows(0)("Vara").ToString txtforum.Text = dt.Rows(0)("Forum").ToString txtarquiv.Text = dt.Rows(0)("DigitalizacaoFisica").ToString txtandamento.Text = dt.Rows(0)("Andamento").ToString txtresumoprocesso.Text = dt.Rows(0)("Resumo Processo").ToString Catch ex As Exception MsgBox("Ocorreu um erro ao carregar os dados", MsgBoxStyle.Critical) End Try End Using End Sub Private Sub frmProcesso_Load(sender As Object, e As EventArgs) Handles MyBase.Load PCarregaDados() End Sub End Class

Bom eu preciso pegar os dados de duas text box e gravar em um arquivo, é o sistema de login de um jogo, porem, o meu código não pega os dados e grava a mesma coisa que esta escrita no code. Imports System Imports System.IO Imports System.Text Public Class Form0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim path As String = "D:\MyTest.bat" ' Create or overwrite the file. Dim fs As FileStream = File.Create(path) ' Add text to the file. Dim info As Byte() = New UTF8Encoding(True).GetBytes("MixMaster.exe 3.855000 25.41.241.8 22005 0 TextBox1.Text TextBox2.Text 1 AURORA_BRA") fs.Write(info, 0, info.Length) fs.Close() Form1.Show() Me.Hide() End Sub End Class Esse é o código, ao invés de sair com os dados da text box, ele resulta em: MixMaster.exe 3.855000 25.41.241.8 22005 0 TextBox1.Text TextBox2.Text 1 AURORA_BRA ao invés de: MixMaster.exe 3.855000 25.41.241.8 22005 0 LOGIN-DIGITADO-NA-TEXT-BOX SENHA-DIGITA-NA-TEXT-BOX 1 AURORA_BRA Obrigado agradeço desde já <3

Olá, pessoas... Gostaria de uma ajudinha com um TexBox no CorelDRAW... mais precisamente eu gostaria de atualizar automaticamente uma TextBox a partir de uma ListBox, ou seja, na ListBox existem opções que precisam de valores distintos entre si para ser exibido no TextBox quando for selecionado... Caso alguém puder auxiliar, eu agradeço de antemão...

Boa tarde pessoal, Estou encontrando dificuldade em formatar uma textbox ao digitar, a ideia principal seria a seguinte: Digamos que eu vá incluir o seguinte valor 15.482,45. sem digitar nada na textbox gostaria de ter o valor inicial de ",00" e conforme incluir os valor ficariam assim... 1,00 15,00 154,00 1.548,00 15.482,00 e somente após clicar na vírgula ele preencher os valores após a ela... 15.482,40 15.482,45 Alguém tem alguma dica de como reproduzir esse exemplo?

Pessoal tenho uma dúvida. Estou criando uma agenda e gostaria que minhas duas textbox que recebe a hora digitada pelo usuário se autoformate durante a imputação de dados. Ex: quando o usuário digitar do 3 até o 9 ele acrescente antes o 0 e se for o 1 ou 2 não e depois do 2 caractere ele acrescente os : para separar hora do minuto. Caso o minuto for maior q 5 ele jogue automático o zero também. Alguém me da uma luz ae? Tentei usar case no evento _KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) mas infelizmente não deu certo. Tentei com o evento change mas não deu certo. Como sou leito no VBA tenho certeza q é meu código q está errado. Alguém sabe como resolver isso? Segue o código (incompleto) q não funcionou adequadamente: Private Sub txtInicio_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 51 To 57 ' BackSpace(8)) e numericos (51 até 57) do 3 até o 9 If Len(txtInicio) = 1 Then txtInicio.Text = "0" & txtInicio.Text End If End Select If Len(txtInicio) = 2 Then txtInicio = txtInicio & ":" End If Select Case KeyAscii Case 48 To 50 ' BackSpace 0, 1 e 2 If Len(txtInicio) = 1 Then txtInicio.Text = txtInicio.Text End If End Select If Len(txtInicio) = 2 Then txtInicio = txtInicio + ":" End If End Sub

Bom dia :) Estou com uma dúvida com a macro que estou fazendo eu quero mudar de texbox usando as setas. Por exemplo, se eu estiver no campo A.R e apertar a seta para cima, tem que ir para N.R. Eu sei que é usando o evento Change, mas não sei como fazer :P

Boa tarde senhores, sou iniciante no mundo VBA .No meu useform eu tenho várias TextBox e gostaria de realizar operações entre elas, vou dar um exemplo de como eu uso uma função no excel e não estou conseguindo aplicar em VBA.SE(F10>1,05*H4;(F10-H4);0)Coloquei os valores das células para ficar mais fácil de entender.Criei este código para o VBA só que não está dando certo.If TextBox69.Value > (1.05 * TextBox71.Value) ThenTextBox68.Value = (TextBox69.Value - TextBox71.Value)ElseTextBox68.value = 0End IfTambém gostaria de saber se consigo preencher uma TextBox automaticamente com o resultado dessa operação, sem precisar utilizar um botão.Não sei se fui claro o suficiente em minhas dúvidas.Obrigado desde já.

Digamos que eu tenha uma TextBox com o valor 12345,67 Eu preciso remover o ultimo numero de modo que fique na TextBox apenas 1234,56 Como faço isso? PS: Já fiz um outro tópico relacionado ao mesmo problema mas com outra duvida, e nele está o meu código se alguém quiser visualizar a outra duvida o link é esse: https://www.scriptbrasil.com.br/forum/topic/179649-backspace-so-deleta-o-numero-temporariamenteele-reaparece-caso-outro-numero-seja-inserido/

Galera estou fazendo um programa para controle de gastos, e ele esta seguindo uma rotina estranha e que eu não consigo resolver. O Problema é o seguinte: Existe uma TextBox na qual o usuário insere o valor do gasto/recebimento, está tudo funcionando direitinho até o momento em que o usuário deleta um numero dessa TextBox. Ao deletar, na tela do usuário o numero desaparece, mas quando ele insere um novo numero, o numero que foi deletado reaparece... Acredito que o problema esteja no modo que utilizei para colocar a ","(virgula) na segunda casa do numero, se souberem outro jeito de colocar a virgula ou então uma forma para fazer o backspace deletar de verdade por favor me ajude. Código Relacionado ao Problema: Variáveis Pré Declaradas: Dim LimparTextBoxValor As Boolean = True Dim LimparTextBoxDescrição As Boolean = True Dim LimparTextBoxDetalhes As Boolean = True Dim valorAtual As Double = 0 Dim ValorDepoisDoBackspace As Double = 0 Dim CursorNoFimDaLinhaAposPrimeiroClick As Boolean = True Private Sub TrataCaractereRecebido(sender As Object, ByVal UltimaTeclaApertada As System.Windows.Forms.KeyPressEventArgs) Handles ValorTextBox.KeyPress Dim caractereApertado As Char = UltimaTeclaApertada.KeyChar If (Char.IsDigit(caractereApertado)) Then AtualizarValor(caractereApertado) UltimaTeclaApertada.Handled = True ElseIf Char.IsControl(caractereApertado) Then Else MsgBox("Digite Apenas Numeros Por Favor") UltimaTeclaApertada.Handled = True End If ColocaCursorNaUltimaPosicao(ValorTextBox) End Sub Private Sub AtualizarValor(caractereDoDigito As Char) Dim valorDoDigito As Double = Convert.ToDouble(caractereDoDigito.ToString) valorAtual = valorAtual * 10 + valorDoDigito MostraNumeroNaTextBoxEmReais(valorAtual) 'chamada da função passando o parametro valorAtual End Sub Private Sub MostraNumeroNaTextBoxEmReais(numero As Double) ' declaração da função ValorTextBox.Clear() ValorTextBox.Text = " R$ " + ColocaDuasCasasDecimais(numero.ToString) End Sub Private Function ColocaDuasCasasDecimais(numeroEscrito As String) Dim numeroEscritoComDuasCasasDecimais As String = "" If numeroEscrito.Length = 1 Then numeroEscrito = "00" + numeroEscrito ElseIf numeroEscrito.Length = 2 Then numeroEscrito = "0" + numeroEscrito End If Dim parteDecimal As String = numeroEscrito.Substring(numeroEscrito.Length - 2, 2) Dim ParteDasCentenas As String = numeroEscrito.Substring(0, numeroEscrito.Length - 2) numeroEscritoComDuasCasasDecimais = ParteDasCentenas + "," + parteDecimal Return numeroEscritoComDuasCasasDecimais End Function

Boa tarde galerinha! É o seguinte estou utilizando um código na textbox neste formato: Private Sub txt_id_AfterUpdate() Dim Linha As Long Dim id As Long 'mudar para string se o id tiver letras ou símbolos If Val(Me.txt_id) = 0 Then Exit Sub End If Plan1.Activate Linha = 2 id = txt_id Do Until Cells(Linha, 1) = "" 'vai executar o laço até encontrar uma célula vazia 'Condição para localizar o registro If Cells(Linha, 1) = id Then 'se encontrar o valor registro na célula pesquisada opt_funcionario = Cells(Linha, 2) opt_exfuncionario = Cells(Linha, 3) opt_ativo = Cells(Linha, 4) opt_inativo = Cells(Linha, 5) txt_razao = Cells(Linha, 6) txt_endereço1 = Cells(Linha, 7) txt_bairro01 = Cells(Linha, 8) txt_complemento = Cells(Linha, 9) cmb_cidade01 = Cells(Linha, 10) txt_cep01 = Cells(Linha, 11) cmb_uf01 = Cells(Linha, 12) Exit Sub 'interrompe o código quando encontrar o código e preencher os dados End If Linha = Linha + 1 Loop End Sub Eu preciso que esse campo aceite somente números sendo que eu não posso mudar o private pois o id digitado nessa textbox ao pressionar enter ele irá busca os dados do usuário na planilha e preencher os campos corretos. Alguém pode me ajudar?