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


    [Resolvido]Gravar mas antes Imprimir

    avatar
    Convidado
    Convidado


    [Resolvido]Gravar mas antes Imprimir Empty [Resolvido]Gravar mas antes Imprimir

    Mensagem  Convidado 8/10/2014, 09:30

    boas
    tenho o seguinte código para efectuar agravação na tabela...

    Private Sub BTN_Salvar_Click()
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
    Me.pesquisaNome.SetFocus
    End Sub


    Pretendia que ao Gravar questiona-se se já tinha feito a Impressão, e se não podesse nesta fase faze-lo... tipo uma pergunta depois Sim ou Não - Sim para Gravar... Não para seguir p/ a gravação. No caso do sim após Imprimir gravasse... Obrigado
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Gravar mas antes Imprimir Empty Re: [Resolvido]Gravar mas antes Imprimir

    Mensagem  Dilson 10/10/2014, 15:26

    Olá Marco,

    Vai precisar criar o relatório com os campos correspondentes ao registro.

    Terá que ter a chave primária para referenciar no momento do comando de impressão.

    Private Sub BTN_Salvar_Click()
    If MsgBox("Você deseja imprimir o relatório?", vbQuestion + vbYesNo, "Atenção") = vbYes Then

    DoCmd.OpenReport "NomeDoSeuRelatorio", acNormal, , "SuaChavePrimaria = " & Me!SuaTextBoxCampoReferencial

    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
    Me.pesquisaNome.SetFocus

    Else

    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
    Me.pesquisaNome.SetFocus

    End If
    End Sub
    avatar
    Convidado
    Convidado


    [Resolvido]Gravar mas antes Imprimir Empty Re: [Resolvido]Gravar mas antes Imprimir

    Mensagem  Convidado 10/10/2014, 20:18

    Dilson... Está feito . . . Obrigado Companheiro. Abraço.

    Conteúdo patrocinado


    [Resolvido]Gravar mas antes Imprimir Empty Re: [Resolvido]Gravar mas antes Imprimir

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 11:20