Newsgroup: it.comp.appl.access
Titolo: 2 Domande & 2 Contributi

Salve a tutti :o)
Domande:
1- E' possibile abbinare un'icona al db senza doverne specificare il path
assoluto? Mi spiego: quando assegno un'icona al db (Strumenti->Avvio->Icona
Applicazione) sono costretto a mettere il path assoluto
(C:\miacartella\icona.ico), se sposto la cartella che ospita il db, viene
meno l'associazione. Come fare?
2- Assegnare ad una query valori prelevati da una maschera è facile
(Genera->Maschere->CampoMaschera), ma alcune volte non funziona: cioè un db,
perfettamente funzionante, che usa questa tecnica, funziona su un computer e
non su un altro con lo stesso Access. Vi è mai capitato?
Contributi:
Grazie ai vostri consigli (diretti o recuperati dallo storico del NG su
Google) sono riuscito a realizzare cose impensabili per un autodidatta come
me, perciò vorrei ringraziarvi e contribuire con un mio modesto contibuto.
1- Funzione per trasformare le vocali apostrofate (es a') in accentate (es
à)
Public Function funVocaliAccentate(strImmesso As String) As String
    strImmesso = Replace(strImmesso, "a'", "à")
    strImmesso = Replace(strImmesso, "e'", "è")
    strImmesso = Replace(strImmesso, "i'", "ì")
    strImmesso = Replace(strImmesso, "o'", "ò")
    strImmesso = Replace(strImmesso, "u'", "ù")
    funVocaliAccentate = strImmesso
End Function
2- Funzione per trasformare in maiuscole le lettere iniziali di tutte le
parole immesse nel campo anche se contenenti apostrofi (utile per i cognomi)
Public Function funMaiuscoleConApostrofo(strImmesso As String) As String
    strImmesso = Replace(strImmesso, "'", "    ")
    strImmesso = StrConv(strImmesso, vbProperCase)
    strImmesso = Replace(strImmesso, "    ", "'")
    funMaiuscoleConApostrofo = strImmesso
End Function
Anche se di granlunga più semplici di quelli che si trovano nel NG, spero
che le mie funzioni possano essere di utilità per qualcuno
Grazie
Diego :o)

 Diego :o)
Una sola risposta per entrambe: Scrivi un oggetto attinente al problema; o
meglio ancora due messaggi distinti per ogni problema, chiaramente con
oggetto attinente (descrittivo)...
Ciao.
--
Sergio MAZZA

meno l'associazione. Come fare?
Io ho fatto una funzione che ti riposto qui, vedi se ti puo' andare:
Function LoadAppSettings()
 
    Dim sIcon As String
    Dim AppPath As String
    Dim sVal As Integer
    Dim sTitoloApp As String
    Dim App As New dbTools
 
    AppPath = Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name)))
    sIcon = AppPath & "VideoDB.ico"
    sTitoloApp = "Gestionale Potentissimo versione 3000 XP(loder)"
    sVal = AggiungiPropAppl("AppIcon", dbText, sIcon)
    sVal = AggiungiPropAppl("AppTitle", dbText, sTitoloApp)
 
    Application.RefreshTitleBar
 
End Function
La seguente funzione l'ho ricavata dall'help in linea di access 97
(che ho usato per questa fuzione, access 2000/xp e' un po' diverso)
---------------
Function AggiungiPropAppl(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
    AggiungiPropAppl = 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
        AggiungiPropAppl = False
        Resume AggProp_Bye
    End If
End Function
-------------
VideoDB.ico e' il nome del file di icona, sostituiscilo con il tuo
assicurandoti che rimanga nella stessa cartella del tuo database.
Poi devi fare una macro Autoexec e come prima riga ci metti l'azione:
EseguiCodice (e vai a pescare col generatore di espressioni le
Funzioni e selezioni LoadAppSettings()
Il codice mettilo in un Modulo, salva il modulo e poi genera la macro.
Per quanto riguarda le tue funzioni...il comando REPLACE fa parte
delle librerie ADO e access 97 usa di default DAO, quindi chi ha
access97 non gli funzionera', a meno che' non inserisca i riferimenti
a ADO.
Spero di esserti stato di aiuto.
Ciao :)

 ha scritto nel messaggio
news:6jj750hiitchlq2ip...@4ax.com...

Anzitutto grazie per la risposta :o)
Ho provato il tuo listato, ma mi da errore nel debug alla dichiarazione "Dim
App As New dbTools": come mai?
Devo inserire qualcosa nei riferimenti, o sono totalmente fuori strada?
Grazie
Diego :o)

Devo inserire qualcosa nei riferimenti, o sono totalmente fuori strada?
E' una variabile che chima un mio modulo esterni, che in questa
routine non viene utilizzato, cancella pure la riga Dim App as new
dbtools
e scusami per il ritardi nella risposta
Ciao :)