MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]msg box botão ok e Não

    Compartilhe

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 19/12/2015

    [Resolvido]msg box botão ok e Não

    Mensagem  Rasec em Ter 23 Fev 2016, 00:23

    Boa Noite amigos como faço essa expressão para resultar uma caixa de diálogo com botão ok e não? Obrigado.

    MsgBox ("Confirma a operação?", "buttons as vvmsgboxstyle = vbokonly")

    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 455
    Registrado : 12/08/2013

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  Nogaro513 em Ter 23 Fev 2016, 00:34

    boa noite amigo Cesar, coloca este código no botão



    If Confirmar("Quer executar esta ação") Then

    End If

    abraço Nogaro!

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 19/12/2015

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  Rasec em Ter 23 Fev 2016, 01:16

    MsgBox ("If Confirmar("Quer executar esta ação") Then ?????


    End If



    Foi pro debug.

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 19/12/2015

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  Rasec em Ter 23 Fev 2016, 01:35

    MsgBox("Confirma a operação?", vbYesNo) = vbYes then as VbMsgBoxResult


    Mais ou menos isso?!

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2302
    Registrado : 14/08/2013

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  FabioPaes em Ter 23 Fev 2016, 01:59

    Código:

    If MsgBox("Deseja Excluir isso?", vbYesNo, "Atenção!!!") = vbYes Then
    'instrução aqui para opçao sim.
    Else
    'INstrução aqui para nao
    End If

    Tente Assim Cesar...

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 19/12/2015

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  Rasec em Ter 23 Fev 2016, 02:18

    Até gera o yes no mas se clica no não ele gera igual o mesmo acontece com MsgBox "Deseja Excluir isso?", vbYesNo, se clica no não ele gera igual, só falta ele cancelar quando clicar no não, queria acrescentar um vbcritical também, ficaria mais ou menos assim MsgBox "Deseja Excluir isso?", vbYesNo, vbCritical.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2302
    Registrado : 14/08/2013

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  FabioPaes em Ter 23 Fev 2016, 02:30

    ...continua o codigo, vbYesNo + vbCritical, "Atenção!!!") continua o codigo...
    Pra add o Mensagem critica...


    Veja bem o comandos que esta inserindo, pq aqui funciona perfeitamente...


    Ex: Em um exmplo ta assim:

    If MsgBox("Deseja Lançar a Saida do Crachá: " & Me.Combinação0.Column(0), vbYesNo + vbCritical, "Atenção!!!") = vbYes Then
    CurrentDb.Execute "UPDATE CadVisitantes SET DataHoraSaida = Now, Saiu = 'S' WHERE NumCracha = " & Me.Combinação0.Column(0) & ";"
    Me.Combinação0.Requery
    Me.Combinação0.SetFocus
    Else
    Me.Combinação0.Value = ""
    End If

    E ele so atualiza o registro se clicar em sim, se clicar em nao, ele limpa a combinação0....

    reveja seu codigo...

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 19/12/2015

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  Rasec em Ter 23 Fev 2016, 02:37

    Private Sub Bt_GerarParcelas_Click()
    If MsgBox("Deseja Excluir isso?", vbYesNo, "Atenção!!!") = vbNo Then
    MsgBox "Não"
    Else
    MsgBox "Sim"
    End If

    Esse é o meu código, se "Sim" executa Insere as parcelas na Tabela, se "Não" Não insere as parecelas. Como eu poderia fazer no meu Privat Sub?

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Tabela_ContasAreceber") 'Abre Tbl_ContasAreceber
    Valor_Parcela = Me.TotalGeral / Me.QuantParcelas 'Valor de cada Parcela
    For I = 1 To Me.QuantParcelas 'Insere as Parcela na Tbl_ContasAreceber
    rs.AddNew
    rs("Cod_TabVenda") = Me.ID_Vendas
    rs("Parcelas") = I
    rs("Valor_Parcela") = Valor_Parcela
    rs("DataVencimento") = DateAdd("m", I - 1, Me.Vencimento) 'Calcula as datas de Vencto através da função DateAdd()
    rs.Update
    Next
    rs.Close
    db.Close
    Me.frmsub_contasareceber.Requery 'Atualiza o SubForm



    End Sub

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 19/12/2015

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  Rasec em Ter 23 Fev 2016, 02:52

    Private Sub Bt_GerarParcelas_Click()
    If MsgBox("Deseja Excluir isso?", vbYesNo + vbCritical, "Atenção!!!") = vbYes Then
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Tabela_ContasAreceber") 'Abre Tbl_ContasAreceber
    Valor_Parcela = Me.TotalGeral / Me.QuantParcelas 'Valor de cada Parcela
    rs.AddNew
    rs("Cod_TabVenda") = Me.ID_Vendas
    rs("Parcelas") = I
    rs("Valor_Parcela") = Valor_Parcela
    rs("DataVencimento") = DateAdd("m", I - 1, Me.Vencimento) 'Calcula as datas de Vencto através da função DateAdd()
    rs.Update
    Next
    rs.Close
    db.Close
    Me.frmsub_contasareceber.Requery 'Atualiza o SubForm

    Else
    Me.QuantParcelas.Value = ""
    End If

    End sub


    Tentei assim, mas não deu.












    philipp.moreira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 05/02/2016

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  philipp.moreira em Ter 23 Fev 2016, 03:01

    Rasec,
    no trecho do código "... rs("Parcelas") = I ..." não identifiquei em que momento você recupera/seta o valor de "I".

    Qual o erro que o debug acusa?

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 19/12/2015

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  Rasec em Ter 23 Fev 2016, 03:13

    Ele acusa erro no "Next" (Wethout for)

    philipp.moreira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 05/02/2016

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  philipp.moreira em Ter 23 Fev 2016, 03:19

    Rasec, seu código não tem laço/loop For e o next está a mais no seu código, não?!
    tire ele!

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 19/12/2015

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  Rasec em Ter 23 Fev 2016, 03:26

    Não esta a mais ele funciona bem, mas quando coloquei a função if ele começou a acusar o erro. Nesse vídeo também tem o que eu preciso [Você precisa estar registrado e conectado para ver este link.] mas essa função string é complicada pra mim.

    philipp.moreira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 05/02/2016

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  philipp.moreira em Ter 23 Fev 2016, 03:41

    Creio que porque vc deva esta fazendo assim:

    For
    If
    Next
    Else

    End If

    Ao invés de fazer assim:

    For

    If
    Else
    End If

    Next

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 19/12/2015

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  Rasec em Ter 23 Fev 2016, 04:24

    Minha função esta assim:
    Private Sub Bt_GerarParcelas_Click()
    MsgBox "Confirma a operação?", vbYesNo
    If vbYes Then

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Tabela_ContasAreceber") 'Abre Tbl_ContasAreceber
    Valor_Parcela = Me.TotalGeral / Me.QuantParcelas 'Valor de cada Parcela
    For I = 1 To Me.QuantParcelas 'Insere as Parcela na Tbl_ContasAreceber
    rs.AddNew
    rs("Cod_TabVenda") = Me.ID_Vendas
    rs("Parcelas") = I
    rs("Valor_Parcela") = Valor_Parcela
    rs("DataVencimento") = DateAdd("m", I - 1, Me.Vencimento) 'Calcula as datas de Vencto através da função DateAdd()
    rs.Update
    Next
    rs.Close
    db.Close
    Me.frmsub_contasareceber.Requery 'Atualiza o SubForm

    Else
    vbno = Me.QuantParcelas = ""

    End If
    end sub


    Só não estou acertando o Else para cancelar a função o resto funciona bem.

    philipp.moreira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 05/02/2016

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  philipp.moreira em Ter 23 Fev 2016, 04:38

    Private Sub Bt_GerarParcelas_Click()

    Dim opcao As VbMsgBoxResult

    Set opcao = MsgBox("Confirma a operação?", vbYesNo)

    If opcao = vbYes Then

    Set Db = CurrentDb()
    Set rs = Db.OpenRecordset("Tabela_ContasAreceber") 'Abre Tbl_ContasAreceber

    Valor_Parcela = Me.TotalGeral / Me.QuantParcelas 'Valor de cada Parcela

    For I = 1 To Me.QuantParcelas 'Insere as Parcela na Tbl_ContasAreceber
    rs.AddNew
    rs("Cod_TabVenda") = Me.ID_Vendas
    rs("Parcelas") = I
    rs("Valor_Parcela") = Valor_Parcela
    rs("DataVencimento") = DateAdd("m", I - 1, Me.Vencimento) 'Calcula as datas de Vencto através da função DateAdd()
    rs.Update
    Next

    rs.Close
    Db.Close

    Me.frmsub_contasareceber.Requery 'Atualiza o SubForm

    Else
    Me.QuantParcelas = ""

    End If

    End Sub

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 19/12/2015

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  Rasec em Ter 23 Fev 2016, 04:44

    ta dando erro na opcao.

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 19/12/2015

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  Rasec em Ter 23 Fev 2016, 05:27

    Consegui assim:
    Private Sub Bt_GerarParcelas_Click()


    If MsgBox("Confirma a Operação?", vbYesNo + vbCritical, "Atenção!!!") = vbYes Then
    Set Db = CurrentDb()
    Set rs = Db.OpenRecordset("Tabela_ContasAreceber") 'Abre Tbl_ContasAreceber

    Valor_Parcela = Me.TotalGeral / Me.QuantParcelas 'Valor de cada Parcela

    For I = 1 To Me.QuantParcelas 'Insere as Parcela na Tbl_ContasAreceber
    rs.AddNew
    rs("Cod_TabVenda") = Me.ID_Vendas
    rs("Parcelas") = I
    rs("Valor_Parcela") = Valor_Parcela
    rs("DataVencimento") = DateAdd("m", I - 1, Me.Vencimento) 'Calcula as datas de Vencto através da função DateAdd()
    rs.Update
    Next

    rs.Close
    Db.Close

    Me.frmsub_contasareceber.Requery 'Atualiza o SubForm
    Else
    Me.Recalc -----------------> Aqui ele não calcula.


    End If



    End Sub


    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2302
    Registrado : 14/08/2013

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  FabioPaes em Ter 23 Fev 2016, 11:31

    Resolvido entao Amigo Cesar?

    Rasec
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 19/12/2015

    Re: [Resolvido]msg box botão ok e Não

    Mensagem  Rasec em Ter 01 Mar 2016, 01:05

    Resolvido.

      Data/hora atual: Dom 04 Dez 2016, 06:02