MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Imprimir o registo selecionado

    Compartilhe
    avatar
    jportuga
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9
    Registrado : 21/01/2013

    Imprimir o registo selecionado

    Mensagem  jportuga em 12/12/2018, 14:26

    Bom dia

    Tenho uma base de dados  conforme imagem em anexo e tem um botão para imprimir um relatório.



    É um formulário com um subformulário
    o botão tem o seguinte código :

    Private Sub Comando20_Click()
    On Error Resume Next
    Dim strDocName As String
    Dim strFilter As String
    If MsgBox("Deseja imprimir esse registro?", vbQuestion + vbYesNo, "Imprimir") = vbYes Then
    strDocName = "DocumentosImp"
    strFilter = "ID=forms!DocumentosEntrega!ID"
    DoCmd.OpenReport strDocName, acViewNormal, , strFilter

    If Err = 2501 Then
    Err.Clear
    End If
    DoCmd.Close acReport, "DocumentosImp"
    End If

    End Sub

    Como poderei resolver esta situação, preciso de ajuda
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    Re: Imprimir o registo selecionado

    Mensagem  vieirasoft em 12/12/2018, 19:57

    E qual é a dúvida??? explique, por favor!
    avatar
    jportuga
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9
    Registrado : 21/01/2013

    Re: Imprimir o registo selecionado

    Mensagem  jportuga em 13/12/2018, 09:52

    Bom dia Vieira

    Quando clico no botão para imprimir o registo diz o seguinte

    "Valor do Parametro
    Formulários!DocumentosMenu!ID"

    O formulário tem o nome DocumentosMenu e o SubFormulario é DocumentosEntrega
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    Re: Imprimir o registo selecionado

    Mensagem  vieirasoft em 13/12/2018, 10:05

    Vamos lá ver se eu entendo.

    1- Você tem um formulário principal e um subformulário ligado ao principal pelo ID (numeração automática e chave primária). Até aqui tudo correcto.

    2- Para que apareça na impressão, o registo que está a visualizar no ecrã, tem que ter o seguinte código:

    On Error Resume Next
    Dim strDocName As String
    Dim a As String
    a = MsgBox("Deseja visualizar a ficha deste cliente?", vbYesNo, "Confirmar")
    If a = vbYes Then
    Dim strFilter As String
    strDocName = "NomedoRelatório"
    strFilter = "ID= Forms!NomedoFormulário!ID"
    DoCmd.OpenReport strDocName, acViewPreview, , strFilter
    End If

    avatar
    jportuga
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9
    Registrado : 21/01/2013

    Re: Imprimir o registo selecionado

    Mensagem  jportuga em 13/12/2018, 16:43

    Obrigada

    Imprimi agora certo , só que esta o formulário num formulário de navegação continua-me a dar o mesmo erro .
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    Re: Imprimir o registo selecionado

    Mensagem  vieirasoft em 13/12/2018, 16:47

    O sub form está ligado ao formulário principal? E, concretamente, qual é o erro.Ponha aí um print, pois não estou a conseguir perceber se você visualiza o relatório correcto ou não.

      Data/hora atual: 20/2/2019, 22:23