Boa Tarde,
Alguem pode me ajudar a me dizer o que está errado com o cod abaixo.
Ele deveria inserir na tabela arquivostbl o nome do arquivo e a data de inclusão do arquivo importado.
Mas o cod roda sem problemas e não me inseri os dados. Alguem pode me ajudar?
Alguem pode me ajudar a me dizer o que está errado com o cod abaixo.
- Código:
Sub arquivoinclui(arquivonome As String)
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim strTable As String
strTable = "arquivostbl"
Set DB = CurrentDb
Set RS = DB.OpenRecordset(strTable)
With RS
.AddNew
!arquivo = arquivonome
!datainclusao = Date()
End With
Saida:
Close
Set RS = Nothing
Set DB = Nothing
Exit Sub
End Sub
Ele deveria inserir na tabela arquivostbl o nome do arquivo e a data de inclusão do arquivo importado.
Mas o cod roda sem problemas e não me inseri os dados. Alguem pode me ajudar?