Newsgroup: it.comp.appl.access
Titolo: Percorso completo del database

Dovendo lavorare con database simili per operazioni di confronto o di
copia/incolla avrei bisogno di sapere se c'è un modo per visualizzare il
percorso completo del database su cui si lavora (chiaramente senza andare in
file > Proprietà)
--
Ciao, Sandrobi
"De quo nihil dici potest, id tacendum est" (L. Wittgenstein, "Tractatus
logico-philosophicus")

 wrote in message
news:4348101f$0$13345$
4faf...@reader2.news.tin.it

CurrentProject.Path può andare...?
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

[Cut]
Questo è quello che io adopero nelle mie Procedure per sapere il Nome del 
computer e dir dovè il Db in Uso
Public Function TrovaNomeComputer()
On Error GoTo Err_Validate_str
     Dim lngLun As Long, lngX As Long
     Dim strNomeComp As String
     Stringa = ""                                ' Variabile Globale
    lngLun = 16
    strNomeComp = String$(lngLun, 0)
    lngX = apiGetComputerName(strNomeComp, lngLun)
    If lngX <> 0 Then
        Stringa = Left$(strNomeComp, lngLun)
    Else
        Stringa = ""
    End If
Exit_Validate_str:
    Exit Function
Err_Validate_str:
        MsgBox Err.Description
    Resume Exit_Validate_str
End Function
  TrovaNomeComputer
  NomeComputer = "Questo Computer si chiama: " & Stringa & " Db : " & 
CurrentDb().Name
saluti
Marcello

 Ciao, Sandrobi
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


Ok, ma la mia esigenza è però di vederlo sulla finestra di Access, barra del
titolo, su una barra strumenti o simile, sul tipo di esplora risorse.
Insomma, mentre ho un database aperto, vedere il suo percorso senza andare
sul menu File.
Sandrobi

 ha scritto nel messaggio 
news:434a58cf$0$29548$4faf...@reader1.news.tin.it...


 On Error GoTo Err_Sostituire
No. Ripeto:
Ok, ma la mia esigenza è però di vederlo sulla finestra di Access, sulla
barra del
titolo, su una barra strumenti o simile, sul tipo di esplora risorse.
Insomma, mentre ho un database aperto, vedere il suo percorso senza andare
sul menu File o in una maschera specifica.
Con A2000  c'è qualcosa?
Sandrobi

 wrote in message
news:434ead32$0$29547$
4faf...@reader1.news.tin.it

Da usare in questo modo:
  Call IntestaBarra("AppTitle", dbText, CurrentDb.Name)
  RefreshTitleBar
'Scrive intestazioni sulla barra dei titoli principale
Public Function IntestaBarra(strNome As String, varTipo As Variant,
varValore As Variant) As Integer
 
  Dim dbs As Database, prp As Property
  Const conErroreProprietàNonTrovata = 3270
  Set dbs = CurrentDb
  On Error GoTo AggProp_Err
  dbs.Properties(strNome) = varValore
  IntestaBarra = True
AggProp_Bye:
    Exit Function
AggProp_Err:
  If Err = conErroreProprietàNonTrovata Then
        Set prp = dbs.CreateProperty(strNome, varTipo, varValore)
        dbs.Properties.Append prp
        Resume
  Else
        IntestaBarra = False
        Resume AggProp_Bye
  End If
End Function
Ciao


 ha scritto
CUT

Ok, quindi l'unica soluzione è quella di personalizzare la barra del titolo.
Grazie

 Grazie
Che significa personalizzare...?
Non ho fatto altro che accedere ad una proprietà(la CaptionBar)
dell'applicazione.
