eseguibili con Ms Access
Tutorial->Programmazione-tutorial->tutorial Access
E' possibile distribuire il file access in formato MDE, cioè un formato che non contiene il codice sorgente e non permette di visualizzare in modalità struttura le maschere e i reports del database; sono modificabili però le tabelle e le query.
Tale formato viene creato selezionando nel menu strumenti la voce 'crea file mde', ma prima di eseguire questa funzione è necessario compattare il codice, eseguendo il debug da VBA e salvare il tutto.
Un'ulteriore precauzione è non permettere all'utente di evitare l'esecuzione della macro Autoexec (se presente) o l'apertura della maschera iniziale; infatti premendo il pulsante delle maiuscole durante l'apertura di un file access, è possibile accedere alla finestra del database, nonostante si sia inserito del codice per evitarne la comparsa.
Ciò è evitabile da VBA inserendo le seguenti righe di codice:
ChangeProperty "StartupShowDBWindow", DB_BOOLEAN, False
ChangeProperty "StartupShowStatusBar", DB_BOOLEAN, False
ChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, False
ChangeProperty "AllowFullMenus", DB_BOOLEAN, False
ChangeProperty "AllowBreakIntoCode", DB_BOOLEAN, False
ChangeProperty "AllowSpecialKeys", DB_BOOLEAN, false
ChangeProperty "AllowBypassKey", DB_BOOLEAN, false
La funzione ChangeProperty è la seguente:
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim Dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set Dbs = CurrentDb
On Error GoTo Change_Err
Dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then' Property not found.
Set prp = Dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
Dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function
Con Mde:
Ovvero Office Development Edition permette di ottenere un SETUP dell'applicazione, sia su dischetti che su CD-Rom. Il cliente finale è completamente libero da royalties nell'utilizzo del mio applicativo (ovvero non deve pagare nulla a Microsoft), che potrà eseguire, ma del quale non potrà vedere o modificare il contenuto applicativo.
