Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Public Function AddLocalImagePath() As Variant Dim strImagePath As Variant strImagePath = ImagePathMulti If Me.NewRecord Then DoCmd.GoToControl "sbfrmProductImages" Me!ProductImageFileNm.Value = Dir$(strImagePath) Else DoCmd.GoToControl "sbfrmProductImages" DoCmd.GoToRecord , , acNewRec Me!ProductImageFileNm.Value = Dir$(strImagePath) End If Call ImageRequery End Function
Public Function ImagePathMulti() As String Dim fd As FileDialog Dim FileChosen As Integer Dim FileName As String Dim I As Integer Set fd = Application.FileDialog(msoFileDialogFilePicker) 'use the standard title and filters, but change the 'initial folder fd.InitialFileName = "\\1-PC\Database\Images\" fd.InitialView = msoFileDialogViewList 'allow multiple file selection fd.AllowMultiSelect = True FileChosen = fd.Show If FileChosen <> -1 Then Exit Function Else 'open each of the files chosen For I = 1 To fd.SelectedItems.Count ImagePathMulti = fd.SelectedItems(I) Next I End If End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Problems moving Excel files from local drive to server||4||28|
|Why would a IF THEN result jump up to a prior line in the VBA code||12||49|
|Excel 2013 Find and copy duplicates to a new worksheet||6||36|
|How to retrieve returned values from and MS Access Passthru Query , executing a SQL stored procedure||19||48|