JMRF

Boa noite, Por favor, o que está errado nesse código? Eu tenho uns dados cadastrados num BD Access nas seguintes datas: 05/05/2012 07/05/2012 25/05/2012 10/06/2012 25/06/2012 Acontece que quando faço a pesquisa entre datas com o Código abaixo (estou usando DateTimerPicker na Pesquisa), se eu seleciono no primeiro DateTimerPicker: Data Inicial: a data de 01/05/2012 e no outro DateTimerPicker a Data Final:10/06/2012 Só aparece do DataGridView a linha com a data: 05/05/2012 Se eu seleciono Data Final 11 ou 12/06/2012 continua mostrando só a linha com a data 05/05/2012 quando seleciono no DateTimerPicker de Data Final: 13/06/2012 aparecem no DBGrid as linhas: 05/05/2012 07/05/2012 e 10/06/2012 Se eu seleciono no DateTimerPicker a data inicial 08/06/2012 e data final 30/06/2012, ou seja só data dentro do mes de junho, me mostra as linhas no DataGridView com as datas: 07/05/2012 10/06/2012 25/05/2012 25/06/2012 Ou seja a Data Inicial é no mes de junho e mostra as datas 05/05/2012 e 25/05/2012 que são de maio porque está acontecendo esse erro? Podem me ajudar, por favor? JMRF Private Sub btn_Consult_Click(sender As System.Object, e As System.EventArgs) Handles btn_Consult.Click Dim css As String = My.Settings.EstoqueConnectionString Dim conect As New OleDb.OleDbConnection conect.ConnectionString = css conect.Open() Dim selcom As New OleDb.OleDbCommand selcom.Connection = conect selcom.CommandText = "SELECT * FROM tb_saidas_estoque WHERE data_de_saida BETWEEN #" & DTPIni.Text & "# AND #" & DTPFin.Text & "# order by data_de_saida" '"Select * from tb_saidas_estoque WHERE data_de_saida between >= DTPIni.text and data_de_saida <= DTPFin.text Order by data_de_saida" '"SELECT * FROM tb_saidas_estoque WHERE data_de_saida >= #DTPIni#" And "<= #DTPFin#" '"select * from tb_saidas_estoque where data_de_saida >= #DTPIni#" And "<= #DTPFin#" '"select * from tb_saidas_estoque where data_de_saida BETWEEN #" & DTPIni.Text & "# AND #" & DTPFin.Text & "#" Dim vleitor As OleDb.OleDbDataReader vleitor = selcom.ExecuteReader() Dim c As Integer = 0 DgvConsulta.Rows.Clear() Do While vleitor.Read c = c + 1 ReDim Preserve avalor_materiais_produtos© ReDim Preserve amateriais_produtos© ReDim Preserve adata_de_saida© ReDim Preserve asaidas© avalor_materiais_produtos© = vleitor("valor_materiais_produtos") amateriais_produtos© = vleitor("materiais_produtos") adata_de_saida© = vleitor("data_de_saida") asaidas© = vleitor("saidas") DgvConsulta.Rows.Add(avalor_materiais_produtos©, amateriais_produtos©, adata_de_saida©, asaidas©) Loop conect.Close() End Sub End Class

Boa noite, Por favor, o que está errado nesse código? Eu tenho uns dados cadastrados num BD Access nas seguintes datas: 05/05/2012 07/05/2012 25/05/2012 10/06/2012 25/06/2012 Acontece que quando faço a pesquisa entre datas com o Código abaixo (estou usando DateTimerPicker na Pesquisa), se eu seleciono no primeiro DateTimerPicker: Data Inicial: a data de 01/05/2012 e no outro DateTimerPicker a Data Final:10/06/2012 Só aparece do DataGridView a linha com a data: 05/05/2012 Se eu seleciono Data Final 11 ou 12/06/2012 continua mostrando só a linha com a data 05/05/2012 quando seleciono no DateTimerPicker de Data Final: 13/06/2012 aparecem no DBGrid as linhas: 05/05/2012 07/05/2012 e 10/06/2012 Se eu seleciono no DateTimerPicker a data inicial 08/06/2012 e data final 30/06/2012, ou seja só data dentro do mes de junho, me mostra as linhas no DataGridView com as datas: 07/05/2012 10/06/2012 25/05/2012 25/06/2012 Ou seja a Data Inicial é no mes de junho e mostra as datas 05/05/2012 e 25/05/2012 que são de maio porque está acontecendo esse erro? Podem me ajudar, por favor? JMRF

Bom dia, VB.NET BD Access Olha eu peço a ajuda de vocês, para o seguinte: Quero criar um Form onde consultarei os vencimentos por período. Entre datas. Exemplo: Os recebimentos de eu tiver para o período de 20/06/2012 a 10/07/2012, Então quero que o código, faça a busca no Banco de Dados nesse período e coloque no DBGridView só os recebimentos desse período pesquisado e num txtbox me dê o valor total da coluna valor a receber no período pesquisado. Pode me dar mais essa força, por favor? Obrigado JMRF

Boa noite, Estou tentando fazer uma busca no meu BD Access para o seguinte: a- Quero que no Load do meu Form seja feita automaticamente uma busca no BD Acces que me dê uma mensagem "Recebimentos para Hoje". b- Coloquei no meu Form um campo "txtHoje.text" onde fica a data do dia de hoje automaticamente. Preciso que ao dar o Load no meu Form o programa busque no Banco de Dados, na coluna "data de vencimnto" se tem algum registro com vencimento para o dia que está no "txtHoje.text" e numa label me dê a mensagem = "Recebimentos para Hoje". Como implementar um código para essa busca, por favor. VB.NET BD Access Obrigado JMRF

Boa tarde, VB.NET Banco de Dados : Access Como faço, para que um Form ao abrir ele abra de acordo com o comando dado em outro Form? Exemplo: No Botão "Ok" na minha tela de Login eu coloquei um código para que quando o "Form Entradas_saidas_estoque" for aberto, os botões "ALTERAR" e "EXCLUIR" estejam desativados.Mas isso não está acontecendo.Quando clico para abrir o "Form Entradas_saidas_estoque" os botões 'ALTERAR' e "EXCLUIR" estão ativos. O Código que usei é esse: If Senha = txtPassword.Text And perfil = cmbperfil.Text Then If cmbperfil.Text = "User" Then Entradas_saidas_estoque.btnAlterar.Enabled = False Entradas_saidas_estoque.btnExcluir.Enabled = False Else Entradas_saidas_estoque.btnAlterar.Enabled = True Entradas_saidas_estoque.btnExcluir.Enabled = True End If Obrigado JMRF

Bom dia, Uso o VB.NET Banco de Dados : Access Tem como eu criar uma forma de cadastrar as senhas separadas por: - Senha Funcional e - Senha Master Sendo que só quem tiver a senha master terá acesso a todo o programa, tipo: - Para excluir ou alterar um lançamento só quem tem senha Master terá acesso - A senha Funcional só dá acesso a lançamentos de Cadastro, Entradas e Saídas, por exemplo Já quebrei cabeça pensando como cadastrar as senhas sem que outra pessoa possa fazer cadastros de senhas novas ou alterar as existentes. Dá pra alguém postar algum código nesse sentido, por favor. Desde já Muito Obrigado JMRF

Boa noite, Estou querendo incrementar no meu Form um codigo ID com numeraçao automatica, por isso peço a voces que postem aqui um codigo para me ajudar, por favor. Uso o VB.NET Banco de dados ACCESS O Acces tem a numeraçao automatica, mas e simplesmente um numero - 1, 2, 3, 4 etc eu quero para criar numeracao automatica tipo: 0001,0002,0003,0004 etc. Podem me ajudar? Aguardo a colaboraçao de todos. Um abraço JMRF

Boa tarde, Resolvido assim: Private Sub btnIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIncluir.Click vmodo = "I" Try If CmbEnt_sai_estoque.Text = "Entradas no Estoque" Then RadioButton1.Enabled = True RadioButton2.Enabled = True RadioButton3.Enabled = True RadioButton4.Enabled = False RadioButton5.Enabled = False RadioButton6.Enabled = False btnCancelar.Enabled = True If RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False Then MessageBox.Show("Selecionar uma opção no Tipo de Movimentação") Else hab_campos() hab_campos_em_comum() hab_btn() txtEmpenho.Text = "" MaskedData_empenho.Text = "" Maskedprocesso.Text = "" txtNotas_fiscais.Text = "" MaskedData_nota_fiscal.Text = "" txtValor_unitario.Text = 0 txtValor_materiais_produtos.Text = 0 txtcod_materiais_produtos.Text = "" txtMateriais_produtos.Text = "" txtUnidade.Text = "" MaskedData_de_entrada.Text = "" txtEntradas.Text = "" lblMateriais_produtos.Text = "" txtEmpenho.Focus() End If End If If CmbEnt_sai_estoque.Text = "Saidas no Estoque" Then RadioButton1.Enabled = False RadioButton2.Enabled = False RadioButton3.Enabled = False RadioButton4.Enabled = True RadioButton5.Enabled = True RadioButton6.Enabled = True btnCancelar.Enabled = True If RadioButton4.Checked = False And RadioButton5.Checked = False And RadioButton6.Checked = False Then MessageBox.Show("Selecionar uma opção no Tipo de Movimentação") Else hab_campos_saidas() hab_campos_em_comum() hab_btn() MaskedRequisicoes.Text = "" MaskedData_de_saida.Text = "" txtsaidas.Text = "" txtDepartamento_requisitante.Text = "" txtSupervisao_requisitante.Text = "" txtValor_unitario.Text = 0 txtValor_materiais_produtos.Text = 0 txtcod_materiais_produtos.Text = "" txtMateriais_produtos.Text = "" txtUnidade.Text = "" MaskedRequisicoes.Focus() 'Para colocar o cursor depois dmáscara SE no MaskedRequisicoes Me.MaskedRequisicoes.SelectionStart = 2 End If End If Catch ex As Exception MessageBox.Show("Erro de gravação de dados" & vbCrLf & ex.Message, "ERRO", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Try End Sub Obrigado aos que ajudaram JMRF

Bom dia, Estou solicitando, por favor, a ajuda de vocês para a solução do seguinte problema: Estou trabalhando em um programa de Controle de Estoque onde preciso do seguinte: 1 - Quando eu der ENTRADA ou SAÍDA em algum Material devo selecionar num ComboBox a opção ENTRADA ou SAÍDA. Se eu selecionar entrada no ComboBox os campos referentes aos dados de entradas, tipo: Nº NFiscal, Data NFiscal, Valor Unitário etc devem ficar ATIVOS e os dados de saídas como: Requisição, dataRequisição, Depto Requisitante etc devem ficar DESATIVADOS e se eu selecionar no ComboBox a opção Saídas lógicamente acontecerá o contrário. Até aí tudo está funcionando legal. 2 - Só que preciso também que ao selecionar a opção ENTRADAS, e ao clicar no Botão INCLUIR, o programa ative as opções de entradas e deixe desativadas as opções de saídas. Ative por Exemplo: Entrada Normal, ative Entrada por Recebimento de Empréstimo Concedido, ative Entrada por Empréstimo Tomado E eu macarei a opção que se fizer necessária e Desative as opções de Saídas, como por exemplo: Saída Normal, desative Saída por Empréstimo Concedido e desative Saída por Pagamento Empréstimo Tomado e ao mesmo tempo verifique se tem uma dessas opções selecionada no RadioButton, de acordo como seja : ENTRADA ou SAÍDA, e isso está funcionando também, e caso não tenha nenhuma dessas opções marcadas no RadioButton, dará a mensagem "Selecionar uma Opção no Tipo de Movimentação". Acontece que com o código que estou postando abaixo, dá a mensagem, então eu marco uma das opções e clico no Botão INCLUIR e continua sem reconhecer que uma opção está marcada no RadioButton e a Mensagem acima é mostrada novamente. Eu estava usando o CheckedListBox e funciona legal só que o CheckedListBox eu posso preencher mais de uma opção ao mesmo tempo o que poderá me fazer errar por esquecimento de desmarcar a opção anterior e selecionar a nova, ficando mais de uma opção selecionada, já no RadioButton eu posso selecionar apenas uma opção, se clicar em outro RadioButton ele automaticamente desmarca a opção anterior. Dá pra ajudar a resolver onde está errado no meu código? Ou me passar um código que eu possa usar nesse caso e resolver esse problema? Trabalo com: VB.NET BANCO DE DADOS : Accesss Abaixo está o código que estou usando. Private Sub btnIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIncluir.Click ' modo de inclusão vmodo = "I" If RadioButton1.Checked = False Or RadioButton2.Checked = False Or RadioButton3.Checked = False Or RadioButton4.Checked = False Or RadioButton5.Checked = False Or RadioButton6.Checked = False Then MessageBox.Show ( "Selecionar uma opção no Tipo de Movimentação " ) Else Try If CmbEnt_sai_estoque.Text = "Entradas no Estoque" Then hab_campos() hab_campos_em_comum() hab_btn() txtEmpenho.Text = "" MaskedData_empenho.Text = "" Maskedprocesso.Text = "" txtNotas_fiscais.Text = "" MaskedData_nota_fiscal.Text = "" txtValor_unitario.Text = 0 txtValor_materiais_produtos.Text = 0 txtcod_materiais_produtos.Text = "" txtMateriais_produtos.Text = "" txtUnidade.Text = "" MaskedData_de_entrada.Text = "" txtEntradas.Text = "" lblMateriais_produtos.Text = "" txtEmpenho.Focus() Else hab_campos_saidas() hab_campos_em_comum() hab_btn() MaskedRequisicoes.Text = "" MaskedData_de_saida.Text = "" txtsaidas.Text = "" txtDepartamento_requisitante.Text = "" txtSupervisao_requisitante.Text = "" txtValor_unitario.Text = 0 txtValor_materiais_produtos.Text = 0 txtcod_materiais_produtos.Text = "" txtMateriais_produtos.Text = "" txtUnidade.Text = "" MaskedRequisicoes.Focus() 'Para colocar o cursosr depois de SE no MaskedRequisicoes Me.MaskedRequisicoes.SelectionStart = 2 End If Catch ex As Exception MessageBox.Show("Erro de gravação de dados" & vbCrLf & ex.Message, "ERRO", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Try End If End Sub Aguardo a costumeira ajuda de todos. Um abraço JMRF

Boa tarde, VB NET BD - Access Gostaria que me indicassem, por favor, um código para que eu ao colocar no meu Form um CheckListBox pudesse selecionar alguns ítens ou todos de acordo com a minha necessidade e que eles ficassem marcados, podendo depois desmarcar uns e marcar outros, etc. Obrigado JMRF

Bom dia, Vê se dá pra ajudar, por favor. Como faço para que quando eu digitar uma pesquisa num textbox a linha no DBgrid fique selecionada e role até a parte de cima para que eu clicando nessa linha apareçam nos campos do Form os dados cadastrados. Obrigado JMRF

Boa tarde, Estou precisando da ajuda de vocês, para a seguinte situação. No código que está postado abaixo eu preciso: Private Sub txtCod_materiais_produtos_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtcod_materiais_produtos.LostFocus Dim cs As String = My.Settings.EstoqueConnectionString Dim conect As New OleDb.OleDbConnection conect.ConnectionString = cs Try conect.Open() Dim selcom As New OleDb.OleDbCommand selcom.Connection = conect selcom.CommandText = "SELECT materiais_produtos FROM tb_cadastro_materiais_produtos WHERE cod_materiais_produtos=" & txtcod_materiais_produtos.Text Dim vprod As String = selcom.ExecuteScalar If vprod <> "" Then lblMateriais_produtos.Text = vprod lblMateriais_produtos.ForeColor = Color.Black txtMateriais_produtos.Text = lblMateriais_produtos.Text Else lblMateriais_produtos.Text = vprod MessageBox.Show("Lançamento não permitido, Código não cadastrado") txtcod_materiais_produtos.Text = "" txtMateriais_produtos.Text = "" txtUnidade.Text = "" txtcod_materiais_produtos.Focus() End If 1- Que ele busque no BD e preencha os campos Materiais_Produtos e ao mesmo tempo preencha o campo Unidade referente à esse produto encontrado. No código abaixo, quando o campo cod_materiais_produtos perde o foco ele está buscando o Materiais/Produtos sem problemas, mas preciso que traga junto também a Unidade para preencher o campo Unidade do meu Formulário. Já tentei de todas as formas incluir nesse código a busca da Unidade, mas não consigo. OBS: Para que não percam muito tempo entendendo o código, faço esse resumo, pra facilitar aos disponíveis a ajudar: A linha de código efetua uma busca no BD para encontrar no BD o Nome do Material/Produto cujo código digitei no txt.cod_materiais_produtos.text e se encontrar cadastrado no BD o nome do produto esse nome é colocado em uma label no meu Formulário. Então o código preenche o txtmaterias_produtos.text com o nome do Material/Produto automáticamente. (obs: até aqui tudo está funcionando, ok). Agora preciso que ao mesmo tempo seja efetuada uma busca no BD e traga e preencha o txtUnidade.text com a Unidade cadastrada para aquele produto. Ou seja quando o txtCod_materiais/produtos.text perde o foco essa busca no BD é efetuada e o campo txtmateriais_produtos.text é preenchido automáticamente com o nome do Material/Produto e o txtUnidade.text é também preenchido automáticamente com a Unidade que está cadastrada para aquele material/produto no BD. Obs: Eu não sei se não pode ser ExecuteScalar, porque ele só efetua a busca de um objeto, sendo que aqui seria buscar o Nome do Material/Produto e a Unidade. Se puderem me ajudar, e me indicar a linha de código, por favor? Desde já meu muito obrigado. JMRF

Boa tarde, - Uso VBNET 2010 - BD Access Solicito a juda de vocês: - Tem como eu fazer aparecer na textbox um valor em reais sem o "R$"? No BD Access está formatado como moeda e fica no BD com "R$",mas na textbox preciso que só apareça os valores, inclusive com ponto (.) e também a vígula (,) tipo: 1.532,50 - 0,50 - 12.548,73 etc. Usando o "R$"eu estou conseguindo, mas na hora de digitar o valor na textbox fica meio complicado, tendo que arrumar o cursor no lugar certo, ou seja depois do "R$". Desde já meu muito obrigado JMRF

Boa noite, Preciso, por favor, da ajuda de vocês para eu consultar em um Banco de Dados pela primeira letra de um Nome. Quando digitar na textbox para pesquisa a letra C todos os nomes começados com C aparecerão no DBGrid. Uso o VBNET 2010 e o Banco de Dados é o ACCESS. Obrigado JMRF

Boa noite, Danleonhart, Fiz o que você me aconselhou mas não dá certo. Já estou pirando, nada dá certo. Vou te passar umas informações para ver se você pode me ajudar. Trabalho com o VB.NET 2010 Banco de Dados - Access 2010 No meu BD o campo Valor_unitario_saidas eu formatei como Moeda - 2 casas decimais. No Binding Formatei como Currency - 2 casas decimais No meu código coloquei: Dim avalor_unitario_saidas(1) As Double Coloquei ainda o código: Private Sub txtValor_unitario_saidas_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtValor_unitario_saidas.Leave If txtValor_unitario_saidas.Text = String.Empty Then txtValor_unitario_saidas.Text = "0,00" Else txtValor_unitario_saidas.Text = FormatCurrency(txtValor_unitario_saidas.Text, 2, TriState.True, TriState.True, _ TriState.True).Replace("R$", "").Trim End If End sub end Class No meu DBGrid os valores aparecem com R$323,50 ou R$125,00 e também no BD aparecem R$323,50 ou R$125,00 só no textbox - txtValor_unitario_saidas.text é que aparece R$323,5 ou R$125 sem os zeros após a vírgula. Estou tentando uma solução desde dezembro de 2011 e tudo que me mandam fazer faço e nada, mais nada mesmo muda essa situação. Dá pra dar alguma dica, por favor. Grato JMRF