Newsgroup: it.comp.appl.access
Titolo: Recuperare il path del BE

Buon giorno a tutti,
nel mio DB utilizzo "CurrentProject.Path" per ottenere il path del DB
e procedere poi ad alcune operazioni di creazione dir e spostamento o
copia all'interno delle stesse di files.
Tutto funzionava bene fino al momento in cui ho diviso il DB in FE e
BE (situato su un server in rete) quando il medesimo comando mi
restituisc (credo ovviamente) la localizzazione del FE e non, come
sperato, il path del BE ... ne consegue che le predette operazioni su
files e cartelle vengono eseguite ma solo dove è localizzato il FE e
non , come ritenuto, dove si trova il BE ...
Quale comando alternativo posso usare ... ???
Grazie a tutti per l'attenzione.

 ha scritto nel messaggio 
news:a754322b-7d03-47df...@h16g2000yqj.googlegroups.com...
Buon giorno a tutti,
nel mio DB utilizzo "CurrentProject.Path" per ottenere il path del DB
e procedere poi ad alcune operazioni di creazione dir e spostamento o
copia all'interno delle stesse di files.
Tutto funzionava bene fino al momento in cui ho diviso il DB in FE e
BE (situato su un server in rete) quando il medesimo comando mi
restituisc (credo ovviamente) la localizzazione del FE e non, come
sperato, il path del BE ... ne consegue che le predette operazioni su
files e cartelle vengono eseguite ma solo dove č localizzato il FE e
non , come ritenuto, dove si trova il BE ...
Quale comando alternativo posso usare ... ???
prova cosi:
dlookup("database","MSysObjects","database<>'"& isnull(database) &"'")
Grazie a tutti per l'attenzione.
-- 
Ciao
Geppo 

...ops, cosi č meglio:
 dlookup("database","MSysObjects","database<> isnull(database)")
-- 
Ciao
Geppo

 Geppo
Innanzitutto grazie per il veloce interessamento,
premetto che ho provato ad usare l'opzione che mi ha gentilmente
indicato ma ritengo di ssermi espresso in maniera errata ...
ovvero ... con quanto mi dici devo comunque sostituire nella stringa
alla voce "database" il mome del mio DB, mentre a me serviva una
alternativa all'istruzione "CurrentProject.Path" perché la devo
inserire in questa IF:
    If fIsFileDIR("S:\ATTI DIGITALIZZATI\" & Me.Anno, vbDirectory)
Then
        MsgBox "Cartella già esistente..."
    ElseIf MakeDir("S:\ATTI DIGITALIZZATI\" & Me.Anno) Then
       MsgBox "Cartella creata correttamente"
Spero di poter ottenere un'ulteriore suggerimento in proposito ...
Grazie ancora.
Francesco

 Geppo
Innanzitutto grazie per il veloce interessamento,
premetto che ho provato ad usare l'opzione che mi ha gentilmente
indicato ma ritengo di ssermi espresso in maniera errata ...
ovvero ... con quanto mi dici devo comunque sostituire nella stringa
alla voce "database" il mome del mio DB
No....database è il nome del campo che contiene il path del BE, nella 
tabella di sistema "V"
, mentre a me serviva una
alternativa all'istruzione "CurrentProject.Path" perché la devo
inserire in questa IF:
appunto.......
dim vPath
vPath=dlookup("database","MSysObjects","database<> isnull(database)")
    If fIsFileDIR(left(vpath, instrrev(vpath, "\"))" & Me.Anno, vbDirectory)
Then
        MsgBox "Cartella già esistente..."
    ElseIf MakeDir(left(vpath, instrrev(vpath, "\"))" & Me.Anno) Then
       MsgBox "Cartella creata correttamente"
Spero di poter ottenere un'ulteriore suggerimento in proposito ...
Grazie ancora.
prego
Francesco
-- 
Ciao
Geppo 

 ha scritto nel messaggionews:86d03fcb-7abf-4ac0...@v39g2000yqm.googlegroups.com...

Ovviamente ero io a non aver capito nulla e contestualmente a non
essermi spiegato ... tutto funziona alla grande ... Grazie di cuore
della tempestività dell'interessamento ...
Buon fine settimana ...
Francesco

 - Mostra testo citato -
... mi cospargo il capo di cenere .. ho parlato troppo presto ...
ovvero ... la prima parte dle problema è risolta .. ma quando provo ad
operare sullo spostamento o copia dei fiules nelle cartelkle create
con la ruotine precedente ... non funziona ...
Mi spiego meglio ho provato questo ...
      If .Show = True Then
        strImgsrc = .SelectedItems(1)
      End If
   End With
   strImgdst = dlookup("database","MSysObjects","database<> isnull
(database)") & Me.Anno & _
           Mid(strImgsrc, InStrRev(strImgsrc, "\"))
   Select Case Me.SelFile
        Case 1
   'Se è stato selezionato un file
   'lo sposto nella cartela predefinita
   'lo visualizza e inserisce il percorso nella tabella
    If fIsFileDIR(strImgdst) Then
            MsgBox "File già esistente in archivio ...", vbExclamation
    Else
      FileCopy strImgsrc, strImgdst
      'Inserisco il percorso nella tabella
      Me.Path_Foto = strImgdst
      Kill strImgsrc
      Me.Refresh
      'Salvo il record
      DoCmd.RunCommand acCmdSaveRecord
   End If
        Case 2
   'Se è stato selezionato un file
   'lo copio nella cartela predefinita
   'lo visualizza e inserisce il percorso nella tabella
     If fIsFileDIR(strImgdst) Then
        MsgBox "File già esistente in archivio ...", vbExclamation
     Else
      FileCopy strImgsrc, strImgdst
      'Inserisco il percorso nella tabella
      Me.Path_Foto = strImgdst
      Me.Refresh
      'Salvo il record
      DoCmd.RunCommand acCmdSaveRecord
   End If
        End Select
... ma quando provo ad acquisire i file mi dice ... percorso non
trovato ... uff ... che altro sbaglio ???
Grazie di cuore per l'ultimo aiutino ...

 wrote:
---cut....
... mi cospargo il capo di cenere .. ho parlato troppo presto ...
ovvero ... la prima parte dle problema è risolta .. ma quando provo ad
operare sullo spostamento o copia dei fiules nelle cartelkle create
con la ruotine precedente ... non funziona ...
Mi spiego meglio ho provato questo ...
      If .Show = True Then
        strImgsrc = .SelectedItems(1)
      End If
   End With
e questa che cos'è?
'----------------------
   strImgdst = dlookup("database","MSysObjects","database<> isnull
(database)") & Me.Anno & _
           Mid(strImgsrc, InStrRev(strImgsrc, "\"))
'---------------------
provo a indovinare:
strImgdst = dlookup("database","MSysObjects","database<> isnull(database)")
strImgdst =  left(strImgdst, InStrRev(strImgdst, "\"))
strImgdst = strImgdst & Me.Anno &"\" mid(strImgsrc, InStrRev(strImgsrc, 
"\"))



-- 
Ciao
Geppo 

 ha scritto nel messaggionews:62f03481-2caf-4ffe...@t3g2000yqa.googlegroups.com...

... come indovino sei perfetto ... tutto funziona alla grande .. mi
hai fatto concludere in bellezza la settimana ...
Grazie veramente di cuore ...
Buon fine settimana anche a te ...
Francesco