[Resolvido]Como imprimir um registro no formulario correto ?

Preciso de uma ajuda por favor.

Tenho um banco de dados ao qual cadastrei 2 equipes de crianças para páscoa e preciso imprimir seus crachás, minha dificuldade é criar um botão que ao clicar peça o código da criança ( exemplo numero 100 )  e em seguida ele tem que imprimir o registro no formulário A mas se eu digitar o código da criança 80 ele tem que imprimir o registro no formulário B pois os formulários tem tamanho e formas diferentes!

Senão toda vez antes de eu imprimir eu sou obrigado a verificar a qual time aquela criança pertence para então abrir o formulário correto para somente depois eu imprimir. Já cansei de imprimir crachás no tamanho errado     Sobre este sistema esqueci de mencionar que para o sistema poder melhor identificar o crachá ja esta  relacionado ao código da criança um campo [TIME] OU CATEGORIA em listbox ou dropbox na hora do cadastro, onde seto se é do time azul, vermelho ou outro time. Se o código for do time azul imprime em formulário (A) se for do time vermelho imprimi em formulário (B). etc.. dependendo do código o crachá será impresso no formulário com as dimensões corretas.

O nome dos dois formulários são:

CRACHA1 E CRACHA2

Desde já agradeço a todos.

Boa noite.
Bem vindo ao fórum.
Amigo isso é fácil de fazer, mas você não prefere postar esta parte do seu banco pra gente analisar?
Fica mais fácil de idealizar o funcionamento e ajudar melhor.

É mais ou menos assim:

DoCmd.OpenReport "SeuImpresso", acViewNormal, "[Código] = Forms![SeuForm]![Código]"

Mas o ideal é ver o sistema

Olá Claudio Machado tudo bem

Muito obrigado por me responder.

Esta linha de código:

DoCmd.OpenReport "SeuImpresso", acViewNormal, "[Código] = Forms![SeuForm]![Código]"

Eu coloco no evento ao clicar do botão? mas isso vai imprimir no formulário correto já?  porque existem vários formulários!

Vc poderia comentar pra mim por favor.

Att.: Daniel E.

Bem como havia dito antes, o ideal é o ver o seu sistema, mas vamos lá.

Coloque no seu botão imprimir.

Código:


If Me.ComboTime = "Azul" Then

DoCmd.OpenReport "CRACHA1", acViewNormal, "[Código] = Forms![SeuForm]![Código]"

Else

DoCmd.OpenReport "CRACHA2", acViewNormal, "[Código] = Forms![SeuForm]![Código]"

End if



Retorne por favor.

Olá Cláudio muito obrigado por me dar esta ajuda.

Primeiramente muito obrigado por me dar atenção pois fui em vários fóruns e nunca fui respondido!

1 - Primeiro eu clico no botão IMPRIMIR:

2 - Logo o programa me pergunte o código da criança:

3 - Depois que eu inserir o código e apertar ENTER :

4 - O programa faça a verificação e identifique automaticamente de qual time esta criança pertence:

5 - Após identificado de qual time, abra o formulário correto do crachá com os dados carregado referente ao código da criança.

Se vc conseguir me ajudar ficaria muito grato. Ah outra coisa vi que vc colocou duas condições apenas de time, como faço para eu poder colocar mais condições if e else ?

Pois quero fazer mais um formulário para criança do time verde.

Att.: Daniel Elias.

Bom dia.
Amigo olha só, eu posso te ajudar facilmente com isso, inclusive melhorando seus códigos, mas sem ver a estrutura do seu sistema fica difícil pacas!
Posta esta parte do seu sistema pra gente analisar, senão não até dá pra ajudar, mas temos que ficar adivinhando nomes de campos, nomes de forms, nomes de reports e etc.

Olá tudo bem Claudio!

Segue o código

Private Sub BTIMPRIMIR_Click()


' XXXXX????XXXXXX ' AQUI TERIA DE TER UMA LINHA PARA CHAMAR PRIMEIRO O CÓDIGO DA CRIANÇA:


If Me.CrachaGalera = "CRACHA1" Then ' AQUI VERIFICA QUE TIPO DE CRACHÁ A CRIANÇA SE ENQUADRA  E ASSIM ABRE O FORMULÁRIO CORRETO JÁ CARREGADO COM O REGISTRO


DoCmd.OpenReport "CRACHA1", acViewNormal, "[CodigoGalera] = Forms![CRACHA1]![CodigoGalera]"  'AQUI ABRE O RELATORIA CRACHA1

Else

DoCmd.OpenReport "CRACHA2", acViewNormal, "[CodigoGalera] = Forms![CRACHA2]![CodigoGalera]"  'AQUI ABRE O RELATORIA CRACHA2
End If
End Sub


============================================================
O botão não pede o código antes de imprimir,  ao clicar vai imprimindo todo..
============================================================

É você não entendeu o que é postar a parte do sistema, só posta imagens de print do seu sistema.

Vou tentar.

Coloque este código e teste:

Código:


    Var_CodigoGalera = InputBox("Informe o Código.", "Informando")

If StrPtr(Var_CodigoGalera) = 0 Or StrPtr(Var_CodigoGalera) = Null Then
    MsgBox "Por favor Informe o Código.", vbCritical, "Atenção"
    DoCmd.CancelEvent
Else

If Me.CrachaGalera = "CRACHA1" Then ' AQUI VERIFICA QUE TIPO DE CRACHÁ A CRIANÇA SE ENQUADRA  E ASSIM ABRE O FORMULÁRIO CORRETO JÁ CARREGADO COM O REGISTRO


DoCmd.OpenReport "CRACHA1", acViewNormal, "[CodigoGalera] = Var_CodigoGalera"  'AQUI ABRE O RELATORIA CRACHA1

Else

DoCmd.OpenReport "CRACHA2", acViewNormal, "[CodigoGalera] = Var_CodigoGalera"  'AQUI ABRE O RELATORIA CRACHA2
End If
End If
End Sub


Código:


Private Sub Comando118_Click()
    Var_CodigoGalera = InputBox("Informe o Código.", "Informando")

    If StrPtr(Var_CodigoGalera) = 0 Or StrPtr(Var_CodigoGalera) = Null Then
        MsgBox "Por favor Informe o Código.", vbCritical, "Atenção"
        DoCmd.CancelEvent
    Else

    If Me.CrachaGalera = "CRACHA1" Then ' AQUI VERIFICA QUE TIPO DE CRACHÁ A CRIANÇA SE ENQUADRA  E ASSIM ABRE O FORMULÁRIO CORRETO JÁ CARREGADO COM O REGISTRO


    DoCmd.OpenReport "CRACHA1", acViewNormal, "[CodigoGalera] = Var_CodigoGalera"  'AQUI ABRE O RELATORIA CRACHA1

    Else

    DoCmd.OpenReport "CRACHA2", acViewNormal, "[CodigoGalera] = Var_CodigoGalera"  'AQUI ABRE O RELATORIA CRACHA2
    End If
    End If
    End Sub



esta aparecendo o erro de compilação!

è impossível localizar objeto ou biblioteca , ja ativei algumas na referencia mas não sei qual a correta, vou ficar tentando aqui.


Cláudio até que enfim aprendi a colar o código kkk muito obrigado pela ajuda que vc está me dando.

Como eu disse antes, seria melhor você postar esta parte do seu sistema, já tinha resolvido há muito tempo.
Mas....

Olá Claudio tudo bem

Ativei algumas bibliotecas em REFERENCIAS mas continua dando o mesmo erro:

Impossivel localizar objeto ou bilioteca!

segue anexo algumas imagens das que ativei.

Att.: Daniel

Bom dia.
Daniel, pela milésima vez vou dizer pra você.
Se não postar seu sistema aqui no fórum pra eu te ajudar, amigo simplesmente você terá que esperar outra pessoa te ajudar, porquê sem isso eu não te ajudo mesmo.
Não dá pra ficar adivinhando as coisas que acontecem no seu sistema sem ver e você fica postando imagens da sua tela.
Desculpa amigo, mas é assim que o fórum funciona.
No aguardo.

Olá Cláudio tudo bem


Como faço para postar o sistema todo ? Desculpe mas sou muitooo leigo nesta parte !
Queria poder acabar logo esta parte do botão pois quero fazer os crachás até o dia das crianças.

Att.: Daniel

Qualquer coisa poste um link com videos, qualquer coisa que me ajude a postar o código.

Compacte seu sistema se não for muito grande.

E faça como a imagem abaixo.

Olá Cláudio muito obrigado!

Segue anexo o banco, ali onde tem as imagens eu já resolvi o

problema do objeto OLE incorporado pois a partir do novo banco eu

coloquei somente o endereço em uma coluna e as imagens em uma

pasta referenciada pois estava ficando enorme,
lembrando que a senha é: 66

lembrando que a senha é: 66

lembrando que a senha é: 66

Muito obrigado e um ótimo fim de semana!

segue anexo

Que coisa !esta dando erro na hora de enviar o anexo, segue imagem

Tente aqui.
É o melhor d todos.

https://www.dropbox.com/pt_BR/

https://www.dropbox.com/home?preview=PASCOA+CRACHAS.accdb

Olá Cláudio obrigado!

Veja se consegue baixar ok.

Segue o link:

https://www.dropbox.com/home?preview=PASCOA+CRACHAS.accdb

Amigo está faltando alguma coisa. o link não funciona.

Deve estar assim mais ou menos:

https://www.dropbox.com/s/hnvakneh7fftixr/CONSULTA_MAXIMO_ACCESS.zip?dl=0

https://www.dropbox.com/s/wfkrw9y81sddmv3/PASCOA%20CRACHAS.rar?dl=0

agora acho que vai dar certo!

Seu banco está com senha.
Complicado hein amigo....

Oi Claudio tudo bem

A senha é 66

já fiz de tudo pra tirar esta senha mas não da certo.

Desculpe amigo!

Veja se é isso.

No aguardo.
Agora não entendi de onde o report CRACHA2 busca um Nº ?
Procurei e não encontrei isso.

Daniel

Para retirar a senha do aplicativo é preciso abrir-lo em modo exclusivo:


1- Abra o Access e clique em Abrir;

2- Na janela Abrir, apenas selecione o teu aplicativo;

3- No botão abrir dessa janela, clique na setinha para baixo e escolha: Abrir exclusivo;

4- Uma vez aberto, vá em opções -> informações;

5- Cliquem em Descriptografar banco de dados;

6- digite a senha e então feche e abra o banco de dados já sem a senha.


[ ]'s

Boa Noob.
Havia esquecido de fazer esta parte pro amigo.
Segue novamente.

Olá Cláudio tudo bem

Desculpe em não responder antes pois eu estava trabalhando externamente e só posso entrar na internet aqui no escritório pois onde morro
é retirado da cidade e não pega net.

Mas o que eu quero é o seguinte:

1 - Primeiro eu clico no botão IMPRIMIR daquele formulário que já abre sozinho no inicio (vamos dizer formulário de cadastro e pesquisa):

2 - Logo o programa me pergunte o código da criança:

3 - Depois que eu inserir o código e apertar ENTER :

4 - O programa faça a verificação e identifique de qual time esta criança pertence e assim abrindo outro formulário correspondente ao time da criança:

5 - Após aberto o formulário correto do crachá com os dados carregado referente ao código da criança tenha um botão imprimir.


Desculpe se talvez eu não soube expressar corretamente a minha necessidade antes, queria muito poder utilizar este sistema agora para fim de ano pois sempre faço brincadeiras pra criançada no meu sitio e reúno a comunidade, mas imprimir estes crachás esta me dando um trabalhão.

Daniel

Vamos lá, ver se conseguimos?

Bem, vi que retirou o código para colocar o código e foi pros finalmente.

Acredito que o que está "pegando" é o fato do nome CRACHA2 estar escrito CHACHA2

Veja se é isso!

[ ]'s

Bom dia.
Veja se agora é isto que quer.
O relatório Cracha 2 ele continua pedindo um Número que não sei de onde vem isto. Acho melhor você recriá-lo.

No aguardo.

Olá Cláudio tudo bem!

Problema resolvido! Era isso mesmo que eu necessitava.

Sem palavras para expressar sua dedicação com as pessoas, dedicação esta que não pede nada em troca! Sabe são pessoas assim que fazem
a diferença.

Muito obrigado pela sua paciência pois mesmo sabendo que eu sou inexperiente em programação me ajudou mesmo assim.

Obrigado mesmo!

Ass.: Daniel Sistemas.

Que bom que resolveu amigo Daniel .
É pra isso que o fórum existe, para ajudarmos uns aos outros sem nada em troca.
Minha recompensa é saber que ajudei o próximo.
Obrigado e volte sempre que precisar.
Saudações.