[Resolvido]Acrescentar registros

Bom dia Pessoal, tem um form que gostaria de fazer da seguinte forma:

Campos: Data, Entrada, Tipo e Descricao

Gostaria que quando informasse a data(que poderá ser diferente) e a descricao e o tipo fosse igual a Falta, ai fose incluso cinco linhas dessa forma:

Data Entrada Tipo Descricao
27/02/2010 00:00 Inicio Falta
27/02/2010 00:00 Almoço Falta
27/02/2010 00:00 Retorno Almoço Falta
27/02/2010 00:00 Fim de expediente Falta
27/02/2010 00:00 Falta Falta

Há como fazer:
Obrigado fico no aguardo

Ola Castro;

Basta você introduzir a Data e escolher o Tipo = Falta

Private Sub Tipo_AfterUpdate()
If Me.Tipo.Value = "Falta" Then
CurrentDb.Execute "INSERT INTO [tblhorario] (Data, Entrada, Tipo, Descrição) VALUES (#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Inicio', 'Falta');"
CurrentDb.Execute "INSERT INTO [tblhorario] (Data, Entrada, Tipo, Descrição) VALUES (#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Almoço', 'Falta');"
CurrentDb.Execute "INSERT INTO [tblhorario] (Data, Entrada, Tipo, Descrição) VALUES (#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Retorno Almoço', 'Falta');"
CurrentDb.Execute "INSERT INTO [tblhorario] (Data, Entrada, Tipo, Descrição) VALUES (#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Fim de expediente', 'Falta');"
CurrentDb.Execute "INSERT INTO [tblhorario] (Data, Entrada, Tipo, Descrição) VALUES (#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Falta', 'Falta');"
Else
Exit Sub
End If
End Sub

Caro JPaulo, como faço para incluir mais dois campos, o código funcionou perfeito é que tenho mais dois campos que são: código e barras que são números que vou informar assim como informo a data, gostaria de inserir também nas cinco linhas. tentei aqui mas não consegui

Olá Castro;

Não sei se estes campos estão no lugar certo, mas faça igual para as 5 linhas;

CurrentDb.Execute "INSERT INTO [tblhorario](Código, Barras, Data, Entrada, Tipo, Descrição) VALUES (" & Me.Codigo & ", " & Barras & ", #" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Inicio', 'Falta');"

tenho um campo hinicio que o formato é hora abreviada só que não estou conseguindo colocar o formato segue abaixo o código

CurrentDb.Execute "INSERT INTO [tbl_cadastro_horas_Entrada] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", " & BARRAS & "," & Me.Hinicio & ", #" & Format(Me.Hinicio.Value, "short time") & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Almoço', 'Falta');"

CurrentDb.Execute "INSERT INTO [tbl_cadastro_horas_Entrada] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", " & BARRAS & ", #" & Format(Me.Hinicio.Value, "short time") & "#, Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Almoço', 'Falta');"

não deu o certo o código aparece uma mensagem que faltas campos informados para a consulta, notei que vc tirou uma linha que continha o campo hinicio, acho que por isso não funcionou, no mais o restante do código ficou o mesmo. acho que o problema é no formato acho que não aceita a expressão "short time".

Bom Dia Castro;

Se o amigo Ricardo retirou alguma linha, é porque estava mesmo a mais.

Repare:
7 campos informados;
(Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição)

7 campos nos VALUES
(" & Me.CÓDIGO & ", " & BARRAS & ", #" & Format(Me.Hinicio.Value, "hh:nn") & "#, #" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Almoço', 'Falta');"

Instrução final:

Private Sub Tipo_AfterUpdate()
If Me.Tipo.Value = "Falta" Then
CurrentDb.Execute "INSERT INTO [tblhorario] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", " & BARRAS & ", #" & Format(Me.Hinicio.Value, "hh:nn") & "#,#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Inicio', 'Falta');"
CurrentDb.Execute "INSERT INTO [tblhorario] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", " & BARRAS & ", #" & Format(Me.Hinicio.Value, "hh:nn") & "#,#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Almoço', 'Falta');"
CurrentDb.Execute "INSERT INTO [tblhorario] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", " & BARRAS & ", #" & Format(Me.Hinicio.Value, "hh:nn") & "#,#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Retorno Almoço', 'Falta');"
CurrentDb.Execute "INSERT INTO [tblhorario] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", " & BARRAS & ", #" & Format(Me.Hinicio.Value, "hh:nn") & "#,#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Fim de expediente', 'Falta');"
CurrentDb.Execute "INSERT INTO [tblhorario] (Código, Barras, Hinicio, Data, Entrada, Tipo, Descrição) VALUES (" & Me.CÓDIGO & ", " & BARRAS & ", #" & Format(Me.Hinicio.Value, "hh:nn") & "#,#" & Format(Me.Data.Value, "mm/dd/yyyy") & "#, '00:00' , 'Falta', 'Falta');"
Else
Exit Sub
End If
End Sub

Perfeito, funcionou, só estava confundindo o formato da hora, estava colocando hh:mm e era hh:nn, muito obrigado.

Valew, tranquilo.