Edit tables

[Surreall]

HI,

My list of attempts is getting bigger, at this stage i dont really care what the code does as long as it runs. Here is what i have tried

All those with ' are attempts

Sub Mergetwotables()

    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim strSQL As String
    
Set dbs = CurrentDb



'DoCmd.RunSQL "SELECT * FROM AUDUSD60" & _
'                 "ORDER BY [Date]"

  'CurrentDb.OpenRecordset strSQL

'RunSQL "SELECT AUDUSD60."
'doa.Execute "SELECT AUDUSD60.Date"
'DoCmd.RunSQL "SELECT Date, Time"

'strSQL = "INSERT INTO AUDUSD60 SELECT * FROM GBPUSD60" & _
'         "2dbFailOnError"

'CurrentDb.OpenRecordset strSQL

'strSQL = "SELECT Date, Time" & _
'            "FROM AUDUSD60" & _
'             "FULL JOIN GBPUSD60" & _
'             "ON AUDUSD60.Date=GBPUSD60.Date"

'DoCmd.RunSQL strSQL


'strSQL = "INSERT INTO table1 SELECT * FROM table2"
'DoCmd.RunSQL strSQL

'DoCmd.RunSQL strSQL = "INSERT INTO table1 SELECT * FROM table2"




'DoCmd.RunSQL "INSERT INTO AUDUSD60 SELECT * FROM GBPUSD60.Date"
'dbFailOnError

End Sub

[Surreall]

I think i am getting my head round it now.....is this the general layout?

Dim strSQL as String

strSQL = "SELECT  etc "

DoCmd.RunSQL strSQL

?

[Surreall]

SOrry for the multiple replies, just updating as i go

I have the basics working, now i am trying to merge the first to fields together.

I.e

Table is laid out like this

Date, Time, OpenAUDUSD60, CloseAUDUSD60
12/10/2012, 20:15, 1.45553, 1.66667



I would like the table to end up like this

Date, OpenAUDUSD60, CloseAUDUSD60
12/10/2012 20:15, 1.45553, 1.66667


And the code i am using which isnt working yet

Sub Mergetwotables()

Dim strSQL As String

strSQL = "INSERT INTO ( Date, Time ) SELECT AUDUSD60.Date & "" "" & AUDUSD60.Time FROM AUDUSD60"

Debug.Print strSQL

DoCmd.RunSQL strSQL


End Sub

Any clues how to fix it?

Rgds

Surreall

[June7]

Try:
strSQL = "INSERT INTO tablename ([Date]) SELECT [Date]" & " " & "[Time] FROM AUDUSD60"

Instead of DoCmd.RunSQL, I use:
CurrentDb.Execute strSQL

RunSQL will trigger warning popups you will have to respond to unless you use:
DoCmd.SetWarnings = False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings = True

Date and Time are reserved words. Best not to use reserved words as name.

[Surreall]

I tried your code above and got this error message:

Syntax error (missing operator) in query expression '[Date] [Time]'.

Rgds

Surreall

[June7]

I tested that sql with an Access query and it works. Problem with building the sql in VBA is need the literal & character within the constructed string. I don't have any procedures that call for this construct so I always forget about it and have to look it up. Try:
strSQL = "INSERT INTO tablename ([Date]) SELECT [Date] " & Chr(38) & " " & Chr(38) & " [Time] FROM AUDUSD60"

Or create and save Access query object then run that saved query with the VBA code.