Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function basIncrInt(Dummy As Variant) As Integer
'SELECT tblNewPubls.PubCd8, tblNewPubls.Name,
'basIncrInt([ActNum]) AS Rank INTO tblTestIncrINt
'FROM tblNewPubls;
Static LastVal
If (LastVal < 32767) Then
LastVal = LastVal + 1
Else
LastVal = 0
End If
basIncrInt = LastVal
End Function