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

    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº1

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

    Mensagem  Convidado 8/10/2014, 08: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
    • Ir para o topo
    Dilson
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009
    • Mensagem nº2

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

    Mensagem  Dilson 10/10/2014, 14: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
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº3

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

    Mensagem  Convidado 10/10/2014, 19:18

    Dilson... Está feito . . . Obrigado Companheiro. Abraço.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 10/5/2024, 21:56