Update Exisiting Access Table From Excel

[nikimitsy]

I have Been Stuck with being unable to update Access Database Table.



This is what I am trying to achieve:
1- Search Access Database table (Table3) where Field(ID) = cell value/text
2-Update Table Field(Time_out) with Now()
close access

this is what i have been able to compile but something is wrong

Sub update2()Dim accApp As Object
Dim strOrder As String, strCode As String
strOrder = "4424"
strCode = Now()
Dim SQL As String
SQL = "UPDATE [Table3] SET [Table3].Time_out = " & strCode & " WHERE "
SQL = SQL & "((([Table3].ID)=4424));"
Set accApp = CreateObject("Access.Application")
With accApp
    .OpenCurrentDatabase "C:\Signin-Database\DATABASE\Visitor_Info.accdb"
    .DoCmd.RunSQL
    .Quit
End With
Set accApp = Nothing
End Sub

 

[nikimitsy]

Ok This is what i have come up with, and seems to work but the problem i have is that it updates the entire field(Time_out) with Now(), instead of locating and matching field(ID). If I remove the id and just add text to sql statement it works as it is supposed do...please any help much appreciated

Sub UpdateAccessDatabase()Dim accApp As Object
Dim SQL As String
Dim id
id = frm1.update.caption [B] 'which is actually just a number-4424[/B]
SQL = "UPDATE [Table3] SET [Table3].Time_out = " & "Now()" & " WHERE "
SQL = SQL & "((([Table3].ID)=id));"  [B]'if i remove id and place 4424, it will only then search for and replace Time_out in that row[/B]
Set accApp = CreateObject("Access.Application")
With accApp
    .OpenCurrentDatabase "C:\Signin-Database\DATABASE\Visitor_Info.accdb"
    .DoCmd.RunSQL SQL
    .Quit
End With
Set accApp = Nothing


End Sub