Formulário Cadastro de Cliente

Boa tarde:
Eu tenho um FrmCliente onde existe esses campos :
CodCli
NomeCli
EnderecoCli
BairroCli
MunicipioCli
EstadoCli
CepCli
Pois bem, quero imprimir esse Cliente com os dados logo que acabo de cadastrar criando um botão de Imprimir no próprio formulário de cadastro . Como tenho pouca experiência preciso de ajuda dos Mestres colaboradores sei quase nada de Access
Sueli

Olá!

Não conprendir muiti bem sua duvida, mais vamos la.

Se você quer imprimir todos os clientes com esse dados sempre que acabar de fazer um cadastro ? você tem que fazer um relatório onde montara da sua forma e de acordo suas necessidades... depois coloca um pequeno código no evento do seu botão de adicionar cliente.

coloque aqui seu banco de dados que faço um exemplo para te...
ou olhe as aulas desse professor que vai te ajuda. youtube.com/watch?v=aVV_x7Rc4R0



ABÇ!!!

Olá Professor boa tarde !
Vou tentar explicar melhor :
Estou cadastrando cliente no frm_Cliente e toda vez que eu cadastro um cliente quero imprimí-lo imediatamente exemplo :
Cadastrei 1 imprimir
cadastrei 2 imprimir
cadastrei 3 imprimir cadastrando o 1000 cliente imprimir somente ele e assim sucessivamente.E quando ele estiver cadastrado e eu puxá-lo outra vez no frm_cliente imprimir sempre que eu estiver no frm_cliente for puxar algum cliente já cadastrado imprimi-lo sem que precise de pergunta tipo qual o codigo do cliente ou coisa assim.

Cordialmente
Sueli

Boa tarde..

Só dando um pitaco..

Sueli, há tempos está aqui a participar do fórum...então, poste no tópico o teu sistema para que possamos lhe ajudar.
Garanto que fica bem mais simples e fácil de lhe auxiliar.

Grato pela compreensão !

boa noite !
Silvio desculpe não saber dizer o que quero mais agora você vai entender
obrigado
Sueli

Bom dia!

estou de mandando seu banco de dados modificado, se não tiver de acordo suas necessidades da um grito aqui que vou tentar de ajuda.
mais pelo o que entendi acho que seja isso.


Olhe no seu Relatório na parte de Fonte de registro, pois coloquei uma simples modificação para que ela abra de acordo o cod_Cliente que esta aberto no frm_ Cliente, agora se o frm_cliente teve fechado ele ira pedir o cod_cliente.



Espero ter ajudado!!!

Feito...

Sueli...sua duvida foi resolvida ?

Boa Tarde
Professor;
não imprime nada somente digitando o Código,mas não seria isso minhas necessidades.
No frm_Cliente não pode ter botao nenhum só o de imprimir pois aqui a coisa vai ser corrida. Cadastrou imprimiu quero dizer quando eu estiver no frmcliente cadastrar e imprimir no ato e se ja tiver sido cadastrado no caso d combomx puxar e imprimir direto sem pergunta e sem botão salvar.
Não pode ter pergunta e nem botao salvar só o de imprimir. O botao em questao imprimir teria que também ir para o próximo registro para que eu possa cadastrar ou puxar pela combox
Att
Sueli

boa tarde !!

Sueli, foi disponibilizado dois exemplos a você, o meu e do amigo silvio.

os dois exemplo não resolveu seu problema?

Boa Tarde Professores ;
Quando eu cadastro no frm_Cliente clico no botão imprimir  não sai nada e compilo vem erro no código do Visual Basic.
Estou enviando o bd para analisar ok
Att
Sueli

Olá Sueli

Olá aos nobres Mestres também. Desculpe a intromissão mas vamos ver se eu consigo ajudar

Lendo atentamente o tópico tive a percepção que vc quer terminar de preencher os campos no seu formulário e ao digamos, sair do último campo já ir para o foco do botão imprimir e ao apertar enter imprima no relatório somente o ultimo registro cadastrado.



Tipo
Cadastrei o João
Aperto enter registra ele na tabela e já imprimi o cadastro dele.

Seria isso ?

Se for, para o feito, basta vc na tabela cadastros deixar os registro no campo código cliente e autonumeração, em ordem crescente.
Depois criar uma consulta baseada na sua tabela cadastro de clientes deixar o campo código cliente como decrescente e na instrução sql depois de SELECT colocar TOP 1

No relatório vc utiliza essa consulta como origem dele ok.

No botão imprimir dentro do seu formulário vc coloca:

DoCmd.RunCommand acCmdSaveRecord  ' Salva o cadastro na tabela
DoCmd.GoToRecord , , acNewRec ' Já limpa o formulário para inserir novo registro
DoCmd.OpenReport "Rel_Cliente", acViewNormal 'abre o relatório e imprime o ultimo registro
DoCmd.Close acReport, "Rel_Cliente" ' fecha o relatório após comando de impressão
Forms!Frm_Cliente.SetFocus ' passa o foco para o formulário novamente
Forms!Frm_Cliente!Nome_Cliente.SetFocus ' deixa o foco no campo nome para inserir novo nome

Para vc testar antes de imprimir, coloquei um botão visualizar só pra vc ver como que fica.
clicando no imprimir vc não irá visualizar e sim será de forma automática tudo.

Abraços e espero que tenha ajudado.

Boa tarde...

Phillip_Junior, essa é a essência do fórum...um ajudar ao outro. E sempre estamos a aprender coisas novas nessa vida.

Fique a vontade para participar do tópico.

Depois da explicação dela...

Sueli escreveu:Boa Tarde
Professor;
não imprime nada somente digitando o Código,mas não seria isso minhas necessidades.
No frm_Cliente não pode ter botao nenhum só o de imprimir pois aqui a coisa vai ser corrida. Cadastrou imprimiu quero dizer quando eu estiver no frmcliente cadastrar e imprimir no ato e se ja tiver sido cadastrado no caso d combomx puxar e imprimir direto sem pergunta e sem botão salvar.
Não pode ter pergunta e nem botao salvar só o de imprimir. O botao em questao imprimir teria que também ir para o próximo registro para que eu possa cadastrar ou puxar pela combox
Att
Sueli

É que eu pude entender também o que ela queria. Vi teu exemplo, ficou bom. Espero que quem postou a duvida, possa entender também


Abraços.

Olá mestre


Vale fazer uma ressalva que olhando agora no seu exemplo anexado a ela, exceto o botão salvar que ela não queria,o seu código
dentro do botão imprimir também estava certo sim.

Private Sub Btn_Imprimir_Click()
'procedimento para imprimir o cliente ou registro específico.

DoCmd.RunCommand acCmdSaveRecord ' Comando para salvar
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "Rel_Cliente"
strFilter = "Cod_Cliente = Forms!Frm_Cliente!Cod_Cliente"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
End Sub

Ocorreu somente que como foi esquecido de adicionar o comando de ser salvo o registro antes de imprimir, e por esse motivo ela estava abrindo o relatório e nada aparecia já que o comando do seu código filtra exatamente o ultimo registro no formulário.

Um abraço

Sinceramente, eu, não usaria a forma como ela montou o FRM. Vai ficar muito fácil errar no cadastro.
Nomes e endereços errados, dados incompletos e outras coisa mais. Por isso a adição do botão salvar com confirmação. Trabalho com isso a muito tempo e sei onde "a coisa" pega legal, por mais que seja corrido, tem que haver uma atenção bem especial quando se tratar de cadastro de clientes.

Mas, vontade seja feita na terra.

Abraços.