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!
Public Function UserSetReferences() Dim ref As Reference, thispath, LibName As String, FoundLib As Boolean On Error GoTo ErrorProcessing thispath = CurrentDb.name i = 0 Do Until trash = "\" i = i + 1 filepath = Left(thispath, Len(thispath) - i) trash = Right$(filepath, 1) Loop PathCrntMDB = filepath ChDir filepath 'GSEAcctng.mda Set ref = References.AddFromFile(filepath & "GSELib.mde") ExitFunction: Exit Function ErrorProcessing: DoCmd.SetWarnings True DoCmd.Hourglass False If Err.Number = 32813 Then Resume Next UserErrRoutine Application.CurrentObjectName Resume ExitFunction 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.