A family of Microsoft relational database management systems designed for ease of use.
Albert, Thank you so much for trying to help with this. I continue to have issues, though. In fact, out of frustration, I started over with a saved copy of my original database. Here are the steps I took and the result...
- Opened original database (There is no code in the original)
- Split the database
- Opened the front end of the database and verified that the front end was linked to the back end.
- Clicked on Create Module...
- Module window opened to "Option Compare Database"
- Place cursor below first line and pasted the code from the link provided
- Saved the Module1
- Clicked Debug -> Compile
- Got the following error: Compile Error: Sub or Function not Defined
- The following code was highlighted... ahtAddFilterItem
- The complete line of code for that is strFilter = ahtAddFilterItem(strFilter, _
- The complete section this came from is...
Function fGetMDBName(strIn As String) As String
'Calls GetOpenFileName dialog
Dim strFilter As String
strFilter = ahtAddFilterItem(strFilter, _
"Access Database(*.mdb;*.mda;*.mde;*.mdw) ", _
"*.mdb; *.mda; *.mde; *.mdw")
strFilter = ahtAddFilterItem(strFilter, _
"All Files (*.*)", _
"*.*")
fGetMDBName = ahtCommonFileOpenSave(Filter:=strFilter, _
OpenFile:=True, _
DialogTitle:=strIn, _
Flags:=ahtOFN_HIDEREADONLY)
End Function
Ideas? What am I doing wrong?