Turns out momma gave me a few minutes. Try this in your button click event
Code:
Private Sub Command45_Click()
'MkDir CurrentProject.Path & "\photos"
Dim Path1 As String, Path2 As String, FullPath As String
FullPath = DLookup("h", "table2", "ID=1")
MsgBox FullPath
Path1 = Left(FullPath, InStr(FullPath, "."))
Path2 = Mid(FullPath, InStr(FullPath, ".") + 1)
MsgBox Path1 & Path2
End Sub
Both messages should be the same. First is just what's in the table for ID1. Second is the second part of the string concatenated onto the first part of the string. So if the pic is a gif, that's what you should get.