Sommario:
Questo tutorial vi aiuta a orientare gli strumenti diprogrammazione, vale a dire il codice VBA in Microsoft Access e si punta a risorse Alcuni dove si può imparare di più sulla programmazione.
È necessario aver utilizzato le macro di Access ed è più lavoro con cui lavorare . … non è vero ? Ma sai come semplificare questa complessità solo facendo uso dei codici VBA in Access.
Cos’è il codice VBA? Bene per ottenere risposte a queste domande, devi solo mettere le mani su MS Access.
Introduzione ad accedere a VBA
VBA è un linguaggio di programmazione che è possibile utilizzare per creare potenti applicazioni in Access. VBA include un numero elevato di variabili che è possibile utilizzare per accedere alle macro.
Non solo questo, ma anche l’uso di controlli di terze parti e la scrittura di proprie funzioni / procedure per specifiche esigenze specifiche. Puoi anche utilizzare il codice VBA per integrare il tuo accesso anche ad altri programmi.
Programmare Microsoft Access con VBA può essere più semplice se conosci la tastiera per i comandi più comuni e i bit di codice più comuni nella tua applicazione.
[ cta-it-729 ]
Come per attivare le funzioni built-in in Access VBA
Sai che puoi attivare le funzioni VBA integrate nell’applicazione Access 2013/2016. Vuole sapere come seguire queste istruzioni passo passo.
Per utilizzare le funzioni VBA integrate nel tuo accesso base di dati , sarà necessario passare al riferimento di base visivo denominato “Visual Basic per applicazioni”.
- Per questo, è sufficiente aprire il database.stampa Alt + F11 per aprire il Microsoft Visual Basic Quando la finestra di Microsoft Visual Basicappare, selezionare Riferimenti sotto il menu
- Quando lafinestra Riferimenti Appare, cercare il riferimento chiamato Scaduto Visual Basic per le applicazioni e assicurarsi che sia controllato.
- Dopo il clic sul pulsante OK.
- Ora il tuo database di accesso è in grado di utilizzare le funzioni VBA integrate.
Codice di programmazione e debug di accesso comune
Ecco l’elenco del codice VBA comune che ti aiuta nell’esecuzione dell’attività VBA completata, quindi tienilo a portata di mano.
Per aprire una maschera in visualizzazione maschera:
DoCmd.OpenForm “formname“,acNormal
Apportare modifiche al modulo di proprietà su un modulo aperto:
Forms![formName].propertyName = newValue
Ottieni valore da un controllo su un modulo aperto:
Forms![formName]![controlName].Value
Modifica il valore di un controllo su un modulo aperto:
Forms![formName]![controlName].Value = newValue
Modificare una proprietà di controllo in un modulo aperto:
Forms![formName]![controlName].propertyName = newValue
Chiudi un modulo, salvando le modifiche:
DoCmd.Close acForm, “formName“, acSaveYes
Stampa un rapporto:
DoCmd.OpenReport “reportName“, acViewNormal
Esegui una query di azione:
DoCmd.RunSQL “SQLstatement
Per visualizzare un messaggio semplice
MsgBox “yourMessage“
Per chiedere sì / nessuna domanda sullo schermo.
variable = MsgBox(“yourMessage“, vbQuestion + vbYesNo)
LEGGI ANCHE:
Come risolvere MS Access errore riservato 7713, 7748, 7711 In Access 2016 / 2013/2010/2007
Navigazione e selezione del codice in Vba
Puoi utilizzare queste scorciatoie VBA nella finestra del codice e la finestra immediata per semplificare il tuo stile di lavoro.
| azione | Tasto di scelta rapida |
| Sposta il cursore a destra di un carattere | → |
| Seleziona il carattere a destra | Maiusc + → |
| Sposta il cursore a destra di una parola | Ctrl + → |
| Seleziona alla fine della parola | CTRL + MAIUSC + → |
| Sposta il cursore a sinistra di un carattere | ← |
| Seleziona il carattere a sinistra del cursore | Maiusc + ← |
| Sposta il cursore a sinistra di una parola | Ctrl + ← |
| Sposta il cursore per iniziare la linea | casa |
| Seleziona il testo per iniziare la linea | Maiusc + Home |
| Sposta il cursore alla fine della riga | fine |
| Seleziona il testo alla fine della riga | Maiusc + Fine |
| Sposta il cursore su una linea | ↑ |
| Sposta il cursore lungo una linea | ↓ |
| Sposta il cursore sulla prossima procedura | Ctrl + ↓ |
| Sposta il cursore sulla procedura precedente | Ctrl + ↑ |
| Scorri verso l’alto di una schermata | PgUp |
| Scorri verso il basso di una schermata | PgDn |
| Vai all’inizio del modulo | Ctrl + Home |
| Seleziona tutto il testo nella parte superiore del modulo | Ctrl + Maiusc + Home |
| Vai in fondo al modulo | Ctrl + Fine |
| Seleziona tutto il testo in fondo al modulo | Ctrl + Maiusc + Fine |
| Taglia la selezione | Ctrl + X |
| Copia selezione | Ctrl + C |
| Incolla la selezione | Ctrl + V |
| Taglia la linea corrente negli Appunti | Ctrl + Y |
| Elimina alla fine della parola | Ctrl + Delete |
| Elimina carattere o testo selezionato | Elimina (Del) |
| Elimina carattere a sinistra del cursore | Backspace |
| Elimina alla fine della parola | Ctrl + Delete |
| Elimina all’inizio della parola | Ctrl + Backspace |
| disfare | Ctrl + Z |
| Linea di rientro | linguetta |
| Linea Outdent | Shift + Tab |
| trovare | Ctrl + F |
| sostituire | Ctrl + H |
| Trova successivo | F3 |
| Trova precedente | Maiusc + F3 |
| Ottieni aiuto con la parola attualmente selezionata | F1 |
| Informazioni rapide | Ctrl + I |
Tasti di scelta rapida per General VBA Editor
La seguente tabella ti darà la conoscenza dei tasti di scelta rapida e delle loro funzioni in tutto l’editor di Visual Basic, dove scrivi, modifichi ed esegui il tuo codice VBA.
| azione | Tasto di scelta rapida |
| Passa tra Access e l’editor VBA | Alt + F11 |
| Aiuto | F1 |
| Visualizza il browser degli oggetti | F2 |
| Visualizza proprietà / eventi | F4 |
| Visualizza la finestra del codice | F7 |
| Visualizza finestra immediata | Ctrl + G |
| Visualizza il menu di scelta rapida | Maiusc + F10 (o tasto destro del mouse) |
| Esegui un sub / form utente | F5 |
| Arresta l’esecuzione del codice | Ctrl + Pausa |
| Chiudi Editor VBA e torna ad Access | Alt + Q |
VBA di debug scorciatoia chiavi
Il codice nel linguaggio di programmazione deve essere esattamente, non ci possono essere errori o errori. Se c’è qualche errore o bug allora mostrerà il problema di compilazione. Fortunatamente, è possibile eseguire il debug del codice VBA rapidamente con queste scorciatoie di debug.
| azione | Tasto di scelta rapida |
| Attiva / disattiva punto di interruzione | F9 |
| Entra | F8 |
| Scavalcare | Shift + F8 |
| Esci | Ctrl + Shift + F8 |
| Corri al cursore | Ctrl + F8 |
| Cancella tutti i punti di interruzione | Ctrl + F9 |
Codice di accesso VBA importante insieme agli esempi
ChangeLinkPath
Questa funzione viene principalmente utilizzata per modificare il percorso di un nuovo percorso. La funzione esegue questa operazione eliminando le tabelle e rilasciandole nella tabella nel nuovo percorso.
Funzione pubblica ChangeLinkPath ( strNewPath As String) As String
DBS fiochi come DAO.Database
Dim strTblName As String
Dim colTbl As Collection
Dim intTbl As IntegerIf strNewPath <> “” And Dir ( strNewPath ) <> “” Allora
Imposta colTbl = Nuova collezione
Imposta dbs = CurrentDbPer intTbl = dbs.TableDefs.Count – 1 TB 0 Passaggio -1
Se dbs.TableDefs ( intTbl ) .Connect <> “” E _
Non dbs.TableDefs ( intTbl ) .Connect Like “*” & strNewPath Then
colTbl.Add dbs.TableDefs ( intTbl ).
dbs.TableDefs.Delete dbs.TableDefs ( intTbl ).
Fine Se
Avanti intTblPer intTbl = colTbl.Count per 1 passaggio -1
strTblName = colTbl ( intTbl )
DoCmd.TransferDatabase acLink , “Microsoft Access”, _
strNewPath , acTable , strTblName , strTblName
Debug.Print “connessione apportata a” “& strTblName e” “”
Avanti intTblImposta dbs = Nothing
Imposta colTbl = Nothing
Debug.Print “FATTO!”
ChangeLinkPath = “FATTO!”altro
Debug.Print “Nuove modifiche non fornite.
ChangeLinkPath = “Nuovo percorso non fornito.Fine Se
Esci dalla funzione
Fine Funzione
ImportExportSpecification
Questa sezione di Access VBA contiene documentazione per tutti gli oggetti, proprietà, metodi ed eventi nel modello di oggetti di accesso.
ImportExportSpecification l’oggetto contiene tutte le informazioni che l’accesso ha bisogno di ripetere un’importazione / esportazione
Devi usare il aggiungere metodo del ImportExportSpecifications collezione per creare un nuovo ImportExportSpecification oggetto. Usa l’esecuzione metodo per eseguire operazioni di importazione o esportazione salvate.
LEGGI ANCHE:
Come trovare e rimuovere i record di MS Access duplicati in Access 2013 e 2016
ConcatenateFieldValues
Bene, questa funzione si basa su un nome di funzione concatenato. È usato per creare una stringa concatenata da un singolo campo di valori.
I record da includere, oltre al campo da utilizzare per la stringa concatenata, vengono forniti dall’istruzione SQL passata alla funzione.
L’istruzione SQL passata deve restituire solo un campo affinché questa funzione funzioni correttamente. Il valore nella stringa concatenata è dato dalla stringa fornita alla funzione come stringa delimitatore.
Funzione pubblica ConcatenateFieldValues ( pstrSQL As String, _
Opzionale pstrDelim As String = “,”) As StringDim strConcat Come stringa
‘====== Per ADO come le prossime 2 righe e =======
‘====== decommenta le linee ADO sotto =======
Dim db As DAO.Database
Dim rs As DAO.Recordset
In caso di errore, riprendi
strConcat = “”
‘====== Per ADO come uscite 2 linee DAO e =======
‘====== decomprimere le linee ADO sotto =======
Impostare db = CurrentDb
Imposta rs = db.OpenRecordset ( pstrSQL )‘====== Per ADO decommentare le prossime due righe e =====
‘====== come fare per le linee DAO sopra e sotto ======
‘Dim rs As New ADODB.Recordset
‘ rs.Open pstrSQL , CurrentProject.Connection , _
‘ adOpenKeyset , adLockOptimistic
Con rs
Se non. EOF allora
. MoveFirst
Do While Not .EOF
strConcat = strConcat & .Fields (0) & pstrDelim
. MoveNext
cappio
Fine Se
.close
Fine Con
Imposta rs = Nothing
‘====== Come prossime 2 righe per ADO ========
db.Close
Imposta db = Nothing
Se Len ( strConcat )> 0 Then strConcat = _
Sinistra ( strConcat , Len ( strConcat ) – Len ( pstrDelim ))
ConcatenateFieldValues = strConcat
Esci dalla funzione
Fine Funzione
DeleteAllRelationships ()
DeleteAllRelationships funzione () Fondamentalmente codice viene utilizzato per eliminare tutte le relazioni nel database corrente.
In alcune circostanze, il database di accesso non riesce a visualizzare le relazioni tra le tabelle nella finestra delle relazioni. Dal momento che non puoi vedere la relazione né tu non è stato possibile eliminarli, il che porterebbe a uno stato incoerente. Quindi, per questi casi, questo codice è fornito come una soluzione.
Funzione DeleteAllRelationships ( ) As String
‘ATTENZIONE: cancella tutte le relazioni nel database corrente.
DB attuale del database DB dim
Dim rex come relazioni di currentDB .
Dim rel come relazione ‘ Eliminazione della relazione.
Dim iKt As Integer ‘Conteggio delle relazioni cancellato.
Dim sMsg As String ‘Stringa MsgBox .sMsg = “Informazioni su eliminare TUTTE le relazioni tra le tabelle nel database corrente.” & vbCrLf & “Continua?”
Se MsgBox ( sMsg , vbQuestion + vbYesNo + vbDefaultButton2, “Sei sicuro?”) = VbNo Then
DeleteAllRelationships = “Operazione annullata”
Esci dalla funzione
Fine SeImposta db = CurrentDb ( )
Imposta rex = db.Relations
iKt = rex.Count
Do While rex.Count > 0
Debug.Print rex (0).
rex.Delete rex (0).
cappio
DeleteAllRelationships = iKt e “relazione / i cancellati”
Fine FunzioneBasta copiare e incollare questa funzione in un modulo. Premi Ctrl + G per aprire la Finestra Immediata. immettere:
? DeleteAllRelationships ()
conclusione:
Si spera che tu abbia acquisito una grande conoscenza del codice VBA di accesso. ESPLORA LE TUE IDEE SULLA PROGRAMMAZIONE CON ACCESSO ….!
[ cta-it-729 ]