Leandro_Pirozzi

Agora sim... If KeyAscii = 13 Then cmdPesq1.Value = True cmdPesq2.Value = False End If Isso no evento keypress de cada campo onde será digitado o que se procura. ai ele vai habilitando o evento click de acordo com o campo text.

O text Ctotal existe?

Galera não deu certo não, porque quando pressiono a tecla ENTER em qualquer parte do form, ele volta na procura novamente. alguém tem uma idéia???

Consegui, peguei o focus dos texts e desativei o default do botao que não seria o da procura do text com o focus. Private Sub txtempresa_GotFocus() cmdPesq2.Default = True cmdPesq1.Default = False End Sub Private Sub txtcodemp_GotFocus() cmdPesq1.Default = True cmdPesq2.Default = False End Sub vlwww galera!

Galera, seguinte: Existe a propriedade "Cancel" e "Default" de um botão que servem para executar o evento click de um botao. Porém eu tenho 2 botões no form e se eu deixo a do botao 1 ativada a do botao 2 não funciona. Ex. Botao1 - Pesquisa por codigo Botao2 - Pesquisa por Nome Se eu deixo Botao1.Default = TRUE o Botao2.Default fica FALSE. Alguém sabe como posso resolver isso? Obrigado!!!

Galera, consegui. Estou postando como ficou. Obrigado a todos. Private Sub cmdcusto_Click() Dim TabRelatorio As ADODB.Recordset sqlc1 = "Select A.ID_PREVIST, A.CODEMP, A.NOMEMPRESA, A.OBSFUNC, A.FUNCPRODPREVIST, " & _ "A.FUNCADMPREVIST, A.AC, A.AREAT, A.NUMESTME, A.INFQUANTEST, A.VEICQUANTEST, A.MUQUANTEST, " & _ "A.TOTHDMEC, A.TOTHDMECX, A.TOTHDMECTOT, A.TOTHDCIV, A.TOTHDCIVX, A.TOTHDCIVTOT, A.TOTHDTECMOV, A.TOTHDTECMOVX, " & _ "A.TOTHDTECMOVTOT, A.TOTGERALHD, " & _ "B.ID_PROP, B.CODEMP, B.EMPRESA, B.CONTATO, B.CUSTO, B.DESPESA, B.ISS, " & _ "B.DATAPRO, B.STATUS, B.SEGURO, B.CONTABIL, B.RECADASTRO, B.CONFRONTO, B.AJUCONTABIL, " & _ "B.EMPLAQ, B.CAUTELA, B.ECOFIN, B.FUNCOMERCIO, B.TECNO, B.ME, B.MU, B.EDIF, B.INSINDUSTRIAL, B.TERRENO, " & _ "B.EQINF, B.VEICULO, B.OUTRO, B.ESTIDESP, B.OBS, B.DATPROXCONT, " & _ "B.VENDA, B.MARCA, B.GARANTIA, B.SIAV, B.SIPAV, " & _ "B.BOOK, B.MIGRASISCONT, B.MANUALNORMA, B.DISPOESPEC, B.FERRADISPO, B.INVENTFISICO, B.FLAG, B.ULTIMA_ALTERACAO " & _ "from CONTATOS_VISTORIA A, CONTATOS_PROPOSTA B " & _ "WHERE A.ID_PREVIST = '" & GridEX5.Value(1) & "' AND B.ID_PROP = '" & GridEX3.Value(1) & "'" Set TabRelatorio = New ADODB.Recordset TabRelatorio.CursorLocation = adUseClient TabRelatorio.Open sqlc1, gDB, adOpenDynamic, adLockReadOnly StrRelat = App.Path & "\Custo.rpt" Set CRApp = New CRPEAuto.Application Set Report = CRApp.OpenReport(StrRelat) Set ReportDb = Report.Database Set ReportRss = ReportDb.Tables Set ReportRs = ReportRss.Item(1) ReportRs.SetPrivateData 3, TabRelatorio Report.Preview Screen.MousePointer = 0 End Sub

pode me ajudar? porque eu ate fiz com 2 recordset mas ele não exibiu os dados dos 2 no relatorio, tipo ou ele carrega um ou carrega o outro.

alguém sabe me dizer o porque do erro? já fiz vários selects, updates e agora preciso desses 2 selects para montar um relatorio e não consigo. Exibe a msg: Operação não permitida quando o objeto esta aberto Dim CRApp As CRPEAuto.Application Dim ReportDb As CRPEAuto.Database Dim ReportRss As CRPEAuto.DatabaseTables Dim ReportRs As CRPEAuto.DatabaseTable Dim Report As CRPEAuto.Report Dim StrRelat As String Public sqlc1 As String Public sqlc2 As String Private Sub cmdcusto_Click() Dim TabRelatorio As ADODB.Recordset sqlc1 = "Select ID_PREVIST, CODEMP, NOMEMPRESA, OBSFUNC, FUNCPRODPREVIST, " & _ "FUNCADMPREVIST, AC, AREAT, NUMESTME, INFQUANTEST, VEICQUANTEST, MUQUANTEST, " & _ "TOTHDMEC, TOTHDMECX, TOTHDMECTOT, TOTHDCIV, TOTHDCIVX, TOTHDCIVTOT, TOTHDTECMOV, TOTHDTECMOVX, " & _ "TOTHDTECMOVTOT, TOTGERALHD " & _ "from CONTATOS_VISTORIA WHERE ID_PREVIST = '" & GridEX5.Value(1) & "' order by DATA_CADASTRO" sqlc2 = "Select ID_PROP, CODEMP, EMPRESA, CONTATO, CUSTO, DESPESA, ISS, " & _ "DATAPRO, STATUS, SEGURO, CONTABIL, RECADASTRO, CONFRONTO, AJUCONTABIL, " & _ "EMPLAQ, CAUTELA, ECOFIN, FUNCOMERCIO, TECNO, ME, MU, EDIF, INSINDUSTRIAL, TERRENO, " & _ "EQINF, VEICULO, OUTRO, ESTIDESP, OBS, DATPROXCONT, " & _ "VENDA, MARCA, GARANTIA, SIAV, SIPAV, " & _ "BOOK, MIGRASISCONT, MANUALNORMA, DISPOESPEC, FERRADISPO, INVENTFISICO, FLAG, ULTIMA_ALTERACAO " & _ "from CONTATOS_PROPOSTA WHERE ID_PROP = '" & GridEX3.Value(1) & "'" Set TabRelatorio = New ADODB.Recordset TabRelatorio.CursorLocation = adUseClient TabRelatorio.Open sqlc1, gDB, adOpenDynamic, adLockReadOnly [b] TabRelatorio.Open sqlc2, gDB, adOpenDynamic, adLockReadOnly ' Aqui é exibido o erro[/b] StrRelat = App.Path & "\Custo.rpt" Set CRApp = New CRPEAuto.Application Set Report = CRApp.OpenReport(StrRelat) Set ReportDb = Report.Database Set ReportRss = ReportDb.Tables Set ReportRs = ReportRss.Item(1) ReportRs.SetPrivateData 3, TabRelatorio Report.Preview Screen.MousePointer = 0 End sub

Vlw cara consegui aqui. Obrigadao, podem fechar.

Galera como bloquear caracteres especiais em campos do tipo Textbox no vb6? Qual seria o código ASC por exemplo para não permitir: aspas simples e dupla? obrigado.

Tenta assim tb. No evento Keypress Select Case KeyAscii Case vbKeyDelete Case vbKeyBack Case 48 To 57 Case Else Beep KeyAscii = 0 End Select boa sorte!!

Acontece um pequeno problema. quando clico para adicionar uma tarefa e especifico um horario no campo. automaticamente o campo do label15 que recebe o Time muda para o horario que especifiquei e começa o relógio a contar como se fosse aquele horário. Por exemplo agora são 16:40 ai cadastro uma tarefa para 16:42 quando clico em salvar automaticamente o relógio do sistema que é exibido no label15 passa para o valor 16:42 e continua correndo o relógio a partir dai. como posso fazer para o relogio do sistema não alterar junto com o horário da tarefa que estou especificando? obrigado.

Seria +/- isso? If GridEX6.Row >= 0 Then If Label15.Caption = rsTarefas!hora Then MsgBox "Tarefa agendada: " & GridEX6.Value(2) & " PARA " & GridEX6.Value(3) & " CONTATO " & GridEX6.Value(4) & "" GridEX6.Row = GridEX6.Row + 1 GridEX6.MoveFirst End If End If

Opa! Voce está com a mesma dúvida que eu. Olha no meu Post lá e tenta fazer como eu fiz. O meu exibe a mensagem direitinho, porém se adiciono mais de uma tarefa para o dia a segunda ele não exibe. Vlwww, vamos ver se conseguimos resolver isso ae. Pra faciliar to postando aqui. Private Sub Timer2_Timer() tempo = tempo + 1 Label15.Caption = Time If Label15.Caption = GridEX6.Value(6) Then MsgBox "Tarefa agendada: " & GridEX6.Value(2) & " PARA " & GridEX6.Value(3) & " CONTATO " & GridEX6.Value(4) & "" End If End Sub No meu caso estou comparando as horas das tarefas com a hora do sistema.

Opa! Bom dia Kuroi, então a propriedade .Value vai me retornar o conteudo da celula no caso a celula 6 que seria o campo da HORA no banco de dados.

Boa tarde galera!! Tenho dados guardados em uma tabela que são exibidos de acordo com o dia. Por exemplo dia 20/07/2009: lista todas as tarefas que foram programadas para o dia 20/07/2009, porém cada tarefa tem um horário. todas as tarefas são exibidas no janus grid. ate ai belezinha. queria saber como mostrar uma msgbox quando for os horários da tarefa. alguém tem idéia? obrigado. Estou tentando fazer o seguinte: Private Sub Timer2_Timer() tempo = tempo + 1 Label15.Caption = Time If Label15.Caption = GridEX6.Value(6) Then MsgBox "Tarefa agendada: " & GridEX6.Value(2) & " PARA " & GridEX6.Value(3) & " CONTATO " & GridEX6.Value(4) & "" End If End Sub 'Até aqui beleza, mas ele so exibe a msg pra quando tenho apenas uma tarefa para o dia. Se por exemplo eu adicionar mais uma tarefa com horario diferente ele não exibe mais a msg, alguém sabe porque? E outra eu queria que assim que exibisse a msg ele mudasse a cor da linha como se a tarefa já estivesse com horario ultrapassado. Tem como fazer isso? Obrigado!

Alguém tem alguma idéia? obrigado!!

então, deixa eu deixar um exemplo aqui de como usar, caso alguém utilize essa ferramenta. Private Sub ButtonBar1_ItemClick(ByVal Item As JSBtnBar16.JSGroupItem) Select Case Item.Key Case 1 'Pessoa Fisica cmdIncluirpf.Visible = True Limpa_CamposPF True Habilita_CamposPF True Esconde_PF True cmdIncluirpf.Enabled = True GridEX1.Visible = False cmdIncluirPJ.Visible = False Case 2 ' Pessoa Júridica end sub Acho que pode fechar o tópico.

Boa tarde galera!! Então, gostaria de saber se consigo utilizar por exemplo no VB o corretor ortográfico do Word, Outlook ou algo do tipo para correção de textos no meu sistema. Obrigado desde já.

opa beleza Kuroi? Então ele é instalado junto com o JANUS GRID 2000. Ai aparece a opção: Janus Button Bar 1.6d for VB6. JSBBar16.ocx Eu gostei e estou me virando com ela. hehehe... se precisar eu tenho pra instalar so me passar seu email que te mando. vlwww.

Consegui, porém continua cortando o texto mesmo fazendo corretamente. Segue o código correto. Select EMPRESA, SubStr(historico, 1, 4000) as HISTORICO, TAREFA, DATATAREFA, HORAINICIO, HORAFIM, ASSESSOR, EQUIPE, CODEMP, TEMPOGASTO From CONTATOS_HISTORICO Where ASSESSOR = 'SOLANGE' and DATATAREFA BETWEEN '26/6/2009' and '26/6/2009' order by DATATAREFA

Marco, acredito eu que seja na parte de conexao. Qual o banco utilizado? Pois se no próprio Preview já está solicitando usuário e senha do banco.

Bom dia a todos. Estou tentando executar o select para converter tipo texto em MEMO para exibir no relatório, porem não estou conseguindo. Uso Oracle. Ele exibe nome de coluna inválido. Segue o código: Select EMPRESA, SUBSTRING(HISTORICO, 2, 8000) as HISTORICO, TAREFA, DATATAREFA, HORAINICIO, HORAFIM, ASSESSOR, EQUIPE, CODEMP, TEMPOGASTO From CONTATOS_HISTORICO Where ASSESSOR = 'SOLANGE' and DATATAREFA BETWEEN '26/6/2009' and '26/6/2009' order by DATATAREFA

Estou com o mesmo problema. Utilizando o Oracle8. alguém sabe o que fazer para o conteudo do campo MEMO ser exibido por completo? não estou utilizando nenhuma formula.

Alguém?