Pesquisar na Comunidade

Boa tarde pessoal, Matheus aqui, iniciante em programação VBA. Tenho uma planilha que já venho fazendo melhorias a algum tempo e preciso da ajuda de vocês... Essa planilha é Relatório Diário de Obras, onde monitoro diariamente os serviços em execução. Inicialmente tenho 2 abas, sendo "Fechamento Mensal" e "01" e os dados são preenchidos a partir da aba "01" que equivale ao primeiro dia do mês. Há um botão de "INSERIR NOVO RDO", que executa a macro "Novo_RDO" que copia a aba ativa, apaga os dados preenchidos equivalentes ao dia e renomeia para "02", porém não estou conseguindo inserir, nessa mesma macro, o comando para excluir as imagens fotográficas para que possam ser inseridas novas imagens referente ao dia "02" sem excluir o objeto de imagem, já que tenho uma outra macro para inserir as novas fotos e cada imagem tem seu botão de inserir. (print anexo) Abaixo a macro que tenho, e nela preciso inserir os códigos para exclusão das imagens Image3 até Image12 da aba "02". Sub Novo_RDO() Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count) [BP5] = ([BP5] + 1) [CM2] = Format([CM2] + 1, "0#") ActiveSheet.Name = [CM2] Range("AJ19:AK23").ClearContents Range("BP16:BZ19").ClearContents Range("M32:W48").ClearContents Range("AW32:BA61").ClearContents Range("BV32:CA61").ClearContents Range("C64:CA80").ClearContents Range("C2").Activate INSERIR AQUI OS CÓDIGOS PARA EXCLSÃO DAS FOTOS, FICANDO SEM IMAGEM End Sub Poderiam me ajudar? Obrigado

Olá, Boa Tarde!!! Estou desenvolvendo um sistema onde eu tenho a tabela "Bens" que nela estão a colunas (Código, Data, Descrição, Centro de Custo, Órgão, Responsável, etc...) e também eu tenho a tabela "Transferências" onde se encontram as colunas (Código, Data, Órgão Atual, Centro de Custo Atual, Responsável Atual, Órgão Futuro, Centro de Custo Futuro, Responsável Futuro, etc...) e gostaria que ao colocar o código de determinado bem que está registrado na tabela "Bens" automaticamente o sistema puxasse os seguintes dados (Órgão, Centro de Custo e Responsável) que estão registrados na tabela "Bens".

Estou com um sistema de contole de estoque quase finalizado. Porém, me falta adicionar uma função onde ao entrar no sistema, o operador seja notificado caso algum produto esteja com seu estoque em 0. Exemplo: Legenda: qntde é a coluna onde está armazenada a quantidade de produtos em estoque. E o dgvprodutos nada mais é do que o meu DataGridView onde é importado meu banco de dados. if dgvprodutos.rows.cells("qntde").value = 0 then messagebox.show("Há produtos sem estoque! Verifique-os o quanto antes e solicite o devido reabastecimento.", titulo, ok, exclamation) end if O código acima está totalmente otimizado. Ele foi feito apenas para ter uma referência do que eu preciso. Alguém para me auxiliar?

Olá, Bom Dia! Sou novo por aqui mas entendo uma boa parte do VB. Queria que vocês me ajudassem nessa minha duvida. Estou desenvolvendo um Sistema de Controle Patrimonial no Visual Studio 2010 Ultimate em linguagem Visual Basic que é a mais básica e por isso entendo melhor. E estou tendo problemas na hora de gerar os relatórios de todos os bens patrimoniais. Pois no meu sistema à bens que foram dados baixa (bens que não estão disponíveis para uso devido a quebras ou por serem velhos.) e também bens que foram emprestados à outras organizações ou Centros de Custos. Por isso queria saber como fazer para quando eu for gerar um relatório geral, não aparecer nele os bens que não estão mais disponíveis (baixas, doações e emprestados), e só aparecer os que estão ativos ainda, sabe. Se poderem me ajudar eu agradeço! E se tiver alguém que entende bem de Visual Basic ou Visual Studio e poder me ajudar, favor entre em contato, pois como sou novo nessa linguagem eu não entendo muito. Obrigado e Até mais!

OI, eu tenho um site, e quero rodar ele no programa que estou fazendo no visual, quero que o site fique 100% na farm. Eu não quero chamar o site com um botão, quero que quando entre na form já carregar o site. Sou iniciante.

Olá pessoa eu estou tentando fazer um programa que envie mensagens definidas na textbox a cada 5 segundo. (Um auto digitador) porém eu só consigo fazer com que ele digite a mensagem escrita na TextBox1 e não digita a mensagem da TextBox2. Eu queria fazer com que após digitar o texto da TextBox1, ele aguardasse 5 segundo e digitasse o codigo da TextBox2. Outra coisa também é que ele está só colando o texto, eu queria fazer com que simulasse uma digitação real. Sou novato, passei o dia tentando e não consegui. se alguém pode me ajudar segue o codigo abaixo: Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If Timer2.Interval = True Then Timer1.Stop() End If Select Case TextBox1.Text() Case TextBox1.Text SendKeys.Send(TextBox1.Text + "{Enter}") End Select End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Interval = 5000 'cinco segundos de intervalo Timer1.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Stop() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If Timer1.Interval = True Then Timer2.Stop() End If End Sub End Class

Estamos desenvolvendo um projeto mobile com c++, inovação que necessita de ajuda especializada. Em fato iremos transpor planilhas Excel VBA macro para alocar em modulo c++ protegido, com vistas a ceder informações com melhor controle do gestor, mais facilidade de acesso aos usuários funções incluirão mudar a linguagem dos cálculos excel para c++, implantação de funcionalidades web em servidor, transposição vba para c++ e criação de bd cloud criar plataforma com registro mac para acesso controlado dos usuários disponibilizar acessos a mobile e computadores depois desse serviço poderão existir outros, uma vez que temos muitas planilhas Excel para serem adaptadas ao novo molde. (temos uma escola e pretendemos colocar as informações didáticas com mais facilidade a nossos alunos) (por favor me retorne com alguns exemplos de serviços que tenha realizado). Queremos iniciar o projeto imediatamente. obrigado Felipe Klein CONTATO 11 95916 7597 W APP

ola, estou tentando criar um navegador simplesmente básico porem eficaz e gostaria de saber como faço↓ como faço um botão para acelerar o navegador? por exemplo acelerar o tempo do jogo !

Precisamos de desenvolvedores para elaboração de 4 softwares: - 1 software loja virtual (simples) para a venda de licenças dos outros 3 softwares (abaixo) - 3 softwares de cálculo estatístico (NÃO É NECESSARIO CONHECER ESTATISTICA!! todo o conhecimento será transmitido por especialistas) para serem vendidos em forma de licença por períodos (controlado pelas informações da loja virtual) Requisitos: 1. os softwares a serem desenvolvidos deverão ser elaborados em visual c# ou visual basic 2. preferencialmente, os programadores deverão ser das cidades: Pedreira, Jaguariúna, Amparo, Campinas, São Carlos ou em cidades próximas. 3. Freelances ou empresas. Contato pode ser realizado por aqui ou pelo e-mail vitorusp@uol.com.br

Boa tarde caros, estou com um problema tenho uma aplicação que roda em Visual Basic, estou utilizando o visual studio 2013 para a construção e o SQL como banco de dados, a questão é a seguinte tenho uma tabela de produtos com os seguintes campos ProdutoCodigo int not null identity primary key, ProdutoCodBarras varchar ProdutoDescri varchar ProdutoValor Decimal ProdutoQTD int ProdutoDataCad date Marca_cod int chave estrangeira, Marca_nome varchar. o Que acontece é o seguinte cadastro um produto beleza, quando vou cadastrar o segundo, a primeira linha/primeiro registro fica em branco e assim todas as minhas consultas se perdem.

Não estou conseguindo salvar mais de uma linha do datagrid no banco de dados. segue imagem a baixo e configuração Public Class frmVendasPedidos Inherits System.Windows.Forms.Form 'Definir o objeto bd da classe JcmSoftDataContext Dim bd As New dcVRDataContext 'Definir objeto da clase DetalhesPedidos Dim oDetalhesPedidos As DetalhesPedidos Dim nomeProduto As String Dim codProduto As String Dim QuantidadeUni As Integer Dim quantidadeCX As Integer Dim precoUniProduto As Double Dim precoCx As Double Dim codigoCliente As String Dim estoqueProduto As Integer Dim Prazo1 As Integer Dim Prazo2 As Integer Dim Prazo3 As Integer Dim Prazo4 As Integer Dim data As Date Dim precoTotal As Double 'Definir una LISTA de Objetos DetalhesPedidos Dim ArrDetalhesPedidos As New List(Of DetalhesPedidos) Private Sub btnSalvar_Click(sender As Object, e As EventArgs) Handles btnSalvar.Click 'Vamos usar o mapeamento feito pelo LINQ 'para efetivar as atualizações nas bases de dados Try 'A expressão lambda a seguir devolve um objeto Cliente 'Estamos usando o codigo do cliente para identificar unicamento o cliente Dim Cli As tblCliente = bd.tblClientes.Single(Function(p) p.IdCliente = Me.txtCodigoCliente.Text) '------------------------------------------------- 'Cria um novo objeto Pedido '------------------------------------------------- Dim oPedido As New tblPedido oPedido.Data = txtData.Text oPedido.IdCliente = Cli.IdCliente oPedido.tblCliente = Cli oPedido.NomeCliente = Cli.Cliente oPedido.NomeProduto = nomeProduto oPedido.QuantidadeUni = oDetalhesPedidos.QuantidadeUni oPedido.QuantidadeCX = oDetalhesPedidos.QuantidadeCX oPedido.PrecoUni = oDetalhesPedidos.PrecoUni oPedido.PrecoCx = oDetalhesPedidos.PrecoCX oPedido.Prazo1 = oDetalhesPedidos.Prazo1 oPedido.Prazo2 = oDetalhesPedidos.Prazo2 oPedido.Prazo3 = oDetalhesPedidos.Prazo3 oPedido.Prazo4 = oDetalhesPedidos.Prazo4 oPedido.PrecoTotal = oDetalhesPedidos.Subtotal '-------------------------------------------------- 'Obtendo os detalhes do pedido 'realizo a geração dos objetos Pedido 'vou percorrer o array dos detalhes do pedido '---------------------------------------------------- For Each o As DetalhesPedidos In ArrDetalhesPedidos 'Instancio um objeto Produto selecionando pelo codigo do produto Dim prod As tblProduto = bd.tblProdutos.Single(Function(a) a.IdProduto = o.CodProduto.ToString()) 'Cria um novo detalhe do pedido Dim detPedido As New tblProduto detPedido.Produto = prod.Produto detPedido.IdProduto = prod.IdProduto detPedido.Quantidade = o.QuantidadeUni '-altera a quantidade de estoque do produto prod.Estoque = prod.Estoque - o.QuantidadeUni Next '------------------------------------------------------ 'Aqui atualizo a base de dados bd.SubmitChanges() MsgBox("Venda registrada com sucesso...") Catch ex As Exception MsgBox(ex.Message) Finally 'chama as rotinas para limpar clientes e produtos e vendas limpar_cliente() limpar_produto() limpar_venda() Me.calcular_total() End Try End Sub imagens anexadas

Boa noite estou tentando fazer um programa que localiza uma determinada palavra em um bloco de notas... Ate ai tudo bem, mas eu não consegui fazer repetir para as outras ocorrência Private Sub txtDragDrop(sender As Object, e As DragEventArgs) Handles TextBox1.DragDrop '-----abre arquivo Dim feed As String() = CType(e.Data.GetData(DataFormats.FileDrop), String()) For Each nome As String In feed TextBox1.Text = nome 'abrir Caminho.Text = TextBox1.Text Dim arquivo As String = Caminho.Text IO.File.Exists(arquivo) TextBox2.Text = IO.File.ReadAllText(arquivo) Dim returnValue As Boolean = False '-----subistitui G01 por G00 Do While TextBox2.Text.Contains("F12700.") TextBox4.Text = File.ReadAllLines(arquivo).FirstOrDefault(Function(x) x.Contains("F12700.")) TextBox2.Text.Contains(TextBox4.Text) TextBox5.Text = TextBox4.Text TextBox4.Text = Replace(TextBox4.Text, "F12700", "(F)") TextBox4.Text = Replace(TextBox4.Text, "G01", "G00") TextBox2.Text = Replace(TextBox2.Text, TextBox5.Text, TextBox4.Text) Loop Next Exemplo % O900(..Haas....16596-3023-LD2-3...) G17 G21 G40 G54 G80 G90 G00 M00 ( Operação : CAVITY_MILL ) M84 M08 T02 M06 (FRTP08R0.5) S4000 M03 G43 G00 H02 Z53.4 G01 G90 X0.0 Y10.857 F12700. '1º linha a ser substituída G00 Z44.25 G01 Z43.25 D02 F800. G01 X0.0 Y10.997 F12700. '2º linha a ser substituída Localizar o F12700. e substituir o G01 por G00 e retirar o F12700. do final do texto % O900(..Haas....16596-3023-LD2-3...) G17 G21 G40 G54 G80 G90 G00 M00 ( Operação : CAVITY_MILL ) M84 M08 T02 M06 (FRTP08R0.5) S4000 M03 G43 G00 H02 Z53.4 G00 G90 X0.0 Y10.857 F12700. ´nova linha alterando o G01 por G00 e retirando o F12700. G00 Z44.25 G01 Z43.25 D02 F800. G00 X0.0 Y10.997 F12700. ´nova linha alterando o G01 por G00 e retirando o F12700.

Estava tentando converter um valor de TextBox para String e consegui com o seguinte código: String Nome Nome = jnlMenu_Principal.tbxNome_do_Produto_Adicionar_Produto.ToString '(jnlMenu_Principal.tbxNome_do_Produto_Adicionar_Produto) é o nome da TextBox porém quando fui ver na lista ele adicionou o nome mas assim: Como se estivesse com o endereço da TextBox queria tirar isso mas não faço a minima ideia de como se alguém souber oque se pode fazer agradeço desde já!

O formulário fez referência a si próprio durante a construção a partir de uma instância padrão, que levou a recursão infinita. Dentro do construtor de Form, faça referência ao formulário usando 'Me'. Estava desenvolvendo uma função para redimensionar automaticamente(Como essa): jnlMenu_Principal.gbxAcoes.Height = jnlMenu_Principal.Height - 62 mas por ser muito extensa decide criar um modulo (Criei um modulo para poder acessa-la de qualquer classe) para funções e implementa-la lá porem ao compilar para testar a função ele da um erro (Citado acima) já procurei como resolver mas não achei nem entendi o porque de ter dado esse erro! Quem puder ajudar agradeço desde já!

Olá, estou com um problema no uso do WebBrowser no Visual Studio: tenho uma aplicação onde eu uso o GetElementById para lançar dados inseridos nos TextBoxes do Form para a página do Facebook, onde os elementos são identificado pelo seu ID. Aqui está o meu problema: eu não consigo achar o ID daquela caixa de texto do Facebook onde se faz as postagens (a que diz "No que você está pensando agora?"). Já "varri" o código-fonte inteiro do Facebook e tentei usar o GetElementById em tudo que é ID da página e ABSOLUTAMENTE NENHUM ID que eu tentei retorna naquela caixa de texto. Desde já, muito obrigado

boa Tarde pessoal, quero fazer uns cálculos aqui usando VB com excel, por exemplo: tenho os valores nas colunas A, B e C, e quero um resultado na coluna D = A+B-C, sendo que vai da linha 2 ate 20. mas preciso que na hora que eu alterar qualquer valor dessas Campos, (A. B, C) já faça o calculo automaticamente na D, sem uso de botão tentei fazer assim mas fica dando loop infinito. Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Double For i = 2 To 20 Cells(i, "D").Value = Cells(i, "A").Value + Cells(i, "B").Value - Cells(i, "C").Value Next i End Sub

Olá, estou com um problema no uso do WebBrowser no Visual Studio: tenho uma aplicação onde eu uso o GetElementById para lançar dados inseridos nos TextBoxes do Form para a página do Facebook, onde os elementos são identificado pelo seu ID. Aqui está o meu problema: eu não consigo achar o ID daquela caixa de texto do Facebook onde se faz as postagens (a que diz "No que você está pensando agora?"). Já "varri" o código-fonte inteiro do Facebook e tentei usar o GetElementById em tudo que é ID da página e ABSOLUTAMENTE NENHUM ID que eu tentei retorna naquela caixa de texto. Desde já, muito obrigado

Eu estou fazendo um projeto no Visual Studio integrado com o banco de dados Access. Meu objetivo é um controle de salas em que o professor que estiver dentro de algum laboratório cadastre seu nome, matéria e horário em que acessou o laboratório, dentro de cada laboratório tem 20 computadores com 20 relatórios pra cada um em que será marcado se algum micro está com problema etc, já programei todos relatórios para serem salvos no Access Vou deixar aqui a imagem de exemplo: O meu intuito era: quando o usuário clicasse no erro resolvido o programa iria limpar a tabela do banco de dados que representasse o computador 1, mas quando eu fecho o form a especificação do erro não fica salva Alguém poderia me ajudar com isso? Não sei mesmo o que fazer

Olá, Pessoal. Essa é a minha primeira vez aqui no fórum e também em VB .Net + Access. Eu tenho uma cadastro de funcionário onde é exibido os dados de uma tabela do banco de dados do access quando o form é carregado, até aqui tudo bem. Com OleDb.OleDbDataReader eu consegui exibir os dados nos campos do formulário e também preencher os combobox com campos da tabela. Porém não estou conseguindo adicionar, editar e excluir os dados do banco de dados. Esse é o código que preenche os campos do formulário quando o form é carregado: Private Sub IDServidor_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles IDServidor.TextChanged Dim LeituraBD As OleDb.OleDbDataReader Dim ComandoSQL As String If Len(IDServidor.Text) = 6 Then 'Armazena na variável o comando que fará a consulta SQL no BD Access ComandoSQL = "select * from TB_Servidores where IDServidor like '" & IDServidor.Text & "'" 'Chama a rotina que faz a conexão com o BD Call Conectar() 'Atribui a variável objeto de BD a execução dos comandos SQL Consulta = New OleDb.OleDbCommand(ComandoSQL, Banco) LeituraBD = Consulta.ExecuteReader LeituraBD.Read() 'Tratamento de erro de acesso aos dados. Se houver erro, desvia o comando para o rótulo Sai 'On Error Resume Next 'Preenche Formulário Matrícula.Text = CNullToStr(LeituraBD.Item("Matrícula")) 'Matrícula Regime.Text = CNullToStr(LeituraBD.Item("Regime")) 'regime Nome.Text = CNullToStr(LeituraBD.Item("nome")) 'nome Cargo.Text = CNullToStr(LeituraBD.Item("cargo")) 'cargo Função.Text = CNullToStr(LeituraBD.Item("função")) 'função Unidade.Text = CNullToStr(LeituraBD.Item("unidade")) 'unidade Lotação.Text = CNullToStr(LeituraBD.Item("lotação")) 'lotação Admissão.Text = CNullToStr(LeituraBD.Item("admissão")) 'admissão Jornada.Text = CNullToStr(LeituraBD.Item("jornada")) 'jornada de trabalho CPF.Text = CNullToStr(LeituraBD.Item("cpf")) 'cpf Pasep.Text = CNullToStr(LeituraBD.Item("pis/pasep")) 'pasep Nascimento.Text = CNullToStr(LeituraBD.Item("dt nascimento")) 'nascimento Observação.Text = CNullToStr(LeituraBD.Item("Observação")) 'Observações Call Desconecta() 'Configura o Display de Registro Atual RegistroAtual.Text = IDServidor.SelectedIndex + 1 End If End Sub Essa é uma função que eu criei para converter os valores null do banco de dados para string: Function CNullToStr(ByVal Variável) As String 'Converte uma variável de banco de dados com valor NULL para uma STRING vazia On Error Resume Next If Variável Is DBNull.Value Then CNullToStr = "" Else CNullToStr = Variável End If End Function

PAGO A QUEM ME AJUDA EM UM ERRO SIMPLES estou com um pequeno problema e um projeto... estou pagando em bitcoin pra quem me ajudar URGENTE! SKYPE: LUCASMOREIRRANETO1012@GMAIL.COM (DIEGO SILVA)

Olá. Eu estou com uma duvida. Eu não sei como mudar de form no visual basic com o botão. Meu visual basic e o 15. Favor responder rapido.

Bom dia Pessoal, alguém teria um exemplo de login ou cadastro feito em Visual basic 2012 consultando / adiconando informações em tabalas do SQL Express ?

Ola! Preciso De Uma Ajuda Preciso Cria uma Função No Excel Mais Não Estou Conseguindo Creio Que seja simples Preciso Que a Função identifique dois números iguais e some o valor agregado a estes números iguais ex: time jogadores 1 10 2 11 3 9 1 1

Publico o programa, porém logo após a instalação no computador ele dá erro e não consegue encontrar o banco de dados! o que posso fazer? Estou fazendo o programa pelo Visual Studio!

Olá pessoal, primeiramente quero parabenizar ao pessoal do fórum, está me ajudando muito a obter mais conhecimentos e a solucionar algumas dúvidas que vão surgindo!! Bom vamos ao que interessa... Estou desenvolvendo meu primeiro aplicativo em Visual Basic usando Microsoft Visual Studio com banco de dados em SQL, e já estou com 70% do projeto pronto, mas atualmente eu uso a opção de conexão com banco de dados oferecida pelo próprio assistente do Visual Studio - Menu Data - Add New Data Source, onde eu informo o nome do servidor de dados, usuário e senha e o banco na qual quero me conectar. Bom até ai tudo bem, pois como disse, meu projeto está em 70% e já estou conseguindo comunicar com banco: gravar, alterar e deletar registros. Mas me surgiu uma dúvida, quando for instalar futuramente este aplicativo em algum cliente por exemplo, provavelmente terá erros pois no próprio código do software eu estou apontando o banco de dados para um servidor especifico, e isso com certeza ira gerar algum tipo de transtorno. E analisando algumas informações, vi que alguns softwares usam um arquivo xxx.ini onde eles gravam as informações de conexão, e então o software cria sua conexão com o banco de dados a partir dele. Então realizei uma cópia do meu projeto e estou tentando implanta esta forma de conexão, inclusive já consegui fazer o meu software gravar e ler este arquivo xxx.ini que fica na mesma pasta de instalação do software, mas agora estou com dúvidas em como vou fazer o meu projeto ler as informações contidas neste arquivo e criar sua string de conexão com o banco. Então agora preciso da colaboração do forum para me ajudar a resolver esta dúvida, ou se for o caso, me sugerirem outo modo que achem viável para solucionar meu problema. RESUMINDO: preciso de alguma forma de conexão com banco de dados Sql prática para quando for instalar em um cliente, não precise entrar no codifo-fonte e alterar as informações de coenxao como banco de dados, de preferencia gostaria de usar o modo de leitura do arquivo xxx.ini. Att, Gleiterson.