Physical Address
304 North Cardinal St.
Dorchester Center, MA 02124
Physical Address
304 North Cardinal St.
Dorchester Center, MA 02124
Welcome to the skill header Forums. You can ask questions, get help, or help other members out. Join our Forum for free.
I ran into a problem with the code you created on my computer: with windows 11 & MS Access 365. I added the OLE Reference you pointed out and verified code via V12 Source file. For some reason the jpeg image would never show. Even V12 source files failed to do any of the tasks. After working out several issues and using error handler I rewrote the code as follows below. I do not know if anyone else is having this issue as communications are slim. I do hope this code will help, as on my computer (which is likely the issue) it is working 100% as desired.
Private Sub cmdInvImg_Click() On Error GoTo ErrorHandler Dim FileDialog As FileDialog Dim filelocation As String Dim getfile1 As String Dim getfile1Ext As String Dim jpNmm As String Dim wbmx As String Dim inmx As String Set FileDialog = Application.FileDialog(msoFileDialogFilePicker) With FileDialog .AllowMultiSelect = False .Title = "Please Select One File only..." If .Show = True Then getfile1 = .SelectedItems(1) getfile1Ext = LCase(Right(getfile1, Len(getfile1) - InStrRev(getfile1, "."))) If getfile1Ext = "jpg" Or getfile1Ext = "jpeg" Then ' Ensure the folder exists If Dir("C:\Waybill\", vbDirectory) = "" Then MkDir "C:\Waybill\" End If wbmx = Nz(DMax("WaybillID", "tbl_Waybill"), 0) inmx = wbmx & TmpInv jpNmm = "C:\Waybill\Invoice" & inmx & ".jpg" FileCopy getfile1, jpNmm Me.ImgWaybill.Picture = jpNmm Me.txtWaybillimg = jpNmm Else MsgBox "Wrong file... only JPG image files are allowed.", vbExclamation, "|Wrong file format|" End If End If End With Exit Sub ErrorHandler: MsgBox "Error: " & Err.Description, vbCritical, "Error" End Sub
I was having this error as well. I implemented your code and it now works fine!
Thank you!
Super happy, it helped you!