I have Access from Microsoft 365 and havinga query problem

Can you post the query's SQL statement? Maybe we can spot the problem.

Do you want the entire SQL? I will if it helps.

Yes, the entire SQL statement is useful.

The more information you provide, the higher the probability that someone can offer useful suggestions.

Open the query in SQL view and copy it completely. The error message indicates that the problem is at the end, but the whole SQL statement provides context.

Thank you.

Here it is

[if gte mso 9]> [endif] [if gte mso 9] Normal 0 false false false EN-US X-NONE X-NONE [endif][if gte mso 9] [endif] [endif] StartFragment

SELECT [Monday Only].*,

DateAdd("h", [UCTOffset], [Mon 0000]) AS UniversalMon0000,

DateAdd("h", [UCTOffset], [Mon 0100]) AS UniversalMon0100,

DateAdd("h", [UCTOffset], [Mon 0200]) AS UniversalMon0200,

DateAdd("h", [UCTOffset], [Mon 0300]) AS UniversalMon0300,

DateAdd("h", [UCTOffset], [Mon 0400]) AS UniversalMon0400,

DateAdd("h", [UCTOffset], [Mon 0500]) AS UniversalMon0500,

DateAdd("h", [UCTOffset], [Mon 0600]) AS UniversalMon0600,

DateAdd("h", [UCTOffset], [Mon 0700]) AS UniversalMon0700,

DateAdd("h", [UCTOffset], [Mon 0800]) AS UniversalMon0800,

DateAdd("h", [UCTOffset], [Mon 0900]) AS UniversalMon0900,

DateAdd("h", [UCTOffset], [Mon 1000]) AS UniversalMon1000,

DateAdd("h", [UCTOffset], [Mon 1100]) AS UniversalMon1100,

DateAdd("h", [UCTOffset], [Mon 1200]) AS UniversalMon1200,

DateAdd("h", [UCTOffset], [Mon 1300]) AS UniversalMon1300,

DateAdd("h", [UCTOffset], [Mon 1400]) AS UniversalMon1400,

DateAdd("h", [UCTOffset], [Mon 1500]) AS UniversalMon1500,

DateAdd("h", [UCTOffset], [Mon 1600]) AS UniversalMon1600,

DateAdd("h", [UCTOffset], [Mon 1700]) AS UniversalMon1700,

DateAdd("h", [UCTOffset], [Mon 1800]) AS UniversalMon1800,

DateAdd("h", [UCTOffset], [Mon 1900]) AS UniversalMon1900,

DateAdd("h", [UCTOffset], [Mon 2000]) AS UniversalMon2000,

DateAdd("h", [UCTOffset], [Mon 2100]) AS UniversalMon2100,

DateAdd("h", [UCTOffset], [Mon 2200]) AS UniversalMon2200,

DateAdd("h", [UCTOffset], [Mon 2300]) AS UniversalMon2300

INTO [Monday Only Converted]

FROM [Monday Only];

Debug.Print strSQL

Sub GenerateMondayQuery()

    Dim db As DAO.Database

    Dim strSQL As String

    Dim tableName As String

    Dim newTableName As String

    Dim timeFields As Variant

    Dim i As Integer

    Set table names

    tableName = "[Monday Only]"

    newTableName = "[Monday Only Converted]"

    Define time fields in an array

    timeFields = Array("Mon 0000", "Mon 0100", "Mon 0200", "Mon 0300", "Mon 0400", _

                       "Mon 0500", "Mon 0600", "Mon 0700", "Mon 0800", "Mon 0900", _

                       "Mon 1000", "Mon 1100", "Mon 1200", "Mon 1300", "Mon 1400", _

                     "Mon 1500", "Mon 1600", "Mon 1700", "Mon 1800", "Mon 1900", _

                       "Mon 2000", "Mon 2100", "Mon 2200", "Mon 2300")

    strSQL = strSQL & " INTO [Monday Only Converted] FROM [Monday Only];"

    Loop through fields

    For i = LBound(timeFields) To UBound(timeFields)

    strSQL = strSQL & "DateAdd('h', [UCTOffset], [" & timeFields(i) & "]) AS Universal" & Replace(timeFields(i), " ", "") & ", "

    Next i

    Remove trailing comma

    strSQL = Left(strSQL, Len(strSQL) - 2)

    Add INTO clause

    strSQL = strSQL & " INTO [Monday Only Converted] FROM [Monday Only];"

    Execute query

    Set db = CurrentDb

    db.Execute strSQL, dbFailOnError

MsgBox "Table '" & [Monday Only Converted] & "' created successfully!", vbInformation, "Success"

End Sub

This statement was not part of my copied data:

StartFragmentif gte mso 9]> [endif] [if gte mso 9] Normal 0 false false false EN-US X-NONE X-NONE [endif][if gte mso 9] [endif] [endif] StartFragmentEndFragment

Because I could not close my query, I had to copy and paste it into a Word document and paste it to you.

thank Jerry