[Resolvido]Condição para Incluir Data

Olá a todos, tem um form onde tenho que fazer uma verificação na tabela conforme a data informada
se o período da data informada não existir ai incluir o dia que está faltando ex.:

Período informado:
campos do formulário:

DtInicial Dtfinal barras (que seria o código informado)
01/05/2010 05/05/2010 28354

então verificaria na tabela se para este código (28354) se existe está o período informado se faltar algum dia então incluir a data que está faltando mais o cóidgo(28354) que é o campo barras que será informado esté é o código que estou utilizando mais não estou conseguindo acho que tem alguma coisa na sintaxe dele que está errado.

Dim Rst As DAO.Recordset, I As Date
For I = Dtinicial To Dtfinal
If DCount("*", "tbl_cadastro_horas_entrada", "Data=#" & Format(I, "mm/dd/yyyy") & "#") = 0 Then
CurrentDb.Execute "Insert Into tbl_cadastro_horas_entrada(Data,Código,Barras) VALUES (#" & Format(I, "mm/dd/yyyy") & "#)" & Me.BARRAS & ", #"
End If
Next
Set Rst = Nothing

Alguém pode me dar um Help?

teste;

Mas diga-me se o campo Barras é Texto ou Numero na tabela ?

Dim Rst As DAO.Recordset, I As Date
For I = Dtinicial To Dtfinal
If DCount("*", "tbl_cadastro_horas_entrada", "Data=#" & Format(I, "mm/dd/yyyy") & "#") = 0 Then
CurrentDb.Execute "Insert Into tbl_cadastro_horas_entrada(Data,Código,Barras) VALUES (#" & Format(I, "mm/dd/yyyy") & "#," & Me.Código & ", '" & Me.Barras & "');"
End If
Next
Set Rst = Nothing

O campo Barras é formato texto, esqueci de mencionar tenho um outro campo o codigo com formato número que também quero incluir neste código.

JPaulo desculpe o transtorno é que tive que mudar um pouco a estrutura do form e tive que colocar mais alguns campos:
veja ao linha a seguir:

CurrentDb.Execute "Insert Into tbl_cadastro_horas_entrada(Data,Código,Barras,Hinicio,Entrada, Tipo, Descrição) VALUES (#" & Format(I, "mm/dd/yyyy") & "#," & Me.CÓDIGO & ", '" & Me.BARRAS & Format(Me.Hinicio.Value, "hh:nn") & "#, '00:00' , 'Inicio', 'Sem Marcação');"

Preciso acrescentar os campos hinicio formato hora abreviada
Campo Entrada que será igual a 00:00
Campo Tipo que será igual a inicio
Campo Descrição que será igual a Sem Marcação

Tem algum erro neste código pois não consigo inserir as datas que faltam de acordo com período informado.

Obrigado pela atenção

Então é só testar, reproduzi aqui a sua tabela e funcionou.

Desculpa é que tinha editado a msg vc viu

Não testei;

CurrentDb.Execute "Insert Into tbl_cadastro_horas_entrada(Data,Código,Barras,Hinicio,Entrada, Tipo, Descrição) VALUES (#" & Format(I, "mm/dd/yyyy") & "#," & Me.CÓDIGO & ", '" & Me.BARRAS & "', " & Format(Me.Hinicio, "hh:nn") & ", " & "00:00" & ", '" & "Inicio" & "','" & "Sem Marcação" & "');"

JPaulo não funcionou aparece o seguinte erro:

Erro de sintaxe(operador faltando)na expressão de consulta '00:00' tentei modificar mais não achei o erro.

Neste momento não tenho como testar, vamos por tentativas;

CurrentDb.Execute "Insert Into tbl_cadastro_horas_entrada(Data,Código,Barras,Hinicio,Entrada, Tipo, Descrição) VALUES (#" & Format(I, "mm/dd/yyyy") & "#," & Me.CÓDIGO & ", '" & Me.BARRAS & "', " & Format(Me.Hinicio, "hh:nn") & ", #" & "00:00" & "#, '" & "Inicio" & "','" & "Sem Marcação" & "');"

Testei e também não funcionou.

Testado e a funcionar;

Dim Rst As DAO.Recordset, I As Date
For I = Dtinicial To Dtfinal
If DCount("*", "tbl_cadastro_horas_entrada", "Data=#" & Format(I, "mm/dd/yyyy") & "#") = 0 Then
CurrentDb.Execute "Insert Into tbl_cadastro_horas_entrada(Data,Código,Barras,Hinicio,Entrada,Tipo,Descrição) VALUES (#" & Format(I, "mm/dd/yyyy") & "#," & Me.Código & ", '" & Me.Barras & "', #" & Me.Hinicio & "#, #" & "00:00" & "#, '" & "Inicio" & "','" & "Sem Marcação" & "');"
End If
Next
Set Rst = Nothing

Perfeito grande JPaulo, a inserção das linhas funcionou, só que agora que notei um problema pode ocorrer de algum código diferente também ter o mesmo período sem registro ex.:

Se o código 28354 tiver faltando o dia 07/05/2010, pelo código ele irá veirifcar e inserir a linha com esta data perfeito, só que pode ocorrer do código 12345 tiver faltando este dia também só que ai para ele não será inserido pois já terá a data para aquele código, teria que fazer a condição também para o campo código e barras. Tem como fazer? tentei assim só que não consegui.


Dim Rst As DAO.Recordset, I As Date, II As String
For I = Dtinicial To Dtfinal
For II = código To BARRAS
If DCount("*", "tbl_cadastro_horas_entrada", "Data=#" & Format(I, "mm/dd/yyyy") & "#", código, BARRAS) = 0 Then
CurrentDb.Execute "Insert Into tbl_cadastro_horas_entrada(Data,Código,Barras,Hinicio,Entrada,Tipo,Descrição) VALUES (#" & Format(I, "mm/dd/yyyy") & "#," & Me.CÓDIGO & ", '" & Me.BARRAS & "', #" & Me.Hinicio & "#, #" & "00:00" & "#, '" & "Inicio" & "','" & "Sem Marcação" & "');"
End If
Next
Set Rst = Nothing

Bom dia Castro;

Amigão aconselho-o a ler muitas apostilas de VBA, vai enriquecê-lo de conhecimentos e a perceber as instruções;

Veja o simples;

Dim Rst As DAO.Recordset, I As Date, x As String, z As Integer
For I = Dtinicial To Dtfinal
x = Me.Barras
z = Me.Código
If DCount("*", "tbl_cadastro_horas_entrada", "Data= #" & Format(I, "mm/dd/yyyy") & "# And Código= " & z & " And Barras = '" & x & "'") = 0 Then
CurrentDb.Execute "Insert Into tbl_cadastro_horas_entrada(Data,Código,Barras,Hinicio,Entrada,Tipo,Descrição) VALUES (#" & Format(I, "mm/dd/yyyy") & "#," & Me.Código & ", '" & Me.Barras & "', #" & Me.hinicio & "#, #" & "00:00" & "#, '" & "Inicio" & "','" & "Sem Marcação" & "');"
End If
Next
Set Rst = Nothing

Ok, mestre JPaulo vou seguir seus conselhos.

Obrigado pela ajuda funcionou perfeitamente.

Valew pelo retorno o fórum agradece.