Any help would be great
Here's what i have so far
counter = 5
DoCmd.OpenQuery "Append DJ", acNormal, acReadOnly
smallbar.Width = Bigbar.Width / counter
Me.Repaint
Me.smallbar.Width = 0
Me.Repaint
DoCmd.OpenForm "thanks", acNormal, "", "", , acNormal
'DoCmd.RunSQL...