Confirmar Data em tabela e Setar Registro conforme data

Boa Tarde a todos,
gostaria de mais uma vez a ajudas de meu amigos aqui do forum !!

estou montando um Loop, para setar Sim/não em uma tabela e este " setar" e dado pela data Inicio e fim.
vejam o Codigo .

If IsNull(Datacorfirmado) Then Exit Sub
intCodigo = DMax("CodigoR", "Tab_Ferias")
intCodigo = intCodigo + 1

CurrentDb.Execute "insert into Tab_Ferias_Aprovadas (Codigo,CodigoR,CodCadastro,Periodo,DataInicio,DataFim,Numerodias)" & vbCrLf _
& "values ('" & Codigo & "','" & intCodigo & " ','" & CodCadastro & "', '" & Periodo & "', '" & Datainicio & "', '" & DataFim & "','" & Numerodias & "')"




dtInicio = DtaInicio
dtFinal = DtaFim
intDias = DateDiff("d", Datainicio, DataFim)
dtContData = Datainicio




For X = 0 To intDias

CurrentDb.Execute "insert into Tab_Ferias (CodigoR,Nome,Pronturario,Data)" & vbCrLf _
& "values ('" & intCodigo & " ','" & Nome & "', '" & Prontuario & "', '" & dtContData & "')"


CurrentDb.Execute "Update [Tab_Escala] SET [Ferias_Periodo]= -1 WHERE [Data]= '" & dtContData & "'"
dtContData = dtContData + 1



tudo Funciona menos a ultima parte do Codigo, alguem poderia me ajudar..
a ultima parte a do Setar da erro, ele não entende a data e não seta correto.

Olá Jere,

Não entendi direito o que vc quis dizer com "Setar Registro", mas em relação ao campo que define a data, verifique que tipo de campo vc estabeleceu na tabela. Se foi do tipo texto a sua variável deverá ser do tipo String, mas se for Data/Hora a sua variável terá de ser do tipo Date e colocada entre o símbolo de jogo da velha #suavariávelData#. Qualquer dúvida a mais se não der certo, posta o bd para analisarmos.

Vamos dizer assim ... na minha tabela....
tenho 3 campo...
Data, nome e férias ....



data recebe as datas do ano todo, e os nomes tbm preenche todos os campos, porem o campo Ferias não ,
este campo é o SIM/Não ... então o loop deve setar como -1 somente as datas do perio de férias ..


neste trecho do codigo que está dando erro ...

CurrentDb.Execute "Update [Tab_Escala] SET [Ferias_Periodo]= -1 WHERE [Data]= '" & dtContData & "'"
dtContData = dtContData + 1

Olá Cardoso,

Ao depurar o código aponta erro de sintaxe? ou o quê? Que tipo de dado é esta variável dtContData. Esta variável me parece ser do tipo Integer para entrar na contagem na linha seguinte. Logicamente esta variável não combina com o tipo de campo do qual é obtido, isto é, o campo Data que corresponde a dados do tipo Date e não Integer.

Segue Banco Como Exemplo...

Da uma olhada....



Como eu informou  Tenho duas. Tabelas, Em uma delas eu recebo as Solicitações de Férias..
depois Eu aprovo a solicitação.... quando eu aprovo a solicitação, deveria Setar no Campo Férias_Periodo na tabela Tab_escala, somente os periodos entre as datas Inicio e fim..

Por Exemplo..

data inicio  1/01/2015, data Fim 15/01/2015...  o comando deve preencher com -1 os campos correspondentes as datas inicio e fim, porem somente este periodo,
o codigo que criei está loco....


agradeço pela compreensão e ajuda

Olá Cardoso,

O programa está acusando vários erros ao depurar:

Por exemplo:
-Faltam as tabelas Tab_Ferias_Aprovadas e Tab_Ferias.


Cheque o aplicativo antes de enviar, verifique se está acusando os erros mencionados anteriormente.

é que meu aplicativo ´´e muito grande e não consigo enviar....

Olá,

Posta de novo amigo pelo menos com estas duas tabelas que dá. Faça uma cópia do aplicativo, delete a maioria dos registros das tabelas e me envie.

Ok Irmão vou Faze-lo.
obigado pela Ajuda .

Vou reenviar

Abraço...