Public Function RefreshLocalTmpTbl() As Boolean
On Error GoTo Err_RefreshLocalTmpTbl
Dim strSQLbe As String
Dim strSQLfe As String
'Check if we are suppose to refresh the FE Temp Table
If flgRefreshFETempTable = False Then
RefreshLocalTmpTbl = True
GoTo Exit_RefreshLocalTmpTbl
End If
'LOC for Pass-Through query defined in Access VBA code
[COLOR=Red][B]'Select one or the other query for strSQLbe variable!!![/B][/COLOR]
strSQLbe = "SELECT [p].[id],[p].[authid],[p].[logtimestamp],[p].[title] " & vbCrLf & _
"FROM [dbo].[projects] AS [p] " & vbCrLf & _
"ORDER BY [p].[id];"
'LOC for Pass-Through query to execute a Stored Procedure query
[COLOR=Red][B]'Select one or the other query for strSQLbe variable!!![/B][/COLOR]
strSQLbe = "SET NOCOUNT ON;" & vbCrLf & _
"DECLARE @id smallint;" & vbCrLf & _
"SET @id = " & intRecordID & ";" & vbCrLf & _
"EXEC dbo.clsObjProjectsTbl_RefreshLocalTmpTbl_1ea @id;"
strSQLfe = "INSERT INTO tmptblqry_projects (id,authid,logtimestamp,title) " & vbCrLf & _
"SELECT t.id,t.authid,t.logtimestamp,t.title " & vbCrLf & _
"FROM"
'Call the shared API and return its return code
RefreshLocalTmpTbl = dbutils_RefreshLocalTmpTbl("clsObjProjectsTbl_RefreshLocalTmpTbl", strSQLbe, strSQLfe)
'If that call got a good return code, then set the flag that the FE Temp Table is now valid
If RefreshLocalTmpTbl = True Then
flgRefreshFETempTable = False
End If
Exit_RefreshLocalTmpTbl:
Exit Function
Err_RefreshLocalTmpTbl:
Call errorhandler_MsgBox("Class: " & TypeName(Me) & ", Function: RefreshLocalTmpTbl()")
RefreshLocalTmpTbl = False
Resume Exit_RefreshLocalTmpTbl
End Function
