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 StripAfterSF(WhatString as String) as String
StripAfterSF = Left(WhatString,InStr(1,WhatString,"SF") +1)
End Function
Dim rst as Recordset
Dim sql as String
sql = "SELECT TENANT_TBL.STORE_SIZE " & _
"FROM TENANT_TBL " & _
"WHERE TENANT_TBL.DISPLAY = 1 " & _
"AND TENANT_TBL.IMAGE_FILE = 'image' " & _
"ORDER BY TENANT_TBL.TENANT_NAME"
Set rst = CurrentDB.OpenRecordset(sql)
rst.MoveFirst
MsgBox StripAfterSF(rst!STORE_SIZE)
rst.Close
Set rst = Nothing
SELECT
Left(STORE_SIZE,InStr(1,STORE_SIZE,"SF") +1)
FROM TENANT_TBL
WHERE DISPLAY = 1
AND IMAGE_FILE = 'image'
ORDER BY TENANT_NAME