App completa: Maschera di gestione del db, visibile e utilizzabile esclusivamente dall'admin (1)
Вставка
- Опубліковано 10 вер 2024
- Questo è un tutorial di un applicativo completo, che ci porterà a creare una maschera di gestione e amministrazione del database. La maschera sarà protetta da password (indipendentemente se il vostro db ne prevede una), o il link per aprirla non sarà visibile agli altri utenti.
Guardando il video, nei primi minuti vedrete subito il risultato che otterrete se seguirete totalmente il tutorial.
Come detto nel video, vi inserisco qui di seguito il codice vba che vi permetterà di cambiare in automatico la maschera di apertura del database
2 PARTE
• App completa: Maschera...
CODICE PER CAMBIO MASCHERA INIZIALE
Function MascheraIniziale(FormName As String)
Dim db As DAO.Database
Dim prop As DAO.Property
' Apre il database
Set db = CurrentDb
' Elimina la proprietà di default all'apertura se esiste
On Error Resume Next
db.Properties.Delete "StartupForm"
On Error GoTo 0
' Crea una nuova proprietà di default iniziale
Set prop = db.CreateProperty("StartupForm", dbText, FormName)
db.Properties.Append prop
' Salva i cambiamenti
db.Properties.Refresh
' Chiude il database
db.Close
' Ripulisce il database
Set prop = Nothing
Set db = Nothing
End Function
😁 come non detto oggi ho rifatto tutto dall'inzio (senza stanchezza) funziona!!! Grazie del video!!!
grazie! molto chiaro ed interessante anche per chi non è del settore e si avvicina alla programmazione access solo per passatempo. in un'ora scarsa di tutorial ho avuto modo di trovare spunti di perfezionamento per le operazioni di manutenzione db su cui, da mero lettore di manuali, mi stavo scervellando da circa tre anni...
grazie e complimenti!
Grazie a te
Come sempre ho seguito tutto, e funziona molto bene. Complimenti.....
molto bello grazie
Ciao. Una domanda, forse banale, ma se ci sono più data base legati ad una stessa madre , praticamente più utenti con lo stesso data base, se l'amministratore apre l'intervento, gli altri utenti non vengono bloccati. In cosa sbaglio? ho seguito perfettamnente il tutorial ma blocca solo il mio data base mentre gli altri funzionano regolarmente. Grazie...
Scusami, non funzionano i pulsanti per Nascondere la barra di Spostamento. Il selectObjet pare funzioni egregiamente, perchè mi seleziona la prima tabella disponibile, ma il Run cmmand, nonostante non manifesti nessun Erroe e codice di Errore, non ha effetti... la barra non si nasconde
Buongiorno, Perchè le maschere di Access 2021 non riesco a farle visualizzare solo sul desktop invece che dentro l'applicazione Access come facevo nella versione del 2000?
Tanta roba, complimenti, mancherebbe solo la funzione di disabilitare il tasto "shift" all'apertura.
Attendo anche il video sulla gestione del login e personalizzazione delle maschere in base agli users.
Per disabilitare il tasto "shift" devi creare una macro autoeseguibile, poi nel Catalogo azioni a destra clicca su sottomacro poi in corrispondenza di Sottomacro: dove trovi scritto Sub1 cancella e digita ap_DisableShift() salva la macro chiamata AutoExec, crea un'altra macro con la stessa procedura Sottomacro: {F11} e la chiami AutoKeys riavvia il db e prova a digitare il tasto F11 (tasto che apre e chiude la barra di spostamento) e vedrai che non succede nulla. Fammi sapere se funziona. Non so se può esserti utile per scrivere la parentesi graffa, aperta premi Alt e digita 123, chiusa: Alt125.
A breve la seconda parte di questo tutorial che include come disabilitare il tasto shift, sempre con lo stesso metodo degli altri, cioè cliccando su un pulsante
C'è un metodo molto ma molto più semplcie. A breve nella continuazione di questo tutorial
Ciao , ho inserito passo passo quanto da te descritto ed esattamente con le tue stesse parole ma non funziona , non nasconde toolbar , barra laterale e non attiva nemmeno il cambio maschera ....sapresti qual'è il problema ? magari manca qualche componente aggiuntivo ?
Tutto chiaro interessante e, principalmente, funzionante. Ma come potrei fare se volessi aggiungere un record ad una tabella di LOG ogni volta che un utente accede o esce dal DB? Con riportato usernname, data e ora dell'operazione? E' possibile?
Ciao e grazie per il tutorial molto molto interessante, volevo chiedere se è possibile in fase di scrittura della password dell'amministratore (Apriti123) non farla vedere ?
Selezioni il campo dove va inserita la password
Apri le proprietà, tab DATI
sulla riga MASCHERA DI IMPUT seleziona Ii 3 puntini e poi PASSWORD
Tutorial lunghetto ma molto interessante.Vorrei segnalare solo alcuni errori innocenti al minuto 23 circa dove spieghi della codifica del pulsante di back end cè una ripetizione nel video,e anche sui nomi dei pulsanti ti sei dimenticata del suffisso "btn" lo so sono un pignoletto😊complimenti a te che nonostante la stanchezza hai messo a nostra disposizione questo bel tutorial.Grazie
Il suffisso btn non è obbligatorio, io dico sempre di metterlo per comodità ma ho anche sempre detto date il nome che volete, il che vale anche per me e mi spiace che di un tutorial completo e soprattutto complesso di un'ora tu ti sia focalizzato su questa sottigliezza (perdonami)
Per quanto riguarda la ripetizione, perdonatemi ma si ero veramente stanca e mi è sfuggito in fase di montaggio
Salve, dove posso trovare la funzione MascheraIniziale?
in descrizione
Ciao , mi correggo ....non funzionano solo i pulsanti relativi alla barra di spostamento , al click restituisce l'errore 2544 Impossibile trovare l'oggetto a cui viene fatto riferimento nell'argomento Nome Oggetto
Hai tabelle nel tuo database?
veramente no , sto lavorando con solo maschere .... potrebbe essere il problema
@@LuigiCasto esatto. Crea una qualsiasi tabella e ti funzionerà
Fatto e funziona tutto perfettamente , Grazie e Forza Lec..
😂@@LuigiCasto
Come al solito Tutorial stupendi e completi. Va tutto alla perfezione solo che quando ho trascritto il codice per il cambio della maschera iniziale (Che ho copiato integralmente) mi da un errore "Tipo definito dall'utente non definito" come Debug sull'istruzione "Function MascheraIniziale(FormName As String)
Dim db As DAO.Database"
mi potresti aiutare?
Grazie
immagino tu abbia già provato a copiare la funzione MascheraIniziale per accertarti di averlo fatto correttamente e a creare un pulsante ex novo.
Nel caso prova prima a compile il database (in vba clicca su debug e poi compile....)
altrimenti prova questa strada
Sempre in VBA nel menu Strumenti seleziona Riferimenti
Nell'elenco dei riferimenti disponibili, cerca e seleziona "Microsoft DAO 3.6 Object Library" e metti la spunta.
Sei fantastica. Così funziona perfettamente. Grazie, Grazie ancora anche per la tua professionalità e per le risposte immediate che ci aiutano tantissimo@@accessfacile
Salve, mi puoi mandare una mail quando pubblichi un nuovo tutorial? Grazie!
La trovi all'inizio del tutorial