Ewerton Melo

Desculpa a demora pra responder, passei por algumas turbulências e dificultou o acesso... Voltando... Então, a tabela se chama tblcliente, o item dentro do formulário do Access é Texto, porém, lá só guarda números, sendo ele os 11 números do CPF... O txtconsultar.text puxa as informações do banco de dados, mais especificamente do campo "cpf" dentro do tblcliente...

Putz... Mesmo com apostrofo e aspas não funcionou... Olha só, eu até criei um campo pra puxar as informações especificamente, mesmo assim não funcionou... Agora aparece essa mensagem: O Mecanismo de Banco de Dados Microsoft Jet não encontrou a tabela de entrada ou consulta "cliente". Certifique-se de que ela existe e de que seu nome está digitado corretamente. O engraçado é que tudo existe e está digitado corretamente, por exemplo, os campos eu copiei do próprio form de Inclusão de cadastro no BD do Access rsdados.Open "SELECT * FROM cliente WHERE tblcliente='" & txtConsultar.Text & "'", cn txtNome.Text = rsdados("nome") txtCPF.Text = rsdados("cpf") txtNascimento.Text = rsdados("nascimento") txtEndereco.Text = rsdados("endereco") txtNumero.Text = rsdados("numero") txtComplemento.Text = rsdados("complemento") txtBairro.Text = rsdados("bairro") txtCidade.Text = rsdados("cidade") txtUF.Text = rsdados("uf") txtCEP.Text = rsdados("cep") txtTelResidencial.Text = rsdados("telresidencial") txtTelCelular.Text = rsdados("telcelular") txtTelRecado.Text = rsdados("telrecado") txtFalar.Text = rsdados("falarcom") txtEmail.Text = rsdados("email") txtSite.Text = rsdados("site") txtObservacao.Text = rsdados("observacao")

Putz... E você tinha falado isso e eu esqueci... ¬¬ Burrice minha... Agradeço Matheus, um abraço!!!

Oi galera, mais uma dúvida com relação aos tópicos citados acima... Eu consegui fazer a calculadora financeira, conforme eu tirei várias dúvidas acima, porém, venho tendo problemas com os números dessa calculadora... Vou colocar a imagem do form com uma conta de exemplo, a mesma que eu coloquei acima Enfim, a conta é o seguinte: Em Valor R$ o usuário colocará o salário base Em Horas Trabalhadas o usuário colocará a quantidade de horas trabalhadas no mês, 180, 220 horas, etc... Horas Diárias, obviamente a quantidade de horas diárias dele, se é 6, 8, 12... Em % será a porcentagem de desconto... Porém, como vocês podem ver ele está fazendo calculos doidos... Primeiramente, ao colocar o valor Valor R$ e Horas Trabalhadas ele coloca o valor em R$ por Hora, que seria o valor em Reais da Hora Trabalhada. Segundo, ele multiplica as horas trabalhadas pelo R$ por horas, o valor aparece em R$ por dia Terceiro, teoricamente, o sistema teria que colocar no Campo Valor sem Desconto, novamente R$510 mais ele está fazendo a conta arredondada e está errando por muito... O Correto seria R$ por Hora 2,83 (esse está certo) R$ por dia 16,98 (Lá ele colocou 18, arredondado) Valor Sem desconto 510 (Ele teria que colocar o valor de 509,40, que seria o valor real de 30 * 16,98) Por último em Valor Corrigido, ele até apresentou o valor certo, mais entendendo que o valor era 540 - 6% Acredito que o problema esteja na declaração de variáveis, se puderem me ajudar mais uma vez... Segue o código: Private Sub Command1_Click() salario = Text1.Text horas = Text2.Text Text8.Text = salario / horas valor2 = Text8.Text trabalhado = Text3.Text Text9.Text = valor2 * trabalhado valor3 = Text9.Text ciclo = Text4.Text Text7.Text = valor3 * ciclo valor4 = Text7.Text percentil = Text6.Text valor5 = (valor4) - ((valor4 * percentil) / 100) Text5.Text = valor5 End Sub Ahhh... Ia até colocar essa conta de % que eu achei ontem aqui pelo Script Brasil, é bem útil pra trabalhar com Variáveis na Porcentagem... percentil = Text6.Text valor5 = (valor4) - ((valor4 * percentil) / 100) Text5.Text = valor5 Esqueci de colocar as declarações de variáveis: Option Explicit Dim salario As Integer Dim horas As Integer Dim trabalhado As Integer Dim ciclo As Integer Dim percentil As Integer Dim valor1 As Integer Dim valor2 As Integer Dim valor3 As Integer Dim valor4 As Integer Dim valor5 As Integer

Cara, agor o problema está nessa linha... rsdados.Open "SELECT * FROM cliente WHERE tblcliente=" & txtCPF.Text & "", cn Está informando que um ou mais parametros não foram fornecidos. Só pra entender, conforme o seu exemplo mais mais acima: Este é o arquivo do Access??? Precisa da extensão .mdb??? SELECT * FROM cliente Este parte eu coloco a tabela mesmo??? WHERE tblcliente=" Aqui é o campo que eu quero que puxe as informações??? Por exemplo, a pessoa que fizer a consulta terá que puxar as informações a partir do CPF??? " & txtCPF.Text & "", cn

Oi galera, cheguei ao comando de CONSULTAR Referente ao código: Private Sub cmdConsultar_Click() abrebanco Set rsdados = New Recordset rsdados.Open "SELECT * FROM cliente WHERE tblcliente=" & txtConsulta.Text & "", cn txtNome.Text = rsdados("nome") txtCPF.Text = rsdados("cpf") txtNascimento.Text = rsdados("nascimento") txtEndereco.Text = rsdados("endereco") txtNumero.Text = rsdados("numero") txtComplemento.Text = rsdados("complemento") txtBairro.Text = rsdados("bairro") txtCidade.Text = rsdados("cidade") txtUF.Text = rsdados("uf") txtCEP.Text = rsdados("cep") txtTelResidencial.Text = rsdados("telresidencial") txtTelCelular.Text = rsdados("telcelular") txtTelRecado.Text = rsdados("telrecado") txtFalar.Text = rsdados("falarcom") txtEmail.Text = rsdados("email") txtSite.Text = rsdados("site") txtObservacao.Text = rsdados("observacao") fechabanco End Sub Acontece que neste código ele está dando erro, mais precisamente nesta linha: Set rsdados = New Recordset Aparece a seguinte mensagem: Compile Error: Invalid use of new keyword Se puderem me ajudar quanto a esse código... Um abraço galera... Ahhh... Valeu Matheus pelo código de % Consegui colocar pra funcionar... Agora só falta o passo 2, que eu também estou caçando, mais a minha ignorância em VB ainda é o maior problema... rsrsrs Valeu, mais uma vez...

Valeu cara... Consegui rodar o programinha... Mais um comando funcionando pra minha Lib... rsrsrs Um abraço e mais uma vez... Vlw

Oi galera, seguindo mais um dos tutoriais que encontrei na net, eu gostaria de passar arquivos para um documento de texto. A tela é essa. A pessoa digitará o valor e esses valores serão gravados automaticamente no arquivo de texto, segue o código: Código colocado no Botão Private Sub Command1_Click() Arq = FreeFile Open "C:\Users\Ewerton Melo\Desktop\teste.txt" For Output As Arq Print #Arq, txt1.Text Close Arq txt1.Text = "" End Sub A dúvida é o seguinte galera, eu estou salvando as informações num arquivo de texto que eu criei especificamente para isso, se eu incluir uma informação ele grava normalmente, porém, se eu tentar incluir uma segunda informação no arquivo de texto ele apaga a primeira informação e inclui a segunda, como fazer para ele incluir as informações uma depois da outa, sem apagar nada???? Depois, como eu faço pra determinar um determinado arquivo, exemplo, eu não quero salvar as informações nesse arquivo, como mandar as informações para um arquivo especifico ou salvar em um arquivo novo???

Oi galera, É o seguinte, eu estou seguindo um tutorial aqui do Script Brasil, com o mesmo nome do Tópico, "Exportando planilha excel para BD Access", gostaria de tirar uma dúvida: No gerneral declarations: Dim db As Database Onde seria esse "General Declarations??? Eu coloco esse código aonde exatamente??? Depois... Private Sub ExportaExcel(nomepasta As String, caminhoplanilha As _ String, nometabela As String, caminhobd As String) Dim db As Database Set db = OpenDatabase(caminhoplanilha, True, False, "Excel 5.0") Call db.Execute("Select * into [;database=" & caminhobd & "]." & nometabela & " FROM [" & nomepasta & "$]") MsgBox "Tabela Exportada com Sucesso", vbInformation, "JcmSoft" End Sub Esse código eu coloco no código fonte do próprio Form??? Ou onde seria se não lá??? Private Sub Command1_Click() On Error GoTo trata_erro ExportaExcel text2.Text, text1.Text, text4.Text, text3.Text Exit Sub trata_erro: MsgBox Err.Number & " - " & Err.Description Exit Sub End Sub Por último deu pra entender que esse código eu coloco no botão, se alguém puder me ajudar quanto aos primeiros eu agradeço muito galera, um abraço a todos...

Oi Matheus, simplificando as coisas, eu consegui fazer os pasos 1,3 e 4, que são contas simples, referente aos passos 2 5 que são o problema, estou mexendo em alguns tutoriais e por aqui mesmo, Script Brasil, cheguei a um site chamado www.vb6.com.br Realmente existe muita coisa boa por lá... Se alguém tiver uma luz e puder me ajudar nos passos 2 e 5, sendo: 2º O Segundo momento seria, ele somaria a quantidade de dias referido ao ciclo do funcionário 30 dias, só a Data Inicio e Data Fim 5º Por último, Ele me pegaria o valor em reais 509,40 - 6% = 478,83 Um abraço a todos...

Que site é esse cara... Tem muita, mais muita, mais muita coisa boa mesmo lá... Agradeço muito, já peguei vários códigos e várias explicações válidas para o dia-a-dia da programação com o VB!!!

É mais ou menos assim... O usuário terá acesso aos campos: Valor R$ Horas Trabalhadas Horas Diarias Data Início Data Fim % Ele será usado exatamente como calculo de Descontos em folha, nesse caso, o usuário colocaria, por exemplo: Valor R$ 510,00 Horas Trabalhadas 180 horas Horas diarias 6 horas Data Início 01/09/2010 Data Fim 30/09/2010 % 6 1º Neste exemplo ele pegaria o valor de 510,00 / (Pela quantidade de horas trabalhadas) 180 Ele me daria o Valor conforme as horas. Seria 2,83 2º O Segundo momento seria, ele somaria a quantidade de dias referido ao ciclo do funcionário 30 dias, só a Data Inicio e Data Fim 3º O terceiro momento seria, pegar a hora trabalhada 2,83 * pelas Horas Diárias 6 = 16,98 4º O quarto momento seria, pegar o valor em Reais das Horas Trabalhadas 16,98 * a quantidade de dias trabalhado 30 509,40 5º Por último, Ele me pegaria o valor em reais 509,40 - 6% = 478,83 Deu pra entender mais ou menos, essas partes eu gostaria de deixar um pouco dinâmico, onde a pessoa pode acompanhar os passos do desconto...

Oks... Valeu cara, acredito que no decorrer do projeto eu tenha mais dúvidas... Foram resolvidas 2 das 3...

Vou testando esses códigos e uma dúvida, a configuraçã desse módulo eu posso usar pra mais uma tabela??? Exemplo: Eu inclui esse módulo e consegui gravar as informações no BD do Access com a tabela de Departamentos (tblIncluirDep) Agora eu quero saber se eu posso usar essas configurações, sem precisar incluir outras pra tblIncluirFun, que é a tabela que eu vou usar pra incluir o Funcionário???

Valeu Matheus, novamente... Funcionou, consegui incluir as informações no BD do Access... Referente ao botão Excluir, Alterar e Consultar eu vi que você tinha dúvidas no outro tópico, você já conseguiu desvendar como faz??? Caso sim, poderia posta aqui por favor... Um abraço cara e valeu de novo...