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 participantes

    [Resolvido]Texto de botões de mensagem

    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Texto de botões de mensagem Empty [Resolvido]Texto de botões de mensagem

    Mensagem  Access365 5/6/2014, 17:58

    Olá pessoal,
    Existe uma forma de alterar o texto dos botões disso:

    If MsgBox("Qual é o formato de sua impressão?", vbYesNoCancel, "Impressão") = vbYes Then

    Para isso:

    If MsgBox("Qual é o formato de sua impressão?", vbNormalDuplexCancel, "Impressão") = vbYes Then

    =====Código=====
    Private Sub Comando34_Click()
    If MsgBox("Qual é o formato de sua impressão?", vbYesNoCancel, "Impressão") = vbYes Then
    dt = Empty
       DoCmd.OpenReport "rlt_Hospitais", acNormal, "", "", , acNormal
    Else
       DoCmd.Close
    End If
    End Sub
    ==============

    Já agradeço, Luz e Paz!
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Noobezinho 5/6/2014, 19:15

    Olá Paulo

    Tudo bem contigo. amigo?

    Bom, se você digitar a palavra msgbox, clicar sobre ela e apertar a tecla F1, irá aparecer a janela da ajuda com os dados desse palavra.

    E poderá ver, que são palavras reservadas do access, com seu valor e que portanto, não tem como fazer isso numa caixa de mensagem.

    Mas temos uma saída:
    Fazer um formulário que imite a caixa de mensagem e então colocamos o botão que quisermos.
    Se ainda quiser ajuda pra isso, explica o que pretende.

    Abraço

    Noob




    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Access365 5/6/2014, 19:50

    Poxa cara... eu vi isso que você falou...
    Então a idéia agora é essa:

    http://maximoaccess.forumeiros.com/t19062-form-janela-de-impressao-com-duplex#141367

    Talvez vc possa me ajudar...

    Obrigado, Luz e Paz!
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Noobezinho 5/6/2014, 21:22

    Estou um tanto confuso sobre o que você realmente deseja

    Pode explicar melhor?

    Entendo que quer imprimir frente e verso numa folha de papel.

    Você usou o termo "Duplex", que deve ser a opção para imprimir nas duas faces de uma folha.

    Se for isso, será que não é uma opção da impressora?

    No aguardo...

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Access365 6/6/2014, 15:24

    Olá Noobezinho, tudo bem?
    É sim uma opção da impressora, por isso quero colocar esta opção NÃO padrão, mas sim um caixa de seleção para, caso a impressora tenha esta função, o usuário escolher imprimir DUPLEX (nos dois lados).

    O código abaixo como evento de um botão, faz impressão duplex:
    =====Código=====
    Private Sub BotaoPrint_Click()
    Dim rpt As Report
    DoCmd.OpenReport "rlt_Hospitais", acViewPreview, , , acHidden
    Set rpt = Reports!rlt_Hospitais
    With rpt.Printer
    .Copies = 1
    '.Duplex = acPRDPVertical
    .Duplex = acPRDPHorizontal
    End With
    DoCmd.OpenReport "rlt_Hospitais", acViewNormal
    DoCmd.Close acReport, "rlt_Hospitais", acSaveNo
    End Sub
    ==============
    mas não consigo inserí-la em http://maximoaccess.forumeiros.com/t18128-resolvidobotao-imprimir?highlight=bot%C3%A3o+personalizado+msg
    no exemplo na Mensagem nº 4
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Noobezinho 6/6/2014, 15:39

    Paulo

    Como não tenho uma impressora desse tipo, não posso te ajudar mais diretamente.

    Mas toda impressora tem comandos chamado de "sequência de escape", o quais são uma combinação de teclas usando a expressão
    ESC (não confundir com a tecla ESC) os quais podem ser utilizados com o código vba.
    A lista desses comandos devem estar no manual da impressora.
    E provavelmente deve ter um comando para ativar/desativar o duplex.

    Abraços

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Access365 2/8/2020, 18:39

    Duplex não era mais necessário, por isso retirei esta opção.

    Conteúdo patrocinado


    [Resolvido]Texto de botões de mensagem Empty Re: [Resolvido]Texto de botões de mensagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:11