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...

Oi Matheus, nesse mio tempo eu fiz uma breve modificada, a segunda tela pode desconsiderar, as informações que o usuário digitar na Tela Incluir Departamento será salvo diretamente no BD... Eu estava lendo o tópico que vocÊ POStou e segui conforme aquela solução que você postou... Private Sub cmdInserir_Click() ExecutaComando ("insert into Alunos (Nome,Idade) values ('" & txtNome.Text & "','" & txtIdade.Text & "')") End Sub mdlVariaveis Global g_mdb_Conex As New ADODB.Connection Global f_cla_ConexaoMDB As New cls_ConexaoMDB Public Function ExecutaComando(ByVal strComando As String) As Boolean On Error GoTo err ExecutaComando = False g_mdb_Conex.Execute strComando ExecutaComando = True Exit Function err: MsgBox "erro para inserir" End Function Class Public Function ConexMDB(ByVal l_str_CaminhoMDB As String) On Error GoTo Erro: ConexMDB = True If g_mdb_Conex.State = 1 Then g_mdb_Conex.Close g_mdb_Conex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & l_str_CaminhoMDB & ";jet oledb:Database password=123321" Exit Function Erro: ConexMDB = False MsgBox "ERROR DE ACESSO COM MDB", vbCritical End End Function Porém, ao executar o programa, ele aparece a mensagem de "Erro para Inserir", conforme no código, talves o erro esteja no módulo, mais como resolve-lo???? No meu caso o botão salvar seria assim: Private Sub cmdIncluirDep_Click() ExecutaComando ("insert into Alunos (Departamento,Sub-Departamento1,Sub-Departamento2,Sub-Departamento3,Sub-Departamento4,Sub-Departamento5) values ('" & txtNomeDep.Text & "','" & txtNomeSubDep1.Text & "','" & txtNomeSubDep2.Text & "','" & txtNomeSubDep3.Text & "','" & txtNomeSubDep4.Text & "','" & txtNomeSubDep5.Text & "')") End Sub Só uma dúvida, pois talvez eu tenha matado o problema aqui... Conforme o código: Private Sub cmdIncluirDep_Click() ExecutaComando ("insert into Alunos (Departamento,Sub-Departamento1,Sub-Departamento2,Sub-Departamento3,Sub-Departamento4,Sub-Departamento5) values ('" & txtNomeDep.Text & "','" & txtNomeSubDep1.Text & "','" & txtNomeSubDep2.Text & "','" & txtNomeSubDep3.Text & "','" & txtNomeSubDep4.Text & "','" & txtNomeSubDep5.Text & "')") End Sub "insert into Alunos" o Alunos seria o nome da Tabela ou do BD do Access???

Ta ai a imagem... Shot at 2010-10-02 De modo geral, é simples, a primeira janela vai possibilitar ao usuário escrever o nome do departamento e dos sub-departamentos, ele clicará em Incluir e abrirá a segunda tela, na segunda tela ele pegará os valores digitados na Primeira tela a partir do botão Visualizar Departamentos e os valores da primeira tela aparecerão... Ai vem a minha primeira dúvida, os campos da segunda tela estão Enabled = False, pra ninguém escrever nada, na caixa maior, eu queria que as informações de sub-departamentos fossem listadas, levando em consideração que o campo é Texto. E por fim, quando a pessoa listar as informações ao clicar no Botão "Salvar Departamento" o departamento será enviado para a tabela do Access.

Valeu Matheus... Graças a você eu consegui incluir esse formulário sem erro... Só noto uma coisa, ele está mostrando a mensagem de Teste realizado com sucesso! porém, na minha caixa de entrada do Yahoo não chegou, vou esperar até mais tarde e vou testando no decorrer do dia pra ver se é só uma demora nos servidores pra receber a mensagem... A Primeira dúvida foi matada, agora vamos a segunda... Vou só enviar os prints do formulário e da Tabela pra você entender mais ou menos como eu quero que fique!!!

Io Matheus... Private Sub cmdEnviar_Click() Set k = CreateObject("Py.SendMail") k.SMTPServer = txtServidor.Text k.Recipient = txtNomePara.Text k.To = txtEmailPara.Text k.Sender = txtNomeDe.Text k.From = txtEmailDe.Text k.Cc = txtCc.Text k.Bcc = txtBcc.Text k.Subject = txtAssunto.Text k.Body = txtMensagem.Text k.PureText = chkTextoPuro.Value 'Em caso de autenticação k.User = "teste+graymalkinsoftware.net" k.Password = "1234" For i = 0 To lstAnexos.ListCount - 1 k.AttachFile lstAnexos.List(i) Next i For i = 0 To lstImagens.ListCount - 1 k.InsertImage lstImagens.List(i) Next i retorno = k.Send() lblRetorno = "Retorno: " & retorno Debug.Print retorno End Sub Só pra entender, eu baixei esse programa, Py.SendMail e ele realmente vem com um exemplo de formulário de e-mail, porém, lá ele pede pra escrever desde o servidor SMTP, desta forma eu poderia alterar diretamente no código fonte o nome do servidor, por exemplo: k.SMTPServer = txtServidor.Text k.SMTPServer = smtp.são.terra.com.br De modo geral muita coisa que tem no código fonte pra mim não serve, abaixo eu estou enviando uma imagem de como é no programa... CORREÇÃO: Desisto... De alguma forma aqui no forum ele está colocando o S A O como S Â O... rssrsrs Simplificando tudo, nem acessa a digitar o e-mail eu gostaria que os usuários tivessem, seria apenas eles digitarem a mensagem, colocarem o e-mail deles e enviar que eu receberia...

Boa noite a todos. Gostaria de esclarecer algumas dúvidas, caso alguém puder me ajudar... Eu sou iniciante em VB e estou criando algus programinhas básicos, porém, eu decidi deixar essa programação um pouco mais complexa e colocar alguns itens a mais no meu software... 1º Gostaria de colocar um formulário de E-Mail, onde a pessoa vai colocar Nome do Remetente, E-Mail do Remetente, Assunto e o Texto, esse e-mail será enviado automaticamente para o meu e-mail particular, já vi uns tutoriais que o Macoratti disponibiliza, porém, não estou entendendo... 2º Eu já consigo realizar a conexão com o BD do Access a partir do Microsoft ADO Data Control 6.0 (OLEDB) e até consigo visualizar as informações do BD que estão no Access, ou seja, eu primeiro coloco as informações no Access e depois eu visualizo no Formulário do VB, porém, eu gostaria de "Escrever essas informações no Formulário do VB e a partir de um botão Salvar incluir essas informações no BD do Access", assim como usar um Botão Excluir e Alterar para essa finalidade. 3º A partir de uma video aula, eu aprendi a criar uma calculadora simples, com + - * / , porém, para esse programinha que estou criando é imprescindível a porcentagem, ela eu usarei da seguinte forma: A Pessoa vai ter um campo "Valor" onde será colocado o valor em R$ um Campo "Data" onde será colocado a Data da Dívida e um Campo "%" que num entendimento simples seria a porcentagem de juros. De modo geral o programa tem que fazer um calculo de calendário somando a quantidade de dias do valor em aberto e aplicar a por centagm de juros em cima... Essa terceira pode parecer um pouco complexo, mais eu realmente preciso aprender isso senão eu me mato, estou a mais de um mês tentando achar uma saída e nada... Por favor galera, me ajudem nesses 3 itens se possível!!! Desde já agradeço... Boa noite a todos!!!