Example of crosstab query in VBA for Access 2010

[Agnister]

Can anybody please helop me with the syntax with this crosstab query in Access 2010. It will not work.
Private Sub cmd_SumBogger_Click()
Dim strCrosstabQuery As String
Dim strMakeQuery As String
Dim strUpdateQuery As String
DoCmd.SetWarnings False ' turns off popup warnings
strCrosstabQuery = " TRANSFORM Val(Format(Sum([qry_bogger_period]![Tonnes_Wet]),#)) AS Tonnes_Wet " & _
" SELECT qry_bogger_period.Cut " & _
" From qry_bogger_period" & _
" GROUP BY qry_bogger_period.Cut" & _
" PIVOT qry_bogger_period.Material;"

DoCmd.RunSQL (strCrosstabQuery)
DoCmd.OpenQuery "qry_SumBogger_Tonnes2", acViewNormal
' strMakeQuery = " SELECT qry_SumBogger_Tonnes.Cut, qry_SumBogger_Tonnes.High, qry_SumBogger_Tonnes.Low, qry_SumBogger_Tonnes.PAF INTO tbl_SumBogger_tmp" & _
" FROM qry_SumBogger_Tonnes;"
' DoCmd.RunSQL (strMakeQuery)
DoCmd.SetWarnings True ' tunrs pop up warning back on
End Sub

 

[JHB]

In what way is it not working?
Do you get some error message?
I think one of the reasons could be the below character in the format, (try to remove the format part or to surround it with ' = '#').

Format(Sum([qry_bogger_period]![Tonnes_Wet]),#)