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.
For Each varItem In CurrentDb.TableDefs
If varItem.name = Me.txtObjModule Then
TheRecordSource = Me.txtObjModule
If varItem.Fields.Count > 5 Then
MsgBox ("To many fields in lookup table")
Else
For i = 0 To varItem.Fields.Count - 1
strField(i) = varItem.Fields(i).name
Next i
For i = (varItem.Fields.Count) To 4
strField(i) = ""
Next i
End If
End If
Next varItem
str_Frm = "frmLookupMaint"
If FormIsLoaded(str_Frm) Then DOCMD.Close acForm, str_Frm
DOCMD.OpenForm str_Frm
DOCMD.Maximize