Flecha

Pessoal, Rodando por ai achei a sub abixo e coloquei no inicio da minha que esta acima, alterei o IdTitular por RG e funcionou Dim IDsEncontrados As Recordset If Not IsNull(Me.IdTitular) Then strSQL = "SELECT IdTitular FROM Titular WHERE IdTitular = " & Me.IdTitular & "" Set IDsEncontrados = CurrentDb.OpenRecordset(strSQL) If IDsEncontrados.RecordCount <> 0 Then DoCmd.OpenForm "NomeDoSeuForm", acNormal, ,"IdTitular = " & IDsEncontrados("IdTitular") End If End If Flecha

Leandro, Baixei seu exemplo, mas nos forms não tem campos e os modulos não diz nada sobre registros. Será que o link é do exemplo que você queria mandar mesmo? Flecha

MrMalj Não entendi, mas não tem um jeito de colocar no inicio dessa sub uma linha ou linhas que faça essa busca na tabela2 pelo RG do form ativo antes deentra na consulta e se existir o RG na tabela2 ele cancela o evento? Flecha

Kuroi, Eu li em um tópico você explicando mas não entendi, então vou perguntar aqui ecolocar uma parte do arquivo .lst que faz parte do Setup da instalação. Quero instalar o programa exe na pasta c:\arquivos de programas\Cadastro Quero instalar os relatorios na pasta c:\Cadastro\Relatorios Quero instalar os Docs na pasta c:\Cadastro\Doc Segue parte do meu Setup.lst ciado pelo Package Wizard [Setup] Title=Cadastro Exclusivo do DEIC * By Flecha 2010 * DefaultDir=$(ProgramFiles)\Cadastro by Flecha 2010 AppExe=Cadastro Deic.exe AppToUninstall=Cadastro Deic.exe [Setup1 Files] File1=@report2.rpt,$(AppPath),,,2/6/10 1:48:34 PM,7141,0.0.0.0 File2=@report1.rpt,$(AppPath),,,2/6/10 1:45:56 PM,5651,0.0.0.0 File3=@Ficha.doc,$(AppPath),,,2/14/10 11:22:30 AM,392704,0.0.0.0 File4=@Ferias.doc,$(AppPath),,,2/14/10 11:25:48 AM,29696,0.0.0.0 File5=@Cust.mdb,$(AppPath),,,3/12/10 9:41:56 AM,1990656,0.0.0.0 Pode me retornar como altero a linha acima para incluir o diretorio do File1 para eu modificar? Depois o Projeto ao executar o exe busca automático no diretorio ? Obrigado Flecha

Kuroi, Eu coloquei o on error e funcionou. Coloquei a mensagem para cria a pasta. Depois vou testat colocar o código para criar a pasta informando que será criada. Obrigado

Pessoal, Tenho um mdb com duas tabela: tabela1 e tabela2 No form tenho um botão que executa o arquivamento do registro atual da tabela1 na tabela2 e exclui o mesmo da tabela1 Private Sub Comando91_Click() ' Arquiva no Morto (tabela2) excluindo da tabela1 On Error GoTo Err_Comando91_Click Dim stDocName As String stDocName = "F1a" ' Consulta acréscimo na tabela2 DoCmd.OpenQuery stDocName, acNormal, acEdit stDocName = "F2e" 'Consulta Exclusão na tabela1 DoCmd.OpenQuery stDocName, acNormal, acEdit DoCmd.Close Exit_Comando91_Click: Exit Sub Err_Comando91_Click: MsgBox Err.Description Resume Exit_Comando91_Click End Sub como faço para interromper se o registro que esta sendo gravado na tabela2 já existir na mesma? A chave é o campo RG (não autorizado a duplicação) O problema é que quando é executado essa sub e existir o reg na tabela recebedora ele se perde (é apagado da tabela1 e não salvo na tabela2) ficando na tabela2 o registro que lá estava indevidamente e dezatualizado. Acho que é isso. Flecha

Pessoal, Quando instalo o programa esqueço que tem que criar um diretório na raiz com c:\Word Nesse diretorio serão arquivados os documento criados pelo vb concatenando os dados do registro ao .doc. Acontece que esqueço de criar o diretorio e a pasta, ai o programa dá o erro 5152 executa a rotina mas fecha o programa. Quero colocar um tratamento de erro para esse 5152, que se for ele dispara a mensagem para criar a pasta no diretorio c:\ e continua a executar o programa sem interrompê-lo Como fica essa rotina? Flecha

MrMalj, Vou tentar e retorno se funcionou. Obrigado

Pessoal, Sempre que o MDB usa uma DLL ou OCX e mando o arquivo para o Cliente usuário ele não tem instalado na máquina tais arquivos. Tem como mandar junto as dlls e ocxs e criar um bat para tornar mais fácil a instalação para quem não sabe? ou no próprio VBA um módulo que faça isso.? Flecha

Valeu, Eu achei um outro projeto e relamente na Genral declaração tem as referencias a wia.commonDialog. Esse prgram do Macoratti , baixei mas não sei regular, pois a camera esta frente para mim e fica filmando o teto do quarto. Obrigado Flecha

olá, estou tentando adaptar uma rotina para tirar a foto pela WebCan e salvá-la em uma pasta O projeto de exemplo que estou usando está protegido e não deixa alterar. Só tem um Form com a sub abaixo: Private Sub Form_Load() Set Picture1.Picture = CommonDialog1.ShowAcquireImage.FileData.Picture End Sub Esse CommonDialog.ShowAcquireImage não aparece após o ponto (.) como disponível. Não sei se tem alguma coisa no General No form tem uma Picture1 e o commondialog1 Quando se executa o projeto ele abre um form que aciona a webCam, tira a foto coloca ao lado para escolher a melhor e um botão para obter essa imagem que quando clicado ele joga a image para o form1. Eu queria que nesse form1 tivesse um botão para salvar a imagem em um diretório e consegui fazê-lo. Esta faltando a parte que faz o form que tira a foto, que deve estar oculta no projeto. Como posso conseguir isso? Flecha

Pessoal, Estive vendo uns exemplos de proteção no projeto, estou usando um exemplo que o programa roda até uma determinada data que é passada pelo Sub Main() Sub Main() If Command = "Ativar" Then AtivaAplicativo (GUI) Else DesativarEm "10/11/10" End If frmprotecao.Show End Sub Quando o programa bloquear pela expriração do prazo é gravado uma informação no registro do Windows. Acontece que aquele primeiro If , que executa o Command = "Ativar" then não reconhece o argumento colocado na propriedade do projeto na opção Make Command Line Arguments. Para executar a sub e reativar o registro pela sub abaixo; Public Sub AtivaAplicativo(codigo As String) Dim chave As String chave = Left(codigo, 8) If Command = "Ativar" Then SaveSetting "Aplicativo", "Security", chave, codigo End If End Sub Alguém se habilita Flecha

Pessoal, Descobri, tem vários tópicos desse activelock, no próprio Macoratti, e ai eu achei outro escrito por ele que fala sobre rodar novamente o mesmo soft, e ele diz: Se você desejar outra cópia da mesma aplicação que tenha um comportamento diferente , deve mudar a propriedade SoftwareName. Que é do ActiveLock Pronto ai roda outra vez. Começando do Zero, avaliação e Registro E se eu quizesse consertar o mesmo programa que está no Cleinte ?? Só mudo o executável??? Flecha

Kuroi, Deu certo, também apaguei os outros e sem problemas, quando executei depois de fechar ele criou novamete o arquivo PDM com o nome novo. Obrigado Flecha

Legal, Vou copiar o projeto para outra pasta como cópia e "fuçar " nela, pois se der "pau" tenho o original. Obrigado P.S Coloquei outro tópico ai dá uma olhada para ajudar, rs.sr Flecha

Quem não sabe pergunta!!! peguei um exemplo no site do Macoratti sobre o assunto, lá tem também um exemplo para baixar, o link esta abaixo: http://www.macoratti.net/vb_nslc1.htm Funciona direitinho, só que eu mudei a data do sistema para ver se barrava o acesso e barrou, mas agora o programa não funciona mais será que alguém pode me orientar onde tenho que alterar para funcionar novamente ? Ele barra nessa sub: Private Sub Form_Load() If alock.LastRunDate > Now Then MsgBox "Ocorreu uma alteração na data do sistema operacional " _ & vbCrLf & " O programa será encerrado.", vbOKOnly + vbCritical, "Erro de sistema" End End If If Not alock.RegisteredUser Then Me.Caption = "VERSÃO DE DEMONSTRAÇÃO" Else Me.Caption = "VERSÃO REGISTRADA" lblaviso.Visible = False lblregistro(2).Enabled = False End If End Sub Kuroi aprendi a colocar o código dentro do CODE... Onde está esse LastRunDate para apagar o que tem dentro?? Não sei se tem que apagar algo no registro. Grato Flecha

Kuroi, remover = apagar, deletar ? Ai tenho que pegar ele de outra cópia e salvá-lo dentro do projeto em questão com o nome que eu quero? Isso tudo dentro do VB6.? Flecha

Olá eu não sei se pode então peço orientação. tenho o projeto com esses arquivos: prjADOCustMaint (visual basic Project Workspace) prjADOCustMaint (Visual Basic Project) prjADOCustMaint (Arquivo PDM) e quero mudar por ex: para Cadastro Pode? Flecha

Kur, Vou esperar a próxima vez que der o problema eanota. Quanto ao .exe foi quando eu fui gerar o .exe e ai ele "caguetou" que estva faltando os arquivos e informava onde ele deveria estar, ou onde procurou. Agurade qu vou anotar também. Quano acontecer novamente retorno nesse mesmo tópico. Obrigado. Flecha

Olá, Tenho o costume de aós alterar o projeto salvá-lo pela barra de ferramentas no icone de Disquete. As vezes eu não altero nada e ele antes de fechar perguta se quer salvar. Depois disso, esta tudo funcionando no PC. Salvo a pasta inteira no Pen drive ( copiar e colar) Levo para o serviço e coloco no pc do Serviço (copiar e colar), quando executo o projeto começa a informar que não conseguiu localizar form... ou não sei o que .bas. Quando chego em casa e rodo o mesmo projeto que esta no Pen drive pelo proprio pen ele roda OK. O que esta ficando no projeto dependendo do meu PC, pois fui gerar o exe e parou dizendo que tinha uns objetos e informando o diretório que tenho cópia do mesmo projeto ou seja de onde eu copiei para o Pen. Tenho que salvar de outro modo, quando salvo o projeto não salva tudo dele? Flecha

Kuroi, Obrigado, é isso ai. With cr1 Apaguei o outro form e tudo bem. Resolvido Flecha

Kuroi, Como esta relacionado a impressão, estou postando aqui, mas se não for deste tópico favor remover. Pessoal, outro problema: Tenho uma tela de opção de impressão com o nome de frmprint (frmprint.frm) Pelo form principal eu chamo esse frmprint por um botão, e quando abre o frmprint tem as opções de impressão e funcionam direitinho. Nesse form que uso, que é chamado para escolher a impressão tem um controle CrystalReport com o nome de cr1. Que tem aquela sub abaixo que dá o erro. Ai, olhando os forms que existem no projeto vi que tem um outro form de impressão Que foi o primeiro que fiz quando estava desenvolvendo a parte de impressão, O nome dele esta como frmCR (frnCRDemo.frm) e dentro dele tem um controle CrystalReport que esta com o nome de CrystalReport1 . E tem a sub para o botão imprimir abaixo: '------------------------------------------------------------------------ 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" .SelectionFormula = "" .Action = 1 End With ........ ........ Eu achei que estava só ocupando espaço e deletei o form (frmCR (frmCRDemo.frm) e Rodei o programa. Pelo Form principal chamo o form de impressão (frmprint (frmprint.frm) ele abre e quando mando imprimir vem o erro: Compile error: Variable not defined E para nessa sub na linha que tem o frmCR: Private Sub SSCommand1_Click(Index As Integer) ‘ Botão Imprimir Select Case Index Case 0 If Option1(0).Value = True Then  With frmCR.CrystalReport1 .DataFiles(0) = GetAppPath() & "Cust.MDB" .ReportFileName = GetAppPath() & "Report1.rpt" .SelectionFormula = "" .Action = 1 End With End IF Esse frmCR é do form que apaguei e ele não é usado. Será que deu para entender, podem me ajudar ? Não posso apagar o form em questão? Tem uma cópia dele no link abaixo: http://www.4shared.com/file/215212614/a4db6e75/Ajuda.html Flecha

Kuroi, eu acho que o Flecha esta tentando atualizar na hora que grava um registro no BD, não acha, pois se for isso a instrucao acima vai resolver traquilamente o problema dele. Flecha veja se funcionou agora. "Sabio o Homem que Inventou a Cerveja"(Platao) Pessoal, Na verdade tenho um sistema antigo rodando em um Depto. e me avisaram que o que esta imprimindo não condiz com os registros existentes. Ai eu lembrei que quando comecei a modificar os relatórios eu havia descoberto uma opção que justamente atualizava o form com o Banco atual e funcionou. Eu acho que é isso mesmo que o George Ferraz mandou fazer. Agora, se eu salvar esse relatório com as novas configurações e mandar por Email para o usuário substituir o arquivo na pasta onde esta instalado o programa e os arquivos usados pelo mesmo irá funcionar ou vou ter que compilar o EXE novamente ? Flecha

O que acontece.. Criei um relatório, imprimo os funcionários, beleza.....Ok Quando excluo uma pessoa ou incluo outra o relatório sai com os registros antigos, parece que o Cristal não se atualiza pelo BD. Onde fica a função ou opção para fazê-lo ler o BD a cada vez que for Imprimir ??? Obrigado Flecha

Kuroi, Eu consegui fazer funcionar, no form do morto funciona tudo, mostra foto do funcionário quando abre o listview normal e quando filtro o listview por RG ou por Nome aparece os regs filtrados coincidentes com o filtro e clicando no listview mostra a foto também. No form do Vivo funciona tudo menos a foto quando filtra, a rotina tem um tratamento de erro para quando não achar a foto ele mostra uma padrão para quem não tem foto. Checanco na janela imediate a variavel esta carregada com o nº do RG passa pela linha de montagem da foto no form mas não monta e vai para o tratamento de erro, mostrando a pradão sem foto. Esta tudo igual ao form do morto que funciona direitinho. Posso mandar o projeto para você analisar? Quanto ao campo ativo e não ativo, achei interessante preciso saber como filtrar. Flecha