Impedir Registros na Tabela

Boa tarde galera! aos mestres dos Access!
Bem pessoal, gostaria que vocês pudessem me dar uma ajuda nessa função abaixo:
Ela está gerando certinho na tabela, porém se clicar novamente no botão ela inclui o mesmo registro novamente...
o certo seria incluir outro registro somente se o campo “Efetivar” estiver clicado (ok),
se o campo estiver “false”(não clicado) então dispara a mensagem:
“Período concessivo de férias não foi efetivado” esse campo “Efetivar” é um campo da (Tabela_Funcionarios_Ferias)
tipo (Sim/Não), apenas isso por enquanto resolveria meu problema.


Segue a função:
Dim Rs As Recordset
DoCmd.RunCommand acCmdRefresh
If Me.CódigoCliente = "" Or IsNull(Me.CódigoCliente) Or Me.CódigoCliente = 0 Then
Else
Set Rs = CurrentDb.OpenRecordset("Tabela_Funcionarios_Ferias", dbOpenDynaset)
Rs.AddNew
Rs![Id_Funcionarios_Ferias] = Me.CódigoCliente
Rs![PeriodoAquisicaoI] = [DataAdmissao]
Rs![PeriodoAquisicaoF] = ([DataAdmissao] + 364)
Rs![PeriodoGozoI] = ([DataAdmissao] + 365)
Rs![PeriodoGozoF] = (([DataAdmissao] + 365) + 364)
Rs.Update
Rs.Close
Set Rs = Nothing
Me.Frm_Funcionarios_Ferias.Requery
MsgBox "Período aquisitivo e concessivo inseridos com Sucesso!", vbInformation, "Férias"
End If

corrigido;


DoCmd.RunCommand acCmdRefresh
Dim Rs As Recordset
Set Rs = CurrentDb.OpenRecordset("Tabela_Funcionarios_Ferias", dbOpenDynaset)

If Me.CódigoCliente = "" Or IsNull(Me.CódigoCliente) Or Me.CódigoCliente = 0 Then Exit Sub

If Me.Efetivar.Value = -1 Then
Rs.AddNew
Rs![Id_Funcionarios_Ferias] = Me.CódigoCliente
Rs![PeriodoAquisicaoI] = [DataAdmissao]
Rs![PeriodoAquisicaoF] = ([DataAdmissao] + 364)
Rs![PeriodoGozoI] = ([DataAdmissao] + 365)
Rs![PeriodoGozoF] = (([DataAdmissao] + 365) + 364)
Rs.Update
Rs.Close
Me.Frm_Funcionarios_Ferias.Requery
MsgBox "Período aquisitivo e concessivo inseridos com Sucesso!", vbInformation, "Férias"
End If
Set Rs = Nothing
End If

Bom dia Galera!
Ainda não tive sucesso na correção desse código!
o problema é que quando vou compilar ele apresenta
a seguinte mensagem "método ou membro de dados não encontrado"
reclama dessa linha "If Me.Efetivar.Value = -1 Then
porém o campo está certinho na tabela.

seria mais ou menos assim:
se não tiver registro na tabela daquele cliente ele insere normalmente.
se tiver registro na tabela daquele cliente ele verifica se
o campo "Efetivar" está false ou true
se tiver false (sem clikar)ele dispara a mensagem “Período concessivo de férias não foi efetivado"
e não deixa inserir outra linha de registro.
se tiver true ele deixa inserir normalmente.

se alguém puder corrigir novamente pra mim, agradeço!

Me.Efetivar refere-se ao seu campo Efetivar no formulário.

Esse código está num formulario ou num modulo ?

JPaulo.
Esse código está num formulário
na verdade está num botão de comando do formulário de clientes.

Então não pode ter problemas nesse Me.Efetivar, no arranjo do Mario;

Verifique se esse campo Sim/Não no formulario tem mesmo o nome de "Efetivar"

Então JPaulo!/Mario Fernandes ou outro Mestre do Forum!
Acho que eu devo ter me confundido aqui
na hora de implementar o código, mas ainda está dando a mesma mensagem.

Tomei a liberdade de enviar o banco para que vcs. possam me dar uma ajuda
na correção desse código. Lembrando que:
se não tiver registro na tabela daquele cliente ele insere normalmente.
se tiver registro na tabela daquele cliente ele verifica se
o campo "Efetivar" está false ou true
se tiver false (sem clikar)ele dispara a mensagem “Período concessivo de férias não foi efetivado"
e não deixa inserir outra linha de registro.
se tiver true ele deixa inserir normalmente.

se vc. ou mário puder corrigir novamente pra mim, agradeço!

Onde está o anexo ?

JPaulo,
Segue anexo

JPaulo,
Segue anexo

Veja o simples;
Mas tente aprender, que o seu botão está no formulário e o campo Efetivar está no subformulario, logo a instrução estava errada;

Teste;


Private Sub GerarFerias_Click()
DoCmd.RunCommand acCmdRefresh
Dim Rs As Recordset
Set Rs = CurrentDb.OpenRecordset("Tabela_Funcionarios_Ferias", dbOpenDynaset)

If Me.CódigoCliente = "" Or IsNull(Me.CódigoCliente) Or Me.CódigoCliente = 0 Then Exit Sub

If Forms!Frm_Funcionarios!Frm_Funcionarios_Ferias.Form!Efetivar.Value = -1 Then
Rs.AddNew
Rs![Id_Funcionarios_Ferias] = Me.CódigoCliente
Rs![PeriodoAquisicaoI] = [DataAdmissao]
Rs![PeriodoAquisicaoF] = ([DataAdmissao] + 364)
Rs![PeriodoGozoI] = ([DataAdmissao] + 365)
Rs![PeriodoGozoF] = (([DataAdmissao] + 365) + 364)
Rs.Update
Rs.Close
Me.Frm_Funcionarios_Ferias.Requery
MsgBox "Período aquisitivo e concessivo inseridos com Sucesso!", vbInformation, "Férias"
Else
MsgBox "Período concessivo de férias não foi efetivado...", vbCritical
Exit Sub
End If
Set Rs = Nothing
End Sub

Olá JPaulo,
Eu entendi da forma como vc. refez o código
esse é o raciocínio mesmo.
porém se não tiver lançamento nenhum ele também não deixa gerar o registro.
o correto é:
quando não existir lançamento para aquele cliente
ele permiti gerar o lançamento, e a partir desse registro
ele vai verifica forçando o usuário a efetivar o período antes
do próximo registro.

Se puder me dá uma ajuda novamente, agradeço!

Olá JPaulo, Bom dia!

Eu entendi da forma como vc. refez o código
esse é o raciocínio mesmo.
porém se não tiver lançamento nenhum para um determinado cliente
ele também não deixa gerar o registro. e se tiver algum período efetivado
ele também permiti registrar outros períodos.

o correto é:
quando não existir lançamento para aquele cliente
ele permiti gerar o lançamento, e a partir desse registro
ele vai verifica forçando o usuário a efetivar o período antes
do próximo registro.

Se puder me dá uma ajuda novamente, agradeço!

Olá JPaulo, Bom dia!

em relação ao código que vc. refez ficou legal
esse é o raciocínio mesmo.

porém se não tiver lançamento nenhum para um determinado cliente
ele também não deixa gerar o registro. e se tiver algum período efetivado
ele também permiti registrar outros períodos.

o correto é:
quando não existir lançamento para aquele cliente
ele permiti gerar o lançamento, e a partir desse registro
ele vai verifica forçando o usuário a efetivar o período antes
do próximo registro.

Se puder me dá uma ajuda novamente, agradeço!