MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Imprimir o registo selecionado

    avatar
    jportuga
    Novato
    Novato

    Respeito às Regras 100%

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

    Imprimir o registo selecionado Empty 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.
    Imprimir o registo selecionado Access10
    Imprimir o registo selecionado Access12

    É 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 : 7305
    Registrado : 11/05/2010

    Imprimir o registo selecionado Empty 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

    Imprimir o registo selecionado Empty 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 : 7305
    Registrado : 11/05/2010

    Imprimir o registo selecionado Empty 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

    Imprimir o registo selecionado Empty 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 : 7305
    Registrado : 11/05/2010

    Imprimir o registo selecionado Empty 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: 13/8/2020, 09:33