Buonasera a tutti,
vi espongo la mia esigenza. Devo allegare ad ogni record presente in db un file pdf e poterlo visualizzare cliccando sul percorso memorizzato.
Vi allego il codice che ho scritto ma quando lo eseguo mi memorizza il contenuto che vado a inserire nel campo strfile. In msgbox vedo correttamente il percorso del file selezionato. Grazie in anticipo Giuseppe
Questo è il codice che ho scritto:
Private Sub Comando10_Click()
On Error GoTo errHanlder
Dim strFile As String
strFile = cmdFileDialog2
If Len(strFile) = 0 Then Exit Sub
Dim aFiles() As String
Dim i As Long
Dim strSql As String
DBEngine.BeginTrans
'For i = 0 To UBound(aFiles)
' strSql = "insert into tabella1 (fogliocri) values(" & Me.fogliocri & ",'" & aFiles(i) & "')"
DoCmd.RunSQL ("insert into tabella1 (fogliocri) values (strFile)")
'DBEngine.CommitTrans 1 ' 1=dbForceOSFlush
MsgBox (strFile)
Me.Requery
exitHandler:
Exit Sub
errHanlder:
DBEngine.Rollback
With Err
MsgBox "ERR#" & .Number _
& vbNewLine & .Description _
, vbOKOnly Or vbCritical
End With
Resume exitHandler
End Sub
Private Sub Comando9_Click()
On Error GoTo errHanlder
Dim strFile As String
strFile = cmdFileDialog2
If Len(strFile) = 0 Then Exit Sub
Dim aFiles() As String
Dim i As Long
Dim strSql As String
DBEngine.BeginTrans
'For i = 0 To UBound(aFiles)
' strSql = "insert into tabella1 (foglioviaggio) values(" & Me.foglioviaggio & ",'" & aFiles(i) & "')"
'SQL = "INSERT INTO tabella1 ([foglioviaggio]) VALUES ('1', '2','" & Now() & "', 'ClientName' , '" & Me.ClientName.Value & "', '" & Me.clientNameTextBox.Value & "')"
'db.Execute SQL
DoCmd.RunSQL ("insert into tabella1 (foglioviaggio) values (Me.strFile.Value)")
'DBEngine.CommitTrans 1 ' 1=dbForceOSFlush
MsgBox (strFile)
Me.Requery
exitHandler:
Exit Sub
errHanlder:
DBEngine.Rollback
With Err
MsgBox "ERR#" & .Number _
& vbNewLine & .Description _
, vbOKOnly Or vbCritical
End With
Resume exitHandler
End Sub
Private Sub Form_Current()
Me.cmdLoadDoc.Enabled = Not IsNull(Me.foglioviaggio)
End Sub