Scopri tutto sul codice VBA di Microsoft Access - Funzioni VBA, scorciatoie e molto altro ...!

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 Integer  

If strNewPath <> “” And Dir ( strNewPath ) <> “” Allora

      Imposta colTbl = Nuova collezione  
      Imposta dbs = CurrentDb  

      Per 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 intTbl  

      Per 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 intTbl  

      Imposta 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 String

Dim 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 Se

Imposta 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 Funzione

Basta 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 ]

Scopri tutto sul codice VBA di Microsoft Access – Funzioni VBA, scorciatoie e molto altro …!