Inffernus

Desculpa companheiro, mas o link tá ruim, não abriu.

Bom.. Então me fala como foi que você fez ai... Eu estou fazendo dessa forma: 1º Crio a consulta, seleciono a tabela e os campos e salvo a consulta com o nome conCodRGC; 2º Em na consulta conCodRGC entro no modo design; 3º No campo que eu quero (no caso codRGC) em o Critérios coloco: Como "*" & Format([Digite o código do Cliente],"999.999-99") & '*' 4º Salvo, e clico em formulário e depois só altero o designer do formulário. É assim que você fez? Porque no meu da erro justamente na virgula em negrito desse critério: Como "*" & Format([Digite o código do Cliente] , "999.999-99") & '*' Se tiver como você postar um modelo também para mim baixar seria excelente. Obrigado pela atenção Alexandre.

Ok companheiro, mas quero apenas descobrir isso mesmo... Mas de qualquer forma obrigado pela tentativa.

já tentei assim também campeão, da erro na virgula. Ai na sua casa funcionou?

Deu erro nessa virgula antes da mascará Alexandre... :mellow:

Bom, deixa eu tentar ser mais claro.... Eu tenho a tabela "tblClientes" que contém os campos: codRGC (chave primária), nome completo, CPF e Endereço completo Certo? Então eu criei uma consulta em cima dessa tabela... "conNomeCompleto". No modo designer da consulta fui no campo "Nome Completo" e coloquei o seguinte critério: Como "*" & [Digite o nome REAL, exemplo: JOSÉ BEZERRA] & '*' Isso fez que quando eu executasse a consulta "conNomeCompleto" ela me pedisse para digitar o nome do cliente, certo? Então o que quero agora é que ao invés de procurar pelo nome do cliente eu crie uma consulta que procure pelo código do cliente "codRGC", e chame essa consulta de "conCodRGC". E coloque uma mascará nos critérios da consulta: 000.000-00 Exemplo: Como "*" & [Digite o código do Cliente, exemplo: 001.052-01] & '*' (só que quando eu fosse digitar utilizasse essa mascará do exemplo) Apenas isso. Obrigado.

Boa noite a todos, gostaria de saber como fazer para minha consulta utilizar uma mascará... por exemplo: (Criei uma consulta para buscar pelo nome da pessoa usando a expressão abaixo na consulta e logo após criando um formulário em cima dessa mesma consulta) Como "*" & [Digite o nome REAL, exemplo: JOSÉ BEZERRA] & '*' (Ou seja, eu executo o formulário criado em cima da consulta e ele pede que eu digite o nome do cliente para buscar na tabela) Gostaria de saber como fazer esse mesmo procedimento de busca, mas agora com uma mascará, porque tenho que fazer uma busca pelo código ao invés do nome do cliente. Exemplo da mascará do código: 000.000-00 Alguém pode me ajudar? Grato.

Tenho uma idéia.. Porque ao invés de imagem você não exporta em PDF? Assim bloquearia qualquer tipo de alteração e deixaria ele como se fosse uma imagem... Muito simples, instale o pdfCreator no seu computador e quando for imprimir o relatório, no lugar da impressora selecione o pdfCreator e ele fará seu relatório virar um PDF. Abraço.

Perfeito Moderador, Obrigado a todos. Pode encerrar este tópico. Abraço!

Opa! Eu fiz da seguinte forma... ----------------------------------------------------------------------------------------- Private Sub Nascimento_data_BeforeUpdate(Cancel As Integer) Dim Idade As Byte If Not [Nascimento data] = 0 Then Idade = DateDiff("yyyy", [Nascimento data], Now) End If If Month([Nascimento data]) > Month(Date) Then Idade = Idade - 1 Else If Month([Nascimento data]) = Month(Date) Then If Day([Nascimento data]) > Day(Date) Then Idade = Idade - 1 End If End If End If Select Case Idade Case Is < 25 Me.Idade = "18 - 24 ANOS" Case Is < 30 Me.Idade = "25 - 29 ANOS" Case Is < 35 Me.Idade = "30 - 34 ANOS" Case Is < 46 Me.Idade = "35 - 45 ANOS" Case Is < 61 Me.Idade = "46 - 60 ANOS" Case Else Me.Idade = "MAIS DE 60 ANOS" End Select End Sub -------------------------------------------------------------------- Só que tem um problema, quando o campo esta vazio da pau... O que devo fazer? E também o que é esse Me.Refresh que você usou no final? ele da pau no meu.

Boa noite, estou com o seguinte problema... Tenho um campo no formulário DATA DE NASCIMENTO: 00/00/0000 e tenho outro campo IDADE com as opções: 18 - 24 ANOS, 25 - 35 ANOS, 36 - 45 ANOS, E, +60 ANOS. Como seria um código para que quando eu digitasse a DATA DE NASCIMENTO: 19/07/1985 (exemplo) o outro campo IDADE automaticamente preenchesse com: 18 - 24 ANOS :huh:

Ah sim! Agora deu certo! Valeu! Mas e quanto a questão das tabelas? ----------------------------------------- Situação: Tenho uma tabela chamada Penitenciária (tblPenitenciaria) e nele existe o registros: UPAAA, UPFOC, UP4. Tenho também as tabelas: tblCela e tblPavilhao que contém as celas os pavilhões das respectivas Penitenciárias... Gostaria de que quando eu escolhece no campo Penitenciaria: UPAAA (exemplo) aparecesse nos campos CELA, somente as celas daquela penitenciária e assim também para os pavihões. ----------------------------------------

Eu fiz em VBA da seguinte forma: No botão que escolho o tipo de documento criei uma código VBA: ---------------------------------------------------------- If [Documento tipo] = "NADA CONSTA" Then [Docomento numero].Enable = False [Docomento orgao].Enable = False [Docomento UF].Enable = False Else [Docomento numero].Enable = True [Docomento orgao].Enable = True [Docomento UF].Enable = True End if ---------------------------------------------------------- Só que não esta funcionando direito, porque quando eu avanço nos cadastros dos clientes e coloco "NADA CONSTA" o campo ficava desativado até nos que estão com outra opção, exemplo: RG. O que esta errado?

Quanto a questão de restringir o preenchimento do campo, é o seguinte: tenho o campo TIPO DE DOCUMENTO (contendo as opções: REGISTRO GERAL, CARTEIRA DE TRABALHO, NADA CONSTA) gostaria que quando o usuário escolhece NADA CONSTA o outro campo do formulário chamado NUMERO DO DOCUMENTO ficasse desabilitado. como seria este código em VBA ou de qual forma eu poderia fazer...

Tenho duas tabelas... Uma tblEstado Que tem todos os estados do brasil E outra tblCidade Que contém todas as cidades dos estados... Gostaria de que quando eu escolhece "ACRE" no campo Estado do formulário aparecesse somente as cidades deste estado que estão na tblCidade. ----------------------------------------- Existe outra situação: Tenho o campo Penitenciária e nele existe estas penitenciárias: UPAAA, UPFOC, UP4 que estão na tabela tblPenitenciaria E também tenho as tabelas: tblCela e tblPavilhao que contém as celas os pavilhões das respectivas Penitenciárias... Gostaria de que quando eu escolhece: UPAAA (exemplo) aparecesse somente as celas e os pavihões desta Penitenciária. ---------------------------------------- Uma dúvida: Como desativar um campo do formulário que não é necessário a pessoa escrever? Exemplo: No campo do formulário "Tipo de documento" contém RG, CPF e NÃO POSSUI DOCUMENTO, gostaria que quando eu escolhe "NÃO POSSUI DOCUMENTO" o outro campo do formulário "Numero do documento" ficasse desativado.

Simples Em Modo Design do formulário vá no campo que você deseja tal opção, clique com o botão direito do mouse e em "formatação condicional" (igual ao excel) coloque que os valores igual a "NÃO" serão vermelho e os igual a "SIM" serão azul ou a cor que desejar. :closedeyes:

A solução que encontrei foi criar para cada Formulário um relatório especifico, para poder usar este código que introduzi em "Ao formatar" do relatório. <_<

Boa noite galera. Seguinte, criei um formulário com 02 fotos que gera um relatório e usei este código para que o relatório exiba as fotos: ---------------------------------------------------------- Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer) If Forms!frmEfetivo!Foto1 <> nil Then Imagem1.Picture = Forms!frmEfetivo!Foto1 Else Imagem1.Visible = False End If If Forms!frmEfetivo!Foto2 <> nil Then Imagem2.Picture = Forms!frmEfetivo!Foto2 Else Imagem2.Visible = False End If End Sub ---------------------------------------------------------- Pra fazer isso entrei em Modo Design no Relatório, apertei F4, e em "Evento", "Ao formatar", digitei tal código, funcionou uma beleza. Porém, tenho um grande problema... Este "frmEfetivo" do código não é meu único formulário, existem outros, tais como: frmNomeReal, frmAlcunha, frmOutrosNomes e etc. Gostaria de saber como faço pra que os outros relatórios também exibam as fotos dos demais formulários. O que deve acrescentar a este código?

Boa noite Leandro, consegui fazer. Criei 2 botões, cada um encontra o caminho da foto. Ficou muito bom. Obrigado. :rolleyes:

Boa noite pessoal, Como falei anteriormente não entendo muito de Access. Estou criando um DB e nele terá dois campos com foto (lateral e frontal), porém, não quero que as fotos ficam armazenadas dentro do Banco de Dados, pois desta forma o mesmo ficaria muito pesado com o decorrer do tempo. Quero especificar o caminho das fotos em um campo do formulário (ex: D:\Minhas imagens\Fotos) e que elas sejam carregadas desta pasta e assim o Access exiba a imagem. Alguém pode me passar tal procedimento? Desde já agradeço. Inffernus :ninja:

Leandro, através de uns códigos que você usou no programa que você deixou em anexo eu consegui fazer funcionar, só que achei o código muito grande para uma função tão simples no meu BD, então o código que o Evanjos deixou era o que eu estava procurando, muito obrigado! Obrigado aos dois! Abraço, Valeu! :rolleyes:

Não existiria uma forma de apenas acrescentar um comando a este mesmo botão? :unsure:

É simples, Se o seu Access é 2007 então clique com o botão direito do mouse naquele simbolo do Office 2007 no Access (canto superior esquerdo) depois acesse "Personalizar barra de ferramenta do Access rápido"... E então vá em "Bando de Dados Atual" e no campo "Exibir Formulário" escolha o formulário que deseja. :rolleyes:

Boa noite pessoal, sou novo no Access... Seguinte, criei um BD com um formulário do qual a pessoa lança informações em uma tabela, e, nesse mesmo formulário introduzi um botão que chama outro formulário p/ impressão com menas informações. Usei o código: Private Sub Botao_Ficha_Click() On Error GoTo Err_Botao_Ficha_Click Dim stDocName As String stDocName = "frmFichaImpressao" DoCmd.OpenForm stDocName DoCmd.RunCommand acCmdPrintPreview MsgBox ("Em Imprimir, Intervalo de Impressão, defina: Páginas De: 1 Até: 1"), [vbExclamation], ("ATENÇÃO") Exit_Botao_Ficha_Click: Exit Sub Err_Botao_Ficha_Click: MsgBox Err.Description Resume Exit_Botao_Ficha_Click End Sub Só que tenho um grande problema, toda vez que clico no Botão "Ficha" o Formulário carrega o primeiro Registro da tabela e não o registro atual! :huh: Gostaria que vocês me falassem qual comando esta faltando para que quando eu clique no botão "Ficha" e ele chama o formulário de impressão o mesmo carregue do principal os dados atuais. :rolleyes: