We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub cmdEntry_Click() On Error GoTo exitcmdEntry Dim EntryID As Object Dim VBReferens As Reference Dim msg As String 'look for an "Entry" reference and remove it For Each VBReferens In References If VBReferens.Name = "Entry" Then References.Remove VBReferens Next VBReferens msg = "AddFromFile" 'Add reference from to 'Entry.exe" from the file location of the database References.AddFromFile GetDBPath & "Entry.exe" msg = "Set EntryID" 'start 'Entry.exe' 'if the file does not exist locally, this fails, even if the location is over the network Set EntryID = CreateObject("Entry.SetID") Dim dbs As Database Dim rs As Recordset Set dbs = CurrentDb Set rs = Me.Recordset 'Call the EntryID.SetID Function EntryID.SetID rs("Entry ID") Set rs = Nothing Set dbs = Nothing 'look for an "Entry" reference and remove it For Each VBReferens In References If VBReferens.Name = "Entry" Then References.Remove VBReferens Next VBReferens Exit Sub exitcmdEntry: MsgBox msg & "-" & Err.Description End Sub Public Function GetDBPath() As String GetDBPath = CurrentProject.Path & "\" End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.