Leandro_Pirozzi

Olá galera, estou fazendo uma tela de procura e gostaria de inserir um gif eqto faz a procura. É possível? Quais componentes preciso? Como fazer? Obrigado!!

Bom não sei se é o correto, mas para atualizar eu chamei a function que exibe os dados e prontinho, atualizou o datagrid. call exibirprev(me)

Hummm...essa ai eu não sabia, vlw a dica. Então deixa so perguntar mais uma coisa, pra o registro assim q o usuario clicar em salvar já exibir no datagrid, tem como? eu coloquei datagrid.refresh, mas não rolou não. obrigado!!

uhuuuuuuuuuuuuuuuuuuuuuuuuuu CONSEGUIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII hahahaha...nem acredito!!! Vlw Kuroi, fui fazendo esse esquema de deletar o campo e fui testando heheheeh... e o pior que não existia nada errado, ele simplesmente ENCANOU com o CAMPO AT, ai fui e mudei o nome para AREAT e belezinha ohhhhhhhh.... FICOU UMA MARAVILHA!!! heheheh... Poutsss nem sei como agradecer, vlw a todos que me ajudaram ai nesse INSERT, se não fosse vocês eu nunca ia conseguir. Vlwwwww galera!!!! Vou postar como ficou o CODE. Private Sub cmdsalvarprev_Click() Dim SQLprev As String Dim icol As Integer If Not Verifica_Prev Then MsgBox "Campo obrigatório vazio, favor verificar.", vbInformation, "Atenção" Exit Sub End If Ativa_Campos_Prev True Set cnprev = New ADODB.Connection With cnprev .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;" .Open End With Set rsprev = New ADODB.Recordset Set rsprev.ActiveConnection = cnprev rsprev.CursorLocation = adUseClient Set rsprev = New ADODB.Recordset SQLprev = "INSERT INTO CONTATOS_PREV " SQLprev = SQLprev & "(CODEMP, NOMEMPRESA, NOMEVISTORIA, DATAPREV, NOMECONTATOVIST, OBSFUNC, FUNCPRODPREVIST, " SQLprev = SQLprev & "FUNCADMPREVIST, AC, AREAT, PPAS, PPAN, PRS, PRN, CPS, CPN, MEATIVEMPS, " SQLprev = SQLprev & "MEATIVEMPN, MEATIVTAGS, MEATIVTAGN, MEEQUIIMPS, MEEQUIIMPN, MEATOS, MEATON, " SQLprev = SQLprev & "NUMESTME, RELPRINCEQUIP, INFQUANTEST, VEICQUANTEST, MUQUANTEST, MUATIVEMPLS, MUATIVEMPLN, " SQLprev = SQLprev & "MUMOVPADRS, MUMOVPADRN, TOTHDMEC, TOTHDMECX, TOTHDMECTOT, TOTHDCIV, TOTHDCIVX, TOTHDCIVTOT, " SQLprev = SQLprev & "TOTHDTECMOV, TOTHDTECMOVX, TOTHDTECMOVTOT, TOTGERALHD)" SQLprev = SQLprev & "VALUES( '" & Me.txtcodemp.Text & "' , " SQLprev = SQLprev & "'" & Me.txtempresa.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTecnico.Text & "' , " SQLprev = SQLprev & "'" & Me.dataVistoria.Value & "' , " SQLprev = SQLprev & "'" & Me.txtnomcontVisto.Text & "' , " SQLprev = SQLprev & "'" & Me.txtObsFunc.Text & "' , " SQLprev = SQLprev & "'" & Me.txtNumFuncProd.Text & "' , " SQLprev = SQLprev & "'" & Me.txtNumFuncAdmin.Text & "' , " SQLprev = SQLprev & "'" & Me.txtAreaConstr.Text & "' , " SQLprev = SQLprev & "'" & Me.txtAreaTerr.Text & "' , " SQLprev = SQLprev & "'" & Me.optPlanAtuSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optPlanAtuNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optRefeiSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optRefeiNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optConstPadroSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optConstPadroNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optativsim.Value & "' , " SQLprev = SQLprev & "'" & Me.optativnao.Value & "' , " SQLprev = SQLprev & "'" & Me.optativTAGsim.Value & "' , " SQLprev = SQLprev & "'" & Me.optativTAGnao.Value & "' , " SQLprev = SQLprev & "'" & Me.optImpSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optImpNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optArqTecSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optArqTecNao.Value & "' , " SQLprev = SQLprev & "'" & Me.txtNumMaqEquip.Text & "' , " SQLprev = SQLprev & "'" & Me.txtPrinEquipPlanta.Text & "' , " SQLprev = SQLprev & "'" & Me.txtQuantItensEstInf.Text & "' , " SQLprev = SQLprev & "'" & Me.txtQuantItensEstiVe.Text & "' , " SQLprev = SQLprev & "'" & Me.txtQuantItensEst.Text & "' , " SQLprev = SQLprev & "'" & Me.optAtivEmplaqSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optAtivEmplaqNao.Value & "' , " SQLprev = SQLprev & "'" & Me.optMovPadroSim.Value & "' , " SQLprev = SQLprev & "'" & Me.optMovPadroNao.Value & "' , " SQLprev = SQLprev & "'" & Me.txtMecHom.Text & "' , " SQLprev = SQLprev & "'" & Me.txtMecDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtMecHomDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtCivHom.Text & "' , " SQLprev = SQLprev & "'" & Me.txtCivDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtCivHomDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTecMovHom.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTecMovDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTecMovHomDia.Text & "' , " SQLprev = SQLprev & "'" & Me.txtTotalTecMovHomDia.Text & "')" cnprev.Execute SQLprev MsgBox "Cadastro de Pré-Vistoria efetuado com sucesso" DataGrid6.Refresh Limpa_Prev End Sub Ahhh só mais uma pergunta, tem alguma maneira de quando eu adicionar esse novo registro ele já exibir no datagrid logo depois de o usuário efetuar o cadastro? obrigado!!! uhuuuuuuuuuu

Opa Macêdo!! Vlw cara consegui fzer aqui pra não deixar gravar valores duplicados e ainda por cima atualizar!! Obrigadão!!!

Opa Kuroi, amanha vou testar desse jeito, porque esse é o único INSERT que está faltando no meu sistema haaha... tow ancioso pra caramba!! obrigado!! amanha posto novidades!!

Macêdo, vlw mesmo cara a força. Consegui dar as permissões utilizando a variável, muito mais fácil para chamar. Obrigadão mesmo!! Confesso que já estava entrando em desespero!!!

Pior que eu já li e reli umas 500x so acho estranho que se faço uma consulta no Access e jogo o valor da SQLprev debugada ele faz o INSERT direitinho, mas na compilação do programa não vai nem que a VACA TUSSA.

não precisa chamar o RECORDSET?

Hummm... tentei fzer mas deu alguns erros. tem como dar mais detalhes? esse with rs_busca não tem o end with? ele tb não precisa ser aberto? .open? desculpa as perguntas é q não entendi mesmo.

Boa tarde, tenho uma tabela de Usuários e senhas os campos são, USUARIO, SENHA E CODUSER. SE CODUSER = 1 USUÁRIO TEM ACESSO DE ADM CASO CODUSER SEJA = 2 SEU ACESSO É DE USUÁRIO COMUM. SENDO ASSIM, SERIA POSSÍVEL FAZER UMA PERMISSAO DE ACESSO, RESTRINGINDO ALGUMAS TAREFAS Q JÁ TENHO NO SISTEMA? OBRIGADO!!

Por exemplo: Tenho uma tela de cadastro de Usuario e senha, como fazer para exibir uma msg que já existe determinado usuário se o mesmo já existir na tabela? Private Sub cmdsalvar_Click() Dim SQLASS As String Dim icol As Integer Set cnass = New ADODB.Connection With cnass .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;" .Open End With Set rsass = New ADODB.Recordset Set rsass.ActiveConnection = cnass rsass.CursorLocation = adUseClient Set rsass = New ADODB.Recordset SQLASS = "INSERT INTO CONTATOS_SENHA " SQLASS = SQLASS & "(CODUSUARIO, SENHA )" SQLASS = SQLASS & "VALUES ( '" & Me.txtnome.Text & "','" & Me.txtsenha.Text & "')" Set rsass.ActiveConnection = cnass 'rsTarefas.Open SQL cnass.Execute SQLASS MsgBox "Cadastro de Assessor efetuado com sucesso" End Sub

AINDA ESTOU COM ESSE PROBLEMA. HELP ME PLEASEEEEEEEEEEEEEEEEEEE :rolleyes:

Opa Kuroi, obrigado pela ajuda. Pelo CRViewer não tem um jeito de ele abrir em uma outra janela igual o Crystal Report Control?

O problema é esse, não estou utilizando CRAXDRT. Olha como estou fazendo: O problema que eu queria filtrar pelo tipo de PORTE da empresa. Mas como tudo esta em uma SUB REPORT não estou conseguindo. Tem alguma solução? Obrigado!! Segue o CODE: Private Sub cmdgerar_Click() If cboramo.Text = "" Then MsgBox "Selecione um Ramo de atividade", vbExclamation, "Advertência" cboramo.SetFocus Exit Sub ElseIf cboPorte.Text = "" Then MsgBox "Selecione o porte da empresa", vbExclamation, "Advertência" cboPorte.SetFocus Exit Sub ElseIf DTPicker1.Value = "" Then MsgBox "Selecione a data inicial", vbExclamation, "Advertência" DTPicker1.SetFocus Exit Sub ElseIf DTPicker2.Value = "" Then MsgBox "Selecione a data final", vbExclamation, "Advertência" DTPicker2.SetFocus Exit Sub Else Dim diai Dim mesi Dim anoi Dim diaf Dim mesf Dim anof diai = Day(DTPicker1.Value) mesi = Month(DTPicker1.Value) anoi = Year(DTPicker1.Value) diaf = Day(DTPicker2.Value) mesf = Month(DTPicker2.Value) anof = Year(DTPicker2.Value) 'Caminho do Banco de Dados CrystalReport1.DataFiles(0) = App.Path & "\CONTATOS.mdb" 'Selecionamos os Registros que se enquadram entre as datas CrystalReport1.SelectionFormula = "{CONTATOS_EMPRESA.ASSESSOR}= '" & frmcademp.txtassessor.Text & "'" & _ " and {CONTATOS_EMPRESA.ATIVEMPRESA}= '" & cboramo.Text & "'" & _ " and {CONTATOS_EMPRESA.PORTE}= '" & cboPorte.Text & "'" & _ " and {CONTATOS_EMPRESA.DATAINC} >= Date(" & anoi & "," & mesi & "," & diai & ")" & _ " and {CONTATOS_EMPRESA.DATAINC} <= Date(" & anof & "," & mesf & "," & diaf & ")" 'Caminho do Relatório CrystalReport1.ReportFileName = App.Path & "\Ramo_Ativ_Semanal.rpt" CrystalReport1.WindowTitle = "Relatório de Ramos de Atividade Semanal" CrystalReport1.Destination = 0 CrystalReport1.Action = 1 End If End Sub

Cara tenta fzer o seguinte: Entra no menu Insert/Summary seleciona a opção COUNT da tabela e o campo que voce quer contar. Verifica se consegue. Flww

Boa tarde!! Gostaria de saber como chamar uma subreport que criei em um relatório com vários campos. Porem não existe uma opção = SelectionFormula para eu selecionar o q o usuário escolheu. 'Aqui estou utilizando no Selection formula porem ele não traz o q o usuario escolheu no campo PORTE. Acredito eu q seja porque ele esta em uma Subreport. {CONTATOS_EMPRESA.PORTE}= '" & cboPorte.Text & "'"

heeheh... GALERA!!! Consegui, olha aqui que simples heehhe... Vlwwww Kuroi e a todos que me ajudaram. Obrigado!!! Segue o CODE: Private Sub cmdprint_Click() If Text1.Text = "" Then MsgBox "Digite a data.", vbExclamation, "Advertência" Text1.SetFocus Exit Sub Else 'Caminho do Banco de Dados CrystalReport1.DataFiles(0) = App.Path & "\CONTATOS.mdb" 'Selecionamos os Registros que se enquadram entre as datas CrystalReport1.SelectionFormula = "{CONTATOS_HISTORICO.ASSESSOR}= '" & txtassessor.Text & "'" & _ " and {CONTATOS_HISTORICO.DATATAREFA}= '" & Text1.Text & "'" 'Caminho do Relatório CrystalReport1.ReportFileName = App.Path & "\relatativdiaria2bd.rpt" CrystalReport1.WindowTitle = "Relatório de Atividades Diárias(Marketing)" CrystalReport1.Destination = 0 CrystalReport1.Action = 1 End If End Sub

Boa tarde pessoas. Então, tenho um timer rodando no sistema belezinha. Acontece que quando clico no botao de cancelar ele continuava contando os segundos.Ai então fiz o seguinte. quando clicar em cancelar timer1.enabled = false bele mas ele somente parou a contagem ai ficou a dúvida e se eu clicar no botao novo de novo??? O correto seria ele começar do ZERO (00:00:00) denovo, mas isso não acontece ele continua da onde parou. Qual a solução para esse meu problema?? Obrigado a todos.

Bom tentei dessa outra maneira tb, mas não vai de jeito nenhum. Ai apresenta esse erro. Private Sub cmdprint_Click() If Text1.Text = "" Then MsgBox "Digite a data inicial.", vbExclamation, "Advertência" Text1.SetFocus Exit Sub ElseIf Text2.Text = "" Then MsgBox "Digite a data final.", vbExclamation, "Advertência" Text2.SetFocus Exit Sub Else 'Caminho do Banco de Dados CrystalReport1.DataFiles(0) = App.Path & "\CONTATOS.mdb" 'Selecionamos os Registros que se enquadram entre as datas CrystalReport1.SelectionFormula = "{CONTATOS_HISTORICO.ASSESSOR}= '" & txtassessor.Text & "'" & _ " and {CONTATOS_HISTORICO.DATATAREFA} >= Date(" & Text1.Text & ") and " & _ "{CONTATOS_HISTORICO.DATACONCUIDA} <= Date(" & Text2.Text & ")" 'Caminho do Relatório CrystalReport1.ReportFileName = App.Path & "\relatativdiaria2bd.rpt" CrystalReport1.WindowTitle = "Relatório de Exemplo" CrystalReport1.Destination = 0 CrystalReport1.Action = 1 End If End Sub

Opa, Kuroi obrigado pela atenção. Então é nessa parte q eu me perco. porque quando eu fiz ele no Crystal tem aquelas opções de database e tals, ali eu fui add os campos tanto que ele cria um label e outro campo em azul com o mesmo nome, acredito eu que seja para receber o q existe no valor do campo, certo? Mas eu queria passar pelo recordset. Vou dar um exemplo, tenho a tabela atividades e preciso gerar um relatório onde a pessoa informa o nome do Assessor em um text e seleciona a data da tarefa em um dtpicker ai quando clicar no botao ele vai nessa tabela e verifica o nome e a data e me traga tudo que a pessoa fez nesse dia. sera q deu pra ter uma idéia? Eu nunca fiz isso por isso to perdidao.

com esse componente ai não sei. com os q eu usava você conseguia criar o relatorio pelo codigo mesmo. mas de qualquer forma, acho q o mais facil é criar no crystal mesmo. então Kuroi. Os componentes que eu vi foram: Na parte de Controls: - Crystal Report Control; E em Designers: Crystal Reports 8.5. A versao é Crystal Reports 8.5. As References são: Crystal Reports 8.5 ActiveX Designer Run Time Library Crystal Report Viewer Control Crystal Reports 8.5 ActiveX Designer Design and Runtime Library O RPT já esta criado sim. Obrigado.

Ve se te ajuda. 'Declara a connection e o recordset no general e a variavel de usuario Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim user As String 'aqui um bota para encerrar caso seja clicado. Private Sub cmdcancel_Click() End End Sub 'aqui vem o botao para logar Private Sub CmdOK_Click() cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BANCO.MDB;Jet OLEDB:Database Password=MyDbPassword;" cn.Open SQL = "select * from TABELA where USUARIO = '" & txtusuario.Text & "' and SENHA = '" & txtsenha.Text & "'" rs.Open SQL, cn, 3, 3 user = txtusuario.Text If rs.EOF Then MsgBox "Nome de usuario ou senha incorretos", vbExclamation, "Erro" txtusuario.Text = "" txtsenha.Text = "" txtusuario.SetFocus Else mdientrada.Show Unload Me End If rs.Close cn.Close End Sub FLwwww

Um amigo me passou as variaveis de como criar um relatorio no Cristal, porem nunca usei e queria saber como fazer. 'DECLARAR AS VARIAVEIS Dim CRApp As CRPEAuto.Application 'variavel para criar uma aplicação de cristal. Dim Report As CRPEAuto.Report 'variavel para abrir o Report Dim ReportDb As CRPEAuto.Database 'variavel para BD. Dim ReportRss As CRPEAuto.DatabaseTables 'variavel para as tabelas do BD. Dim ReportRs As CRPEAuto.DatabaseTable 'variavel para uma tabela Dim OpcRelatorios As CRPEAuto.PrintWindowOptions 'CRIAR ESTA CONSTANTE EM UM MODULO Public Const crJanela = 268435456 Or 524288 Or 65536 Or 131072 Or 16777216 Or 12582912 Or 8388608 'O que significa essas numeraçõe???? 'EXEMPLO Set TabRelatorio = New ADODB.Recordset TabRelatorio.CursorLocation = adUseServer TabRelatorio.Open VarSqlImp, MyDataBase, adOpenDynamic StrRelat = App.Path & "\" & Trim(ParRelatorio) & ".rpt" 'ParRelatorio = NOME DO RELATORIO Tudo bem NOME DO RELATÓRIO, mas eu preciso criar ele no Cristal so pra por o nome dele aqui????? Set CRApp = New CRPEAuto.Application Set Report = CRApp.OpenReport(StrRelat) Set ReportDb = Report.Database Set ReportRss = ReportDb.Tables Set ReportRs = ReportRss.Item(1) Set OpcRelatorios = Report.PrintWindowOptions With OpcRelatorios .HasCancelButton = True .HasCloseButton = True .HasExportButton = True .HasGroupTree = True .HasNavigationControls = True .HasPrintButton = True .HasPrintSetupButton = True .HasProgressControls = True .HasRefreshButton = True .HasSearchButton = True .HasZoomControl = True End With ReportRs.SetPrivateData 3, TabRelatorio Report.Options.ZoomMode = 1 Report.Preview Mid(CmbRelatorios.Text, 10, Len(CmbRelatorios.Text)), , , , , crJanela, MdiPrincipal.hwnd

rsrsr essa eu não conhecia... cara Qual o erro que está aparecendo? hehehe...tá cruel!! então ta mostrando seguinte erro: Erro de sintaxe na instrução INSERT INTO. Ai para aqui ------>>> cnprev.Execute SQLprev ai fui ver o conteudo do sqlprev e deu exatamente o q eu tinha escrito. INSERT INTO CONTATOS_PREV (CODEMP, NOMEMPRESA, NOMEVISTORIA, NOMECONTATOVIST, OBSFUNC, FUNCPRODPREVIST, FUNCADMPREVIST, AC, AT, PPAS, PPAN, PRS, PRN, CPS, CPN, MEATIVEMPS, MEATIVEMPN, MEATIVTAGS, MEATIVTAGN, MEEQUIIMPS, MEEQUIIMPN, MEATOS, MEATON, NUMESTME, RELPRINCEQUIP, INFQUANTEST, VEICQUANTEST, MUQUANTEST, MUATIVEMPLS, MUATIVEMPLN, MUMOVPADRS, MUMOVPADRN, TOTHDMEC, TOTHDMECX, TOTHDMECTOT, TOTHDCIV, TOTHDCIVX, TOTHDCIVTOT, TOTHDTECMOV, TOTHDTECMOVX, TOTHDTECMOVTOT, TOTGERALHD) VALUES( '2498' , 'TELEFONICA S/A' , '' , '' , '' , '4' , '3' , '2' , '1' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , 'False' , '' , '' , '' , '' , '' , 'False' , 'False' , 'False' , 'False' , '' , '' , '' , '' , '' , '' , '' , '' , '' , '')