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

    [Resolvido]Caixa Mensagem Interativa

    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]Caixa Mensagem Interativa Empty [Resolvido]Caixa Mensagem Interativa

    Mensagem  Mylton em Sex 09 Maio 2014, 1:40 pm

    Boa tarde
    Gostaria de um código para uma caixa de mensagem com três botões, sim, não e cancelar.
    Onde ao clicar no sim iria para o form Teste, quando clicasse no não apenas fecharia a respectiva caixa de mensagem
    Fiz esse código abaixo com duas linhas, contudo não abre com os três botões?

    Private Sub Opção0_Click()
    MsgBox "Possui alterações?" & Chr(13) & Chr(10) & "Ao clicar no sim abrirá o formulário específico", vbYesNoCancel + vbYesNo = vbYes 'Then
    DoCmd.OpenForm "teste", acNormal, "", "", , acNormal
    End Sub



    Continuando..
    A ideia era quando clicasse no botão não, essa informação fosse direta para uma tabela chamada normal, que já teria cadastrado informações consideradas normais.
    Quando clicasse na opção sim as informações seriam cadastradas na tabela pertencente ao respectivo formulário aberto.

    Obrigado
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Mylton em Sex 09 Maio 2014, 1:51 pm

    Fiz umas pesquisas e consegui os tres botoes como seguinte código:

    Private Sub Opção0_Click()
    If MsgBox("Possui alterações?" & Chr(13) & Chr(10) & "caso haja abrirá o formulário específico", vbYesNoCancel, "Escolha") = vbNo Then
    dt = Empty
    Else
    DoCmd.OpenForm "teste", acNormal, "", "", , acNormal
    End If
    End Sub


    Contudo com clico em cancelar ele abre o form teste.

    Como resolvo?

    E o Continuando..
    A ideia era quando clicasse no botão não, essa informação fosse direta para uma tabela chamada normal, que já teria cadastrado informações consideradas normais.
    Quando clicasse na opção sim as informações seriam cadastradas na tabela pertencente ao respectivo formulário aberto.

    Obrigado
    avatar
    Convidado
    Convidado

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Convidado em Sex 09 Maio 2014, 2:17 pm

    Olá, está bem confuso teu pedido de ajuda, o que queres dizer com ir para a tabela, não seria abrir um formulário? Explica detalhadamente o que precisas quando escolheres cada uma das opções opções.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1618
    Registrado : 17/03/2011

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Cláudio Machado em Sex 09 Maio 2014, 3:11 pm

    Bastante confuso eu diria Amigo Beto!!

    Mylton mas pra que o vbCancel, se você está utilizando apenas duas opções?

    Não seria isso:

    If MsgBox("Possui alterações?" & Chr(13) & Chr(10) & "caso haja abrirá o formulário específico", vbYesNo + vbQuestion, "Escolha") = vbYes Then
    dt = Empty
       DoCmd.OpenForm "teste", acNormal, "", "", , acNormal
    Else
       DoCmd.Close
    End If


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Caixa Mensagem Interativa 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    Convidado
    Convidado

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Convidado em Sex 09 Maio 2014, 3:17 pm

    ele quer usar as 3 opções, o que não entendi são as 3 ações a serem executas, tenta lá:

    Dim Msg As String
    Msg = MsgBox("Possui alterações? " & vbCrLf & "Pressione Sim para 1ª ação, Não para 2ª ação e Cancela para 3ª ação.", vbYesNoCancel + vbInformation, "ESCOLHA")
    If Msg = vbNo Then
    Ação para o não
    ElseIf Msg = vbYes Then
    Ação para o sim
    ElseIf Msg = vbCancel Then
    Ação para o cancela
    End If
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1618
    Registrado : 17/03/2011

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Cláudio Machado em Sex 09 Maio 2014, 3:24 pm

    Percebi isso Beto, seu código ficou chupeta pro amigo Mylton utilizar.
    Abraço á todos.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Caixa Mensagem Interativa 90dssg para agradecer a dica que solucionou seu problema.
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Mylton em Sab 10 Maio 2014, 9:51 am

    Amigo Beto e demais Obrigado pelo código Ficou ótimo.
    Quanto as tabelas a ideia seria essa:
    Como é uma aplicação para exame médico tive a ideia de colocar como motor para acessar os forms a caixa de opção.
    de forma que ao clicar numa exemplo na ectoscopia, abriria uma caixa de mensagem com as tres opções.
    - cancelar se a pessoa desistisse.
    - o sim abre o form ectoscopia com os campos a serem preenchidos, exemplo....cor...usa muletas e assim sucessivamente.
    - Já o não .... não registraria nada na tabela ectoscopia anormal.
    esta opção escolhida iria para a tabela ectoscopia normal, que ja digitado todos os valores do mesmo form ectoscopia considerados normal.

    Assim, penso, corrija-me se estiver errado, quando fizesse a mala direta iria direto esses valores adiantando todo o processo.


    É isso.
    abraços
    avatar
    Convidado
    Convidado

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Convidado em Sab 10 Maio 2014, 10:18 am

    Amigo continua confuso, vamos ver se conseguimos nos entender assim, o que entendi:

    Quando escolhe a opção Cancelar: não tem ação propriamente dita, faz tão somente fechar a msgbox e pernace no mesmo formulário, certo?

    opção Sim: abre o formulário ectoscopia pronto para inserir um novo registro, correto?

    opção Não: abre o formulário que tem como origem a tabela ectoscopia, procede?
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Mylton em Sab 10 Maio 2014, 11:06 am

    Procede as duas primeiras
    Fiz um pequeno exemplo.
    Talvez consiga explicar melhor
    Quando clicar em "não" registrara essa opção na tabela EctoscopiaNormal, que ja possui seus dados (veja) e serão esses que serão exportados para a mala direta.
    quando clicar em sim vai para a tabela EctoscopiaAnormal

    Obrigado
    Anexos
    [Resolvido]Caixa Mensagem Interativa AttachmentEctoscopiaAnormal.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 18 vez(es)
    avatar
    Convidado
    Convidado

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Convidado em Sab 10 Maio 2014, 11:29 am

    Amigo acho mais viável colocares o exemplo com dados concretos para tentarmos entender de fato o que precisas, pois veja só, no teu penúltimo post colocas: - Já o não .... não registraria nada na tabela ectoscopia anormal e no último post: Quando clicar em "não" registrara essa opção na tabela EctoscopiaNormal. Que opção é essa? Visto que o form. Inicio tem um grupo de 3 opções: Ectoscopia, Peso e Altura
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Mylton em Sab 10 Maio 2014, 4:35 pm

    Beto. Fiz um exemplo pratico em anexo.
    Esqueça a confusão que fiz por favor.
    O que desejo seria:


    A tabela Antebraço Direito possui os seguintes campos com suas opçôes:
    Esqueça o NProcesso.

    Calor               "sem";"com"
    Edema             "sem";"+1/4";"+2/4";"+3/4";"+4/4"
    Hematoma        "sem";"com"
    Rubor               "sem";"com"
    Deformidade      "sem";"com"


    Quando clicar na opção Não da caixa de mensagem que os seguintes registros sejam enviados a tabela Antebraço Direito nos respectivos campos:
    Calor                "sem";
    Edema              "sem";
    Hematoma         "sem";
    Rubor                "sem";
    Deformidade       "sem";

    Sendo estas informações gravadas na respectiva tabela

    Quando clicar em Sim da caixa de mensagem abrirá o form Antebraço Direito, permitindo ao usuário escolher as suas opções marcando-as e estas deverão ser gravadas na tabela.
    Anexos
    [Resolvido]Caixa Mensagem Interativa AttachmentCaixa Mensagem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (66 Kb) Baixado 19 vez(es)
    avatar
    Convidado
    Convidado

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Convidado em Sab 10 Maio 2014, 9:33 pm

    Faz o teste, espero que seja isso mesmo, me guiei pelo último post.
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Mylton em Sab 10 Maio 2014, 10:03 pm

    Beto...
    És Coperfield...Mister M......rs.
    Obrigado
    É isso.
    Gde abs
    avatar
    Convidado
    Convidado

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Convidado em Sab 10 Maio 2014, 10:28 pm

    Saudações do fórum pelo retorno e fechamento do tópico
    avatar
    Convidado
    Convidado

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Convidado em Sab 10 Maio 2014, 10:32 pm

    só uma correção, pode eliminar essa linha que esqueci de tirar: Dim i As Long. o códio fica:
    Dim Msg, strResultado As String
       
       Msg = MsgBox("Possui alterações? " & vbCrLf & "Pressione Sim para abrir o formulário AntebracoDireito, Não para gravar na tabela AntebracoDir" _
       & "e Cancela para permanecer no formulário atual.", vbYesNoCancel + vbInformation, "ESCOLHA")
       
       If Msg = vbNo Then
       
       Set DB = CurrentDb()
       Set rs = DB.OpenRecordset("AntebracoDir")
       strResultado = "Sem"
       
           rs.AddNew
           rs("Calor") = strResultado
           rs("Edema") = strResultado
           rs("Hematoma") = strResultado
           rs("Rubor") = strResultado
           rs("Deformidade") = strResultado
           rs.Update
    rs.Close
    Set rs = Nothing
    Set db = Nothing


       ElseIf Msg = vbYes Then
           DoCmd.OpenForm "AntebracoDireito"
           DoCmd.GoToRecord , , acNewRec
           Forms!AntebracoDireito.NProcesso.SetFocus

       ElseIf Msg = vbCancel Then
           DoCmd.CancelEvent
       End If


    Última edição por Beto Givoni em Sab 07 Jun 2014, 1:39 pm, editado 1 vez(es)
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Mylton em Dom 11 Maio 2014, 10:17 am

    Mais uma vez.
    Obrigado.
    Feliz dia das mães.
    avatar
    Convidado
    Convidado

    [Resolvido]Caixa Mensagem Interativa Empty Re: [Resolvido]Caixa Mensagem Interativa

    Mensagem  Convidado em Dom 11 Maio 2014, 10:20 am

    Igualmente

      Data/hora atual: Sab 26 Set 2020, 6:34 pm