Perguntar SIM ou NÃO antes de aplicar função de um botão.

Olá.

tenho um botão que gera as parcelas de pagamentos automaticamente.

quando clico no botão ele avisa que vai gerar as parcelas e só aparece o botão SIM.

Gostaria que ele pergunta-se SIM ou NÃO e cancelasse a operação caso clicasse em NÃO.

Segue código do botão, que foi construído com a ajuda do colega PILOTO deste forum.

=========================================================================
Private Sub btnGeraParc_Click()

MsgBox "Deseja gerar as parcelas?", vbInformation, "OK"
Dim X As Integer
Dim StrDataBase As Date
'faço um loop de acordo com a quantidade de parcelas para inserir a quantidade de registros
'de acordo com o número de parcelas
For X = 0 To Me.Parcelas - 1
'adiciono na variável o mes do início do contrato acrescido de 1 mês, de acordo com o valor de x
If X = 0 Then
StrDataBase = (Me.Data_primeiro_pagamento)
'adiciono os registros na tabela
CurrentDb.Execute "INSERT INTO Pagamentos (CodCon,Data_Vencimento,Numero_Parcela) Values (""" & Me.Codigo_do_contrato & """, " _
& """" & StrDataBase & """, '1')"
Else
StrDataBase = DateAdd("m", X, Me.Data_primeiro_pagamento)
'adiciono os registros na tabela
CurrentDb.Execute "INSERT INTO Pagamentos (CodCon,Data_Vencimento,Numero_Parcela) Values (""" & Me.Codigo_do_contrato & """, " _
& """" & StrDataBase & """, """ & X + 1 & """)"
End If
Next X
Forms!Clientes.PAGAMENTOS.Requery
MsgBox "Parcelas geradas", vbInformation, "PRONTO"

End Sub
=========================================================================

If MsgBox("Deseja gerar as parcelas", vbYesNo, "Atenção") = vbYes Then
Dim X As Integer
Dim StrDataBase As Date
'faço um loop de acordo com a quantidade de parcelas para inserir a quantidade de registros
'de acordo com o número de parcelas
For X = 0 To Me.Parcelas - 1
'adiciono na variável o mes do início do contrato acrescido de 1 mês, de acordo com o valor de x
If X = 0 Then
StrDataBase = (Me.Data_primeiro_pagamento)
'adiciono os registros na tabela
CurrentDb.Execute "INSERT INTO Pagamentos (CodCon,Data_Vencimento,Numero_Parcela) Values (""" & Me.Codigo_do_contrato & """, " _
& """" & StrDataBase & """, '1')"
Else
StrDataBase = DateAdd("m", X, Me.Data_primeiro_pagamento)
'adiciono os registros na tabela
CurrentDb.Execute "INSERT INTO Pagamentos (CodCon,Data_Vencimento,Numero_Parcela) Values (""" & Me.Codigo_do_contrato & """, " _
& """" & StrDataBase & """, """ & X + 1 & """)"
End If
Next X
Forms!Clientes.PAGAMENTOS.Requery
MsgBox "Parcelas geradas", vbInformation, "PRONTO"
endif

Havia faltado o End If.

após adicionar funcionou perfeitamente.

segue codigo como ficou.

===========================================================
Private Sub btnGeraParc_Click()

If MsgBox("Deseja gerar as parcelas", vbYesNo, "Atenção") = vbYes Then

Dim X As Integer
Dim StrDataBase As Date
'faço um loop de acordo com a quantidade de parcelas para inserir a quantidade de registros
'de acordo com o número de parcelas
For X = 0 To Me.Parcelas - 1
'adiciono na variável o mes do início do contrato acrescido de 1 mês, de acordo com o valor de x
If X = 0 Then
StrDataBase = (Me.Data_primeiro_pagamento)
'adiciono os registros na tabela
CurrentDb.Execute "INSERT INTO Pagamentos (CodCon,Data_Vencimento,Numero_Parcela) Values (""" & Me.Codigo_do_contrato & """, " _
& """" & StrDataBase & """, '1')"
Else
StrDataBase = DateAdd("m", X, Me.Data_primeiro_pagamento)
'adiciono os registros na tabela
CurrentDb.Execute "INSERT INTO Pagamentos (CodCon,Data_Vencimento,Numero_Parcela) Values (""" & Me.Codigo_do_contrato & """, " _
& """" & StrDataBase & """, """ & X + 1 & """)"
End If
Next X
Forms!Clientes.PAGAMENTOS.Requery
MsgBox "Parcelas geradas", vbInformation, "PRONTO"

End If

End Sub
==============================================================

Aproveitando seu conhecimento.

pode me dizer se eu posso bloquear o preenchimento de um formulário baseado em uma
caixa de seleção?

Por exemplo, tenho vários contratos em meu formulário, porém alguns estão desativados
mas quero manter os dados para consultas posteriores, mas queria uma forma de travar a alteração
destes dados para não ocorrer a modificação acidental, ja que o access não possui um
recurso de desfazer eficiente.

portanto gostaria que os formulários que estivessem com o campo ATIVO desmarcado não pudessem
ser alterados, com exceção lógico do campo ATIVO.

Segue em anexo um printo do meu formulário para análise.

obrigado.

É possível controlar permissão de edição, adição e exclusão de registros usando as dependências Allow do formulário:

Me.AllowEditions = True ' ou False

Digite Me.Allow que serão apresentadas soluções.

Caso a função seja colocada em um form para alterar as permissões em um subform desse form, tem que colocar o nome do controle subform:

Me.NomeControleSubForm.Form.AllowEditions = True ' ou False

O meu bd está da seguinte forma.

Formulário Clientes.
    Sub Formulário Contratos
          Sub Formulário Pagamentos

O Sub formulário "Pagamentos" está dentro do Sub Formulário "Contratos" que por sua vez está dentro do Formulário "Clientes"

Cada Cliente pode ter Vários contratos, e cada contrato pode ter vários pagamentos.

Dentro do formulário "Contratos" existe uma caixa de seleção chamada "ATIVO", o qual desejo que bloqueie alterações em todos
os campos que estão dentro do formulário "Contrato" inclusive os pagamentos, PORÉM o campo ativo não pode ser bloqueado,
pois caso ocorra não conseguirei mais desbloquear o contrato bloqueado.

Deu para entender, ou eu compliquei muito. tentei explicar da melhor maneira possível.

Vou enviar o meu formulário em anexo para análise.