Refresh Module

Maybe I am just looking at this too long...

I would like to refresh the database after the function is run. I put the Refresh at the end of my function and here is the error that I received:

Compile error:

Sub for Function not defined

Without the refresh the module work fine.

Here is my module:

Function PrintStickingLabel()

    Dim i As Integer
    Dim db As Database, tdf As TableDef
   
    Set db = CurrentDb
   
        i = MsgBox("You are about to print sticking label; do you want to continue?", vbYesNo, "Import Cutting")
   
    If i = vbNo Then
        Exit Function
    Else
        DoCmd.SetWarnings False
        '''''Check if table "tblStickingLabelProppck" exist, if does then delete
        For Each tdf In db.TableDefs
           If tdf.Name = "tblStickingLabel" Then
              DoCmd.DeleteObject acTable, tdf.Name
           End If
        Next tdf
       
        '''Creating table for printing sticking label
        CurrentDb.Execute " SELECT Master.ItemCode, tblHarvestingSchedule.PName, tblHarvestingSchedule.SowDat, " _
        & " tblHarvestingSchedule.PrintTag, Master.SowYr, Master.SowWk, Master.SowSize, Master.EventType, " _
        & " Master.Location, Sum(Master.Qty) AS TotalQty, Master.CDate, AllClockNo([ItemCode],[SowYr],[SowWk], " _
        & " [SowSize],[EventType],[Location],[Cdate]) AS ClockNos, tblHarvestingSchedule.Note, " _
        & " tblHarvestingSchedule.StkQty INTO tblStickingLabel " _
        & " FROM Master INNER JOIN tblHarvestingSchedule ON Master.ItemCode = tblHarvestingSchedule.ItemNo " _
        & " GROUP BY Master.ItemCode, tblHarvestingSchedule.PName, tblHarvestingSchedule.SowDat, " _
        & " tblHarvestingSchedule.PrintTag, Master.SowYr, Master.SowWk, Master.SowSize, " _
        & " Master.EventType, Master.Location, Master.CDate, " _
        & " AllClockNo([ItemCode],[SowYr],[SowWk],[SowSize],[EventType],[Location],[Cdate]), " _
        & " tblHarvestingSchedule.Note, tblHarvestingSchedule.StkQty " _
        & " HAVING (((tblHarvestingSchedule.PrintTag)=True) AND ((Master.EventType)=""HV"") AND " _
        & " ((tblHarvestingSchedule.Note)<>""discard"") AND ((tblHarvestingSchedule.StkQty)>0));"
       
  End If
 
  Refresh >>>this is where I like it to be.
 
End Function

Thanks

perennialStart Free Trial