MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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
|Server configuration for MS Access - SQL Server app||8||68|
|Need to Populate a MS Access Table via VBA Code||3||22|
|Reference Controls on subforms||7||25|
|Access VBA - selected Item in Listbox (multiselect) - value of ONE item selected||4||34|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
8 Experts available now in Live!