Newsgroup: it.comp.appl.access
Titolo: come si fa per aprire un documento di word da access?

Innanzitutto Salve a tutti e Auguri di buona Pasqua.
Rammento in premessa le caratteristiche della mia postazione:
P3 550Mhz s.o. win98se, access 97 128 mb ram
ed ecco il mio problema.
vorrei creare un archivio di documenti doc e/o pdf.
per questo ho creato una tabella del tipo
documento
data
argomento
estensione
...
ho provveduto a far si che ogni file sia denominato in questo modo
"documento-data.estensione"
a questo punto ho creato una maschera basata sulla tabella di cui sopra.
qui vorrei mettere un bottone che mi aprisse automaticamente il documento
selezionato (che in linea di massima corrisponde al record corrente.
ho provato a mettere questo bottone al quale ho associato questo codice:
Private Sub Comando26_Click()
On Error GoTo Err_Comando26_Click
    Dim stAppName As String
    Dim documentoAs String
    Dim data As String
    Dim estensione As String
    If estensione="doc" then
    stAppName = "winword.exe C:\WINDOWS\Desktop\documento & " - " & data &
"." & estensione"
elseif estensione="pdf" then
stAppName = "acrobat.exe C:\WINDOWS\Desktop\documento & " - " & data & "." &
estensione"
end if
end if
    Call Shell(stAppName, 1)
Exit_Comando26_Click:
    Exit Sub
Err_Comando26_Click:
    MsgBox Err.Description
    Resume Exit_Comando26_Click
End Sub
Poichč non succede nulla, potreste dirmi perfavore dove sbaglio
se esiste, invece qualche altra soluzione potreste suggerirmela?
Ringrazio anticipatamente tutti pčer l'attenzione e a presto

 selezionato (che in linea di massima corrisponde al record corrente.
va bene, ma qual'č il codice che associa le variabili string al record
corrente?


 > estensione
questa sottomaschera č in forma tabellare. speravo che il bottone in questo
modo si riferisse proprio al record selezionato, ma se non si fa cosě sono
proprio ridotto male...
grazie ancora


vediamo se si puņ fare qualcosa:
Private Sub Comando26_Click()
On Error GoTo Err_Comando26_Click
     Dim stAppName As String
     Dim documentoAs String
    Dim data As String
     Dim estensione As String
'-----------------------------------------------------
  Dim DB as Database
 Dim RS as Recordset
 set DB = CurrentDB
 set RS=DB.OpenRecordset("tuaTabella")   ' tuatabella č l'origine dei dati
della maschera in questione
documento=RS!documento
data=RS!data
estensione=RS!estensione
'------------------------------
     If estensione="doc" then
     stAppName = "winword.exe C:\WINDOWS\Desktop\documento & " - " & data
 &
 "." & estensione"
 elseif estensione="pdf" then
 stAppName = "acrobat.exe C:\WINDOWS\Desktop\documento & " - " & data &
"."
 &
 estensione"
 end if
 end if
     Call Shell(stAppName, 1)
 Exit_Comando26_Click:
'-----------------------------------------------------------
set DB=nothing
set RS=Nothing
'------------------------------------------------------
Exit Sub
 Err_Comando26_Click:
     MsgBox Err.Description
     Resume Exit_Comando26_Click
 End Sub
funzionerą?
ciao


di nulla
 e auguri

 >cut>
ti chiedo scusa per l'insistenza...
vorrei precisare che il nome del file che si dovrebbe aprire è del tipo
1231231.12-151200
dove 1231231.12 corrisponde a "documento"
e 151200 a "dat"
immaginavo così che il file potesse essere validamente individuato, se si
trova all'indirizzo
c:\windows\desktop\.....,  da
"c:\windows\desktop\" & documento & "-" & dat & "." & est
ma nonostante il mio documenti sia effettivamente
c:\windows\desktop\1231231.12-151200.doc nella forma in cui l'ho scritto
quando eseguo il codice mi dice
impossibile  aprire il file
per semplificare ho provato con
c:\windows\desktop\" & documento & est
 e conseguentemente nell'evento su click del bottone ho scritto:
Private Sub Comando11_Click()
Dim documento As String
'dim dat As String
Dim est As String
Dim stappname As String
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("note", dbOpenTable)
documento = rs!documento
'dat = rs!dat
est = rs!estensione
If est = "doc" Then
stappname = "winword.exe c:\windows\desktop\" & documento & est
ElseIf est = "pdf" Then
stappname = "acrobat.exe c:\windows\desktop\" & documento & est
End If
Call Shell(stappname, 1)
ma così l'errore è
errore di run time '5'
chiamata di routine o argomenti non validi
saresti così cortese da darmi amcora una mano?
a proposito
l'espressione
set db=nothing
set rs=nothing
a che serve?
le indicazioni
'---------------------------------- volevano dire che ci manca qualcosa?
ti ringrazio calorosamente e ti saluto