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

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")

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



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

End If

abraço Nogaro!

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


End If



Foi pro debug.

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


Mais ou menos isso?!

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...

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.

...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...

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

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.

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?

Ele acusa erro no "Next" (Wethout for)

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!

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 https://www.youtube.com/watch?v=f1tDWoKOkek, mas essa função string é complicada pra mim.

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

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.

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

ta dando erro na opcao.

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

Resolvido entao Amigo Cesar?

Resolvido.