Flecha

Ola´, Sou novo no fórum e não sei programar, mas acho que como muitos que usam do fórum para esclarecer dúvidas são como eu. Baixo exemplos funcionais da Net e tento adaptá-lo ao meu uso como cadastro de clientes com as funções básicas, cadastro de veículos, etc.... Acontece que nem sempre são "rosas" e nos falta uma explicação de o que cada sub faz e sabê-las interpretar para adequalas ao nosso uso. Então se fosse possível colocaria em um site de armazenagem free o exemplo e um Moderador ou que entender explicaria no fórum cada passagem. O que acham ? Flecha

Macêdo, Coloquei essa sub no meu projeto e esta dando erro de variavel não defenida objWord na linha: Set objWord = New Word.Application Faltou Dim objWord as Word.Applicattion Ai beleza deu certo. Obrigado Flecha

Foi resolvido, Como a rotina de gravar estava com um erro e não gravava no bd, consequentemente não incrementava o recordcount. Obrigado Flecha

Raphael, Estive olhando os fóruns e achei o erro. Estava na sequência de leitura na primeira parte da sub INSERT IN TO tem que coincidir com a segunda REPLACE na mesma ordem e não estava, dai o erro. Consegui colocando a strsql = msgbox e ai comparei a atribuição de cad campo. Obrigado Flecha

Quem pode ajudar!! Tenho um form onde mostra uma listview com os registros e campos que escolhi e abaixo os textboxes dos dados completos do registro que esta destacado no listview. Quando escolho um registro do listview e clico em alterar a função habilita os textboxes, faço a ateração e clico em gravar e pronto. Retorna o comando para a listview e o registro ficou alterado e salvo no BD. Acontece que se eu escolher Incluir ele habilita os textboxes para inclusão, aceita os dados e quando clico em gravar dá o seguinte erro: TIPO DE DADOS INCOMPATÍVEL NA EXPRESSÃO DE CRITÉRIO Não sei como consertar. Caso eu inclua um ON ERROR RESUME NEXT o registro até vai para o listview e eu achava que estava no BD mas não salva. Segue ocodigo do botão salvar/editar [Private Sub cmdSave_Click() '----------------------------------------------------------------------------- 'On Error Resume Next Dim strPhone As String Dim strPhoneCel As String Dim objNewListItem As ListItem Dim lngIDField As Long Dim strSQL As String If Not ValidateFormFields Then Exit Sub strPhone = txtArea.Text & txtPrfx.Text & txtLine.Text strPhoneCel = TxtAreaC.Text & TxtPrfxC.Text & TxtLineC.Text If mstrMaintMode = "ADD" Then lngIDField = GetNextCustID() strSQL = "INSERT INTO Customer( CustID" strSQL = strSQL & " , NOME" strSQL = strSQL & " , RG" strSQL = strSQL & " , ENDEREÇO" strSQL = strSQL & " , cidade" strSQL = strSQL & " , CPF" strSQL = strSQL & " , Bairro" strSQL = strSQL & " , Nacionalidade" strSQL = strSQL & " , Naturalidade" strSQL = strSQL & " , Dtnato" strSQL = strSQL & " , Pai" strSQL = strSQL & " , Mae" strSQL = strSQL & " , Posiçao" strSQL = strSQL & " , Numero" strSQL = strSQL & " , Complemento" strSQL = strSQL & " , Civil" strSQL = strSQL & " , estado" strSQL = strSQL & " , cep" strSQL = strSQL & " , TELRES" strSQL = strSQL & " , TELCEL" strSQL = strSQL & " , Obsa" strSQL = strSQL & " , Cargo" strSQL = strSQL & " , Classe" strSQL = strSQL & " , Exercicio" strSQL = strSQL & " ) VALUES (" strSQL = strSQL & lngIDField strSQL = strSQL & ", '" & Replace$(txtNOME.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(txtRg.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(txtENDEREÇO.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(txtCidade.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(TxtCpf.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(TxtBairr.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(TxtNac.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(TxtNat.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(TxtNasc.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(TxtPai.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(TxtMae.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(TxtPos.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(TxtNum.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(TxtCompl.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(TxtCivil.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(TxtObs.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(Combo2.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(Combo3.Text, "'", "''") & "'" strSQL = strSQL & ", '" & Replace$(Combo1.Text, "'", "''") & "'" strSQL = strSQL & ", '" & txtEstado.Text & "'" strSQL = strSQL & ", '" & txtCep.Text & "'" strSQL = strSQL & ", '" & strPhone & "'" strSQL = strSQL & ", '" & strPhoneCel & "'" strSQL = strSQL & ")" Set objNewListItem = lvwCustomer.ListItems.Add(, , txtNOME.Text, , "Custs") PopulateListItem objNewListItem With objNewListItem .SubItems(mlngCUST_ID_IDX) = CStr(lngIDField) .EnsureVisible End With Set lvwCustomer.SelectedItem = objNewListItem Set objNewListItem = Nothing Else lngIDField = CLng(lvwCustomer.SelectedItem.SubItems(mlngCUST_ID_IDX)) strSQL = "UPDATE Customer SET " strSQL = strSQL & " NOME = '" & Replace$(txtNOME.Text, "'", "''") & "'" strSQL = strSQL & ", RG = '" & Replace$(txtRg.Text, "'", "''") & "'" strSQL = strSQL & ", ENDEREÇO = '" & Replace$(txtENDEREÇO.Text, "'", "''") & "'" strSQL = strSQL & ", cidade = '" & Replace$(txtCidade.Text, "'", "''") & "'" strSQL = strSQL & ", CPF = '" & Replace$(TxtCpf.Text, "'", "''") & "'" strSQL = strSQL & ", Bairro = '" & Replace$(TxtBairr.Text, "'", "''") & "'" strSQL = strSQL & ", Nacionalidade = '" & Replace$(TxtNac.Text, "'", "''") & "'" strSQL = strSQL & ", Naturalidade = '" & Replace$(TxtNat.Text, "'", "''") & "'" strSQL = strSQL & ", Dtnato = '" & Replace$(TxtNasc.Text, "'", "''") & "'" strSQL = strSQL & ", Pai = '" & Replace$(TxtPai.Text, "'", "''") & "'" strSQL = strSQL & ", Mae = '" & Replace$(TxtMae.Text, "'", "''") & "'" strSQL = strSQL & ", Posiçao = '" & Replace$(TxtPos.Text, "'", "''") & "'" strSQL = strSQL & ", Numero = '" & Replace$(TxtNum.Text, "'", "''") & "'" strSQL = strSQL & ", Complemento = '" & Replace$(TxtCompl.Text, "'", "''") & "'" strSQL = strSQL & ", Civil = '" & Replace$(TxtCivil.Text, "'", "''") & "'" strSQL = strSQL & ", Obsa = '" & Replace$(TxtObs.Text, "'", "''") & "'" strSQL = strSQL & ", Cargo = '" & Replace$(Combo2.Text, "'", "''") & "'" strSQL = strSQL & ", Classe = '" & Replace$(Combo3.Text, "'", "''") & "'" strSQL = strSQL & ", Exercicio = '" & Replace$(Combo1.Text, "'", "''") & "'" strSQL = strSQL & ", estado = '" & txtEstado.Text & "'" strSQL = strSQL & ", cep = '" & txtCep.Text & "'" strSQL = strSQL & ", TELRES = '" & strPhone & "'" strSQL = strSQL & ", TELCEL = '" & strPhoneCel & "'" strSQL = strSQL & " WHERE CustID = " & lngIDField lvwCustomer.SelectedItem.Text = txtNOME.Text PopulateListItem lvwCustomer.SelectedItem End If mobjCmd.CommandText = strSQL mobjCmd.Execute SetFormestado True mblnUpdateInProgress = False End Sub ] O projeto esta disponível no link abaixo http://www.4shared.com/file/103833037/fe79...va_incluso.html Flecha

Kuroi, Obrigado a conexão é ADO e um form só. Já inclui no fim das subs de Inclusão e Exclusão Só tá funcionando na de exclusão. Flecha

Olá, Quem pode ajudar no seguinte: No Form de abertura criei um label para mostrar a quantidade de registros no BD que é lido pelo função recorcount. Só que quando eu incluo ou excluo um registro o count permanece o mesmo, só vai mudar na nova abertura do form ou execução do programa. Tem um comando para colocar para recontar a cada inclusão ou exclusão? Flecha

Kuroi, Eu estava estudando o código e os relatorios, Eu criei o Report1 que foi meu primeiro relatorio. depois criei o Report2 que foi o segundo. Depois foi criado a opção que usa a formula, mas não foi criado um relatório para colocar a formula e notei que pelos dados que sai impresso no detalhe ele usa o report1. SOLUÇÃO É isso ai, coloquei o reportFileName na linha da opção com o nome do report1 e deu certo o UCase na fórmula dá erro, ai eu transformei a variavelç strValor depois do inputBox strValor = Ucase(strValor) ai deu certo. Funcionou Quem sabe sabe.... Até a próxima. Flecha

kuroi, Quanto as combos já responderam e esta OK. Quanto ao Ucase vou testar. Mas nas opcões não entendi e vou repetir aqui as Opções da procedure: Se for a primeira que é optreport(0) ---->funciona legal usa o report1 criado If optreport(0).Value = True Then With CrystalReport1 .DataFiles(0) = GetAppPath() & "Cust.MDB" .ReportFileName = GetAppPath() & "Report1.rpt" .SelectionFormula = "" .Action = 1 End With Se for a segunda optreport(1) -----> é a que dá o erro se for escolhida quando eu abro o form de impressão e escolho qual delas. entre 1, 2, e 3. Usa o report2 criado para opção 2 mas coloca o selectionFormula. ElseIf optreport(1) = True Then Dim strCargo As String Dim strValor As String strCargo = Combo1Rel.Text strValor = Combo2Rel.Text With CrystalReport1 .DataFiles(0) = GetAppPath() & "Cust.MDB" .SelectionFormula = "{Customer." & strCargo & "} = '" & strValor & "'" .Action = 1 End With Se for a opção optreport(2) ------> funciona legal usa o report2 criado Else: optreport(2) = True With CrystalReport1 .DataFiles(0) = GetAppPath() & "Cust.MDB" .ReportFileName = GetAppPath() & "Report2.rpt" .SelectionFormula = "" .Action = 1 End With End If Exit Sub Acho que é isso, onde esta o erro? Flecha

Macêdo, Valeu funcionou e já inclui no projeto. Flecha

Ola, preciso saber como faço e se é possível 3 combobox da seguinte forma Combo1 Cargo Local Combo2 Auxiliar Carregador Contador São Bernardo Diadema Juquitiba Combo3 Shopping Bar Farmácia Armazem Quando na combo1 for escolhido LOCAL, na combo2 só mostra São Bernardo, Diadema e Juquitiba Quando na combo1 for escolhido CARGO, na combo 2 só abre Auxiliar, Carregador, Contador. Quando na combo2 for escolhido DIADEMA, na combo 3 só aparece Farmácia e Armazem. Acho que é isso ai. Flecha

Ola, Postei dúvida mas o correto era em VB. Não sei como apagar o que foi colocado errado no forum. Flecha

Kuroi, Falei que voltava!! O código Load do form de tipos de impressão Private Sub Form_Load() '------------------------------------------------------------------------ CenterForm Me Combo1Rel.AddItem "CARGO" Combo1Rel.AddItem "EXERCICIO" Combo2Rel.AddItem "AGENTE POLICIAL" Combo2Rel.AddItem "AUXILIAR DE PAP." Combo2Rel.AddItem "CARCEREIRO" Combo2Rel.AddItem "INVESTIGADOR" Combo2Rel.AddItem "PAPILOSCOPISTA" End Sub Codigo do botão OK do Form de Tipos de impressão para as Opções On Error GoTo cmdOK_Click_Error If optreport(0).Value = True Then With CrystalReport1 .DataFiles(0) = GetAppPath() & "Cust.MDB" .ReportFileName = GetAppPath() & "Report1.rpt" .SelectionFormula = "" .Action = 1 End With ElseIf optreport(1) = True Then Dim strCargo As String Dim strValor As String 'strCargo = InputBox("Escolha um Campo: Nome, Cargo ou Exercicio.", "Nome do Campo") 'strValor = InputBox("Entre com o texto em LETRAS MAIUSCULAS a coincidir no campo escolhido anterior.", "Opção de Impressão") strCargo = Combo1Rel.Text strValor = Combo2Rel.Text With CrystalReport1 .DataFiles(0) = GetAppPath() & "Cust.MDB" .SelectionFormula = "{Customer." & strCargo & "} = '" & strValor & "'" .Action = 1 End With Else: optreport(2) = True With CrystalReport1 .DataFiles(0) = GetAppPath() & "Cust.MDB" .ReportFileName = GetAppPath() & "Report2.rpt" .SelectionFormula = "" .Action = 1 End With End If Exit Sub cmdOK_Click_Error: MsgBox "The following error has occurred:" & vbNewLine _ & Err.Number & " - " & Err.Description, _ vbCritical, _ "cmdOK_Click" End Sub Eu estou retirando as perguntas ao usuário de o que imprimir (inputBox) Acrecentei duas combobox combo1Rel para o campo da tabela "cargo" exercicio" e combo2Rel para o conteudo do campo onde se escolher cargo na combo1Rel na outra tem que escolher os conteudos na combo2Rel "agente policial" carcereiro" etc... No form as opções estão agrupadas na sequência abaixo: Imprimir geral (usa o Report1) Imprimir com a escolha pela combos (esta usa o SelectionReport) Imprimir por classe e carreiras. (usa o Report2) O erro Quando eu entro no form de imprssão a 1ª opção já vem marcada. Eu mudo para a segunda, a das combos e escolho as opções das combos, clico OK para imprimir e vem o erro: Invalid fila name - 20507 não sei porque. Fecho a tela o erro no OK, o programa volta para a tela do form de impressão e escolho a 1ª opção imprimir geral e funciona ok. Volto para o form clico na opção 2 da combo que até já estão preenchidas quando do erro e só clico na opção 2 e ok funciona perfeito sem erros e ai posso escolher o que quiser das combos. Resumindo : Para não dar o erro na 2ª opção sempre que chamar o form tenho que usar primeiro a 1ª opção ou a ultima e só depois optar pela dos combos. Depois de resolvido isso tenho uma pergunta para os combos, você diz se pode ser aqui. Flecha

Kuroi, Mais uma vez, funciomou. Vou testar mais. Devo voltar, pois vou tentar colocar as opções de Campo e valores por combox para pegar o valor exato porque se digitado errado ou nimusculo não acha ou retorna erro, acho que é possivel não é?? [C.O.D.E] .SELECTIONFORMULA="" fLECHA

kuroi, boa noite. Na verdade é continuação, mas se não for o local favor remover para o local certo. Eu não sei como colocar o código como aparece nas suas respostas, não sei se é possível para você. Então eu vou copiar e colar aqui. É o codigo do btClick da impressão Tem uma sequência de Ifs, pois no form da impressão coloquei 3 Options e quando a pessoa escolhe a opção os Ifs executam o comando de seleção do relatorio.rpt e imprime. o primeiro If é para imprimir todos do BD pelo relatório Report1.rpt OK? o segundo If é para imprimir aquela escolha que fizemos pelo selectionFormula que usa a limha abaixo .SelectionFormula = "{Customer." & strCargo & "} = '" & strValor & "'" Ok? o terceiro If imprime o Nome, RG, CARGO, Classe, e Posiçao de todos os registro do BD usando o relatório Report2.rpt OK? Todos funcionam, mas deve ter um erro, pois se imprimo a 1ª opção imprime correto. Agora escolho a 3ª Opção imprime correto TODOS OS CARGOS e os demais campos do relatório. Como o esperado. Agora quero imprimir pela 2ª Opção, aquela que pede o CAMPO para montar a formula eu escolho CARGO, depois pergunta o valor para o campo CARGO eeu ecolho CARCEREIRO ai ele executa o esperado certinho. Aqui vem o problema: Agora vou escolher a 3ª Opção novamente que deveria imprimir todo o BD com os campos do relatorio Report2.rpt, mas ele imprime só os CARGOS CARCEREIRO, que foi fornecido e atribuido a strValor na opção 2 e deixa de enxergar os outros cargos que deveria imprimir também. Como melhoro meus IFs nesse exemplo ou outra forma de executá-los Segue o codigo: Private Sub cmdOK_Click() '------------------------------------------------------------------------ On Error GoTo cmdOK_Click_Error If optreport(0).Value = True Then With CrystalReport1 .DataFiles(0) = GetAppPath() & "Cust.MDB" .ReportFileName = GetAppPath() & "Report1.rpt" .Action = 1 End With End If If optreport(1) = True Then Dim strCargo As String Dim strValor As String strCargo = InputBox("Escolha um Campo: Nome, Cargo ou Exercicio.", "Nome do Campo") strValor = InputBox("Entre com o texto em LETRAS MAIUSCULAS a coincidir no campo escolhido anterior.", "Opção de Impressão") With CrystalReport1 .DataFiles(0) = GetAppPath() & "Cust.MDB" .SelectionFormula = "{Customer." & strCargo & "} = '" & strValor & "'" .Action = 1 End With End If If optreport(2) = True Then With CrystalReport1 .DataFiles(0) = GetAppPath() & "Cust.MDB" .ReportFileName = GetAppPath() & "Report2.rpt" .Action = 1 End With End If Exit Sub cmdOK_Click_Error: MsgBox "The following error has occurred:" & vbNewLine _ & Err.Number & " - " & Err.Description, _ vbCritical, _ "cmdOK_Click" End Sub Desulpe ficou longo... Flecha

Kuroi, Tinha dado um erro em outro report mas refis o relatorio e deu certo. Flecha Não sei se tenho que criar outro tópico ou continuo aqui se continuar com erro em crystal report, me corrija!!

George, Não entendo nada , só leio e copio códigos, e num livro onde tem um exemplo de selection com datas as data estão no seguinte formato: (aaaa,dd,mm) usando , e não barra. Flecha

kUROI, Você é o cára. Deu certo, agora eu vou criar várias opções de relatorios e bolar o modo de escolhe-los em um outro form. Posso também colocar a instrução AND no selection? Até a próxima EMPACADA. você pegou o projeto? Felcha

Kuroi, Ainda não Mesmo erro pega o projeto no site acima é pequeninho. flecha

Karoi, Fiz a alteração retorna erro run-time error 20515 '{Customer.strCargo} = INVESTIGADOR' This field name is not known deve ser na aspa dupla ou simples, pois na tela do erro a condição aparece o valor da strValor que eu coloquei INVESTIGADOR e no começo da frase aparece Customer.strCargo Flecha

Kuroi Ficou assim Private Sub Command1_Click() Dim strCargo As String Dim strValor As String strCargo = InputBox("Entre com o Campo, Cargo", "Nome do Campo") strValor = InputBox("Entre valor, Qual Cargo", "Qual Cargo") With CrystalReport1 .DataFiles(0) = GetAppPath() & "Cust.MDB" .SelectionFormula = "{Customer.strCargo}"= strValor .ReportFileName = GetAppPath() & "Report1.rpt" '.Destination = 0 (para tela) '.SortFields(0) = "+{Cust.Nome}" (Ordena) '.Action = 1 ' 1 = "Run the Report" CrystalReport1.Action = 1 End With 'CrystalReport1.Action = 1 ' Ativa relatório End Sub Esta retornando o relatorio sem dados E agora onde esta errado? Postei o projeto aqui http://www.4shared.com/file/102477095/41cf...unc_ADO_ok.html Flecha

Olá, Para meu projetinho ficar completo, falta variar os tipos de relatorios. Ai eu descobri o tal de SelectionFormula do Cristal. Pergunto: Posso criar variavel para receber uma string para armazenar o campo de seleção e a opção a selecionar para depois passa-las na formula do SelectionFormula; Tipo Um imputBox pergunta qual campo quer e outro qual Valor. Reort1.SelectionFormula = {minhaTabela.VARIAVEL do campo} = "VARIAVEL do valor" Pode isso? Flecha

Kuroi, É isso ai mesmo eu coloquei o path do relatorio e deu certo. Valeu. Flecha

Kuroi, Descobri o erro esta dando porque ele não acha o relatorio .rpt, acontece que quando eu criei o Objeto Crystal Report1 no Fornulário ele pede o caminho do meu relatorio .rpt e ele esta na pasta do projeto. Quando eu crio o setup ele junta tudo e cria no diretorio que foi imformado no Setup, dai vem o problema quando rodo o exe ele procura o .rpt no diretorio do projeto que só existe em minha máquina. Agora eu não sei como consertar sem criar uma pasta com o mesmo nome e caminho só com o .RPT dentro para o programa achar. Flecha

A mensagem é Invalid File Name OBS: na minha máquina eu tenho instalado o Crystal Report 11, mas não criei o relatorio por ele e sim pelo crystal do add ins Report Designer que abre o Crystal do vb¨6 Product 4.6.1.0 CRW32 4.6.1.116. Hoje tentei instalar na máquina do serviço (não tem o Crystal) s´o Officce e VB6 também da o mesmo erro no site do Macoratti tem uma relação de arquivos que devem ser carregados para usar o crystal e tenho todos na máquina. Descobri que o erro esta na linha .Action = 1 já mudei para CrystalReport.Action = 1 e continua o erro Como posso mandar o fonte para analizar? Flecha