MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


+2
le_lo28
Aluizo
6 participantes

    [Resolvido]Imprimir Recibo

    avatar
    Aluizo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 19/01/2010

    [Resolvido]Imprimir Recibo Empty Imprimir Recibo

    Mensagem  Aluizo 10/2/2012, 14:12

    Como faço para imprimir só o registro que está no formulário.
    Quando existe mais de um registro na tabela com o código nº 1 imprimi todos.

    Código que uso:

    Private Sub Comando33_Click()
    If Not IsNull(Me.bytParcela) Then
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Dim Filtro As String
    Filtro = "[codCliente] = " & Str(Me.lngNumContrato) & " And [bytParcela] = " & Str(Me.bytParcela)
    If MsgBox("Deseja Visualizar ou Imprimir?" _
    & vbCrLf & vbCrLf & "SIM - para Visualizar" _
    & vbCrLf & vbCrLf & "NÃO - para Imprimir.", vbYesNo + vbQuestion, "Confirmação") = vbYes Then

    DoCmd.OpenReport "relReciboPago", acViewPreview, , Filtro

    Else

    DoCmd.OpenReport "relReciboPago", acViewNormal, , Filtro

    End If
    End If
    End Sub
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  le_lo28 10/2/2012, 16:11

    Opa!

    Tem certeza que esse filtro está funcionando? Pq vc não cria uma consulta com os dados do recibo e coloca como critério os mesmos do filtro e veja que resultado.

    Se realmente estiver aparecendo dois registro, veja se existe algum outro campo na tbl que vc possa usar para diferenciar um do outro tipo um campo chave primária (ID).

    Falow,


    .................................................................................
    [Resolvido]Imprimir Recibo Assinaturacross
    M@rcelo
    avatar
    Convidado
    Convidado


    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  Convidado 11/2/2012, 21:48

    Aloizio teste este código e retorne para sabermos se deu certo...

    Dim imprime, Nome As String
    On Error GoTo 1
    If IsNull(NomedoCampo) Then
    MsgBox "O registro sem preenchimento!"
    Me.NomeCampo.SetFocus
    Else
    Nome = Me.NomedoCampo
    imprime = MsgBox("Confirma a impresso " & Chr(10) + Chr(13) & Nome, vbQuestion + vbYesNo, "Confirmação")
    Select Case imprime
    Case vbYes
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.OpenReport "NomedoRelatorio", acNormal, , "[código] = Forms![Cliente]![CodCliente]"
    Case vbNo
    DoCmd.CancelEvent
    End Select
    End If

    Exit Sub
    End Sub
    avatar
    Aluizo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 19/01/2010

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  Aluizo 19/3/2012, 16:07

    Meus amigos, minhas desculpas pela demora estava sem acesso.
    Não consegui que imprimisse só um recibo.
    Veja o arquivo em anexo.
    Dê baixa nas duas parcelas nº 1, e veja.

    http://mais.me/download/5T3XF51932012123952
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  JPaulo 19/3/2012, 16:12

    Qual a versão desse banco ?



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Imprimir Recibo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Imprimir Recibo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Imprimir Recibo Folder_announce_new Instruções SQL como utilizar...
    avatar
    Aluizo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 19/01/2010

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  Aluizo 19/3/2012, 16:16

    Access 2003.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  JPaulo 19/3/2012, 16:20

    Esse banco aqui está com formato desconhecido.

    Tente compactar com .zip e anexe aqui.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Imprimir Recibo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Imprimir Recibo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Imprimir Recibo Folder_announce_new Instruções SQL como utilizar...
    avatar
    Aluizo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 19/01/2010

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  Aluizo 19/3/2012, 16:27

    Compactei

    http://mais.me/download/YVAANQ1932012132629
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  JPaulo 19/3/2012, 16:32

    Anexe direto no tópico, em baixo tem um botão para isso.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Imprimir Recibo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Imprimir Recibo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Imprimir Recibo Folder_announce_new Instruções SQL como utilizar...
    avatar
    Aluizo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 19/01/2010

    [Resolvido]Imprimir Recibo Empty Imprimir Recibo

    Mensagem  Aluizo 20/3/2012, 14:14

    bounce
    Anexos
    [Resolvido]Imprimir Recibo AttachmentVED_PROD.zip
    Arquivo em anexo.
    Você não tem permissão para fazer download dos arquivos anexados.
    (67 Kb) Baixado 79 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  Silvio 20/3/2012, 14:36

    Bom dia a todos....

    Com a permissão dos colegas, gostaria de dar uma opinião.

    Ao analisar a tabCliente, notei que a chave primária não está em numeração automática. Para o mim, o correto seria numeração automática.

    Não veio a tabvendas, onde eu acredito que deveria haver uma chave primaria num campo chamado( por exemplo) Codvenda.

    O recibo de vendas, poderia ser gerado sem problema algum baseado nessa chave primaria ( e não no Codcliente), pois o mesmo cliente poderia fazer quantas compras quiser, parcelar quantas vezes achar necessário e não haveria problema algum.

    Bastando apenas criar uma consulta simples com os devidos campos que deseja.

    Penso eu que poderia ser feito assim.

    Abraços e me desculpem a intromissão.

    Silvio



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    spp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 24/10/2011

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  spp 21/3/2012, 21:12

    Aluizo
    Boa noite
    Desculpem a todos
    Lendo o tópico acho que o exemplo que coloco para analise vai resolver seu problema.

    http://speedy.sh/Kftg4/Parcelas-S-P-P.rar
    avatar
    Aluizo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 19/01/2010

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  Aluizo 22/3/2012, 12:48

    Meu amigo SPP, fiz este exemplo baseado no seu.
    Veja que os códigos são idênticos.
    Será que pode imprimir nesse tipo de formulário.
    Coloquei número automático na tabela, como orientou nosso amigo silvio99, mas continua não imprimindo.

    Abraços.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  Silvio 22/3/2012, 14:32

    A todos bom dia...

    Aluizo, eu fiz o download do que colega SPP deixou aqui no post e está virando certinho.
    Fiz algumas alterações em termos de valores e está funcionando.
    Creio mesmo que o grande problema pode estar em tuas tabelas e nos relacionamentos das mesmas ou você deve ter deixado passar algo desapercebido.

    Se puder, limpe os dados autênticos, compacta o BD completo, com tudo mesmo, no formado *.zip e coloque ele aqui, para dar-mos uma boa olhada.

    Grato.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Aluizo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 19/01/2010

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  Aluizo 27/3/2012, 14:28

    Resolvido. Na orientação do Silvio99 em criar um campo de numeração automática. Fiz a chamada pelo número do campo numeração automática e deu certo.

    Abraços e obrigados a todos deste Gigante Fórum.

    Aluizo.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  criquio 27/3/2012, 14:35

    Só faltou clicar no botão Resolvido. Dessa vez eu mesmo clico.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Imprimir Recibo Empty Re: [Resolvido]Imprimir Recibo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:40