PQ not updating properely.

[JeffGrant]

Hi All,

I have been running a PQ scxript for some two years without a problem. The script simply combines two tables. No daram,.

Hopwever, in the last week, when the query runs, there is one field, that instead of updateing the text field, it simply add the text word DATE to every record.

By refreshing the table, every thing goes back to normal and the text field is updated correctly. No big deal, I can move the location of the code and solve it.

I am just wndering if anybody has seen anything like this and what was the solution?

Just opdd thatr it has workd for some two years.

 

[RoryA]

Where do the two tables come from?

 

[JeffGrant]

Hi Rory
Update..... The table are generated from PQ Json api downloads. However, this sesm to be the issue:


This works
Sub Timer2RefreshRemoveScratchingsFromTodaysField()
Dim rng As Range
Dim tbl As ListObject

Sheet60.activate
Set tbl = Sheet60.ListObjects("RemoveScratchingsFromTodaysField")

Set rng = Sheet60.Range("A2")
rng.ListObject.QueryTable.Refresh BackgroundQuery:=False

End Sub

This does not.
This gives error 13, type mis-match at set ws = sheet60 line. I have used this format for the SET command in many places in the model without any issues.

Sub Timer2RefreshRemoveScratchingsFromTodaysField()
Dim ws As Worksheets
Dim rng As Range
Dim tbl As ListObject

set ws = Sheet60
Set tbl = ws.ListObjects("RemoveScratchingsFromTodaysField")

Set rng = ws.Range("A2")
rng.ListObject.QueryTable.Refresh BackgroundQuery:=False

End Sub

so I am little lost

Thanks in advance for any suggestions.

 

[RoryA]

Dim ws As Worksheets

needs to be:

Dim ws As Worksheet

 

[JeffGrant]

HI Rory

I cant believe that I did that. It is so obvious.

Thanks man.