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.
Function BuildTable (objRec)
Dim intLoop
Dim strTable, strField
strTable = "<table border=1 cellpadding=0 cellspacing=0><tr align=center>"
' Building Column Names
For Each strField In objRec.Fields
strTable = strTable & "<td>" & strField.Name & "</td>"
Next
strTable = strTable & "<td>AbsolutePos</td></tr>"
' Building the Rows
'For intLoop = 1 to 20
While Not objRec.EOF
strTable = strTable & "<tr align=center>"
For Each strField In ObjRec.Fields
strTable = strTable & "<td>" & strField.Value & " </td>"
Next
strTable = strTable & "<td>" & objRec.AbsolutePosition & "</td></tr>"
objRec.MoveNext
Wend
'Next
strTable = strTable & "</table>"
BuildTable = strTable
End Function