[Resolvido]Exclusão e alteração de dados da tabela utilizado um formulário

Pessoal Bom dia !!
novamente estou aqui para tirar Duvidas e confesso que tenho muitas ...
desde já agradeço a todos do forum ..

Bem vamos la.

estou tentando editar e excluir dados de uma tabela de forma automática.
tenho um código para inclusão destes dados e estou tentando adptar o mesma para a edção ou exclusão destes dados.

seria possível
se alguém souber
plz

Segue o código

**************************************************************
Dim BCO As Database
Dim TAB1 As Recordset
Dim dtInicio As Date
Dim dtFinal As Date
Dim strNome As String
Dim strSQL As String



strNome = Nome
dtInicio = Datainicio
dtFinal = DataVolta


intDias = DateDiff("d", dtInicio, dtFinal)

For X = 0 To intDias
Set BCO = CurrentDb()
Set TAB1 = BCO.OpenRecordset("TabLinhaTempo")
If Me!Nome > 0 Then
TAB1.AddNew
TAB1![Nome] = "" & Me!Nome & ""
TAB1![Data] = datacan("d", X, dtInicio)
TAB1.Update
End If
Next

End Sub

*******************************************************************

Parceiro ..
Utilizei este Código
Obrigado pela Ajuda

Dim dia As Integer
Dim fim As Date
Dim dtInicio As String
Dim dtFinal As String


dia = Me.Numerodias
fim = DateAdd("d", dia - 1, Datainicio)
Me!DataFim = Format(fim, "dd/mm/yyyy")
Me.DataFim.Requery
'Me.DataFim = Me.Datainicio + 29


dtInicio = DtaInicio
dtFinal = DtaFim

intDias = DateDiff("d", Datainicio, DataFim)

DoCmd.SetWarnings False ' Aqui eu desligo o aviso de alteração na tabela
DoCmd.RunSQL " DELETE FROM [Tab_Ferias_Solicitacao] WHERE Codigo = " & Codigo & ""
DoCmd.SetWarnings True ' Aqui eu ativo os avisos de alterações em tabelas

For X = 0 To intDias

DoCmd.SetWarnings False ' Aqui eu desligo o aviso de alteração na tabela
DoCmd.RunSQL " DELETE FROM [TabLinhaTempo] WHERE Codigo = " & Codigo & ""
DoCmd.SetWarnings True ' Aqui eu ativo os avisos de alterações em tabelas


Next
 

End Sub