Public Sub devOff() Call setStyle(False, False, False) End Sub Public Sub devOn() Call setStyle(True, True, True) End Sub Public Sub setStyle(isStatusBar As Boolean, isRibbon As Boolean, isNaviWin As Boolean) On Error Resume Next Applicati…

Public Function isField(dbs As DAO.Database, tblname$, fldname$) On Error GoTo LBL_Err Dim rs As DAO.Recordset Set rs = dbs.OpenRecordset("select " & fldname$ & " from " & tblname$) rs.Close isModTbl = True Exit Function LBL_Err: isModTbl …