lancio di Microsoft Access , fare clic su " Database vuoto " e fare clic sul pulsante "Crea " per creare un nuovo banca dati . Fare clic su "Strumenti database" e fare clic su " Visual Basic " per avviare l'editor di VBA . Fai clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice
2
Copia e incolla il seguente codice per creare una tabella e inserire una riga di dati utilizzando le istruzioni SQL : .
createTable private Sub ( ) per
Dim strSQL As String
strSQL = " CREATE TABLE myTbl ( fName TESTO , lName TESTO ) "
DoCmd.RunSQL ( strSQL ) per
strSQL = "INSERT INTO myTbl ( 'John ', ' Smith' ) "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) per
End Sub
3
Premere " F5 " per eseguire la procedura .
4
lancio di Microsoft Excel , fare clic sulla scheda "Sviluppatore " e cliccare su " Registra macro "per avviare la registrazione di una macro VBA . Fare clic su " OK" nella finestra di dialogo " Registra macro " . Tipo "2" in A1 e "4" in " B1 ". Fare clic su " Interrompi registrazione " e fare clic su " Visual Basic " per avviare l'editor di VBA
5
Espandere la cartella "Moduli " e fare doppio clic su " Modulo1 " per visualizzare il seguente codice macro : .
Range (" A1") . Seleziona
ActiveCell.FormulaR1C1 = " 2"
Range (" B1 " ) . Seleziona
ActiveCell.FormulaR1C1 = " 4 "
6
Aggiungere il seguente codice alla macro per visualizzare l'aggiunta di A1 e B1 in C1 :
Dim a As Integer
Dim b As Integer
Dim totale As Integer
Range (" A1") . Seleziona
a = Range (" A1") . Valore
Range (" B1 " ) . Seleziona
b = Range (" B1 " ) . Valore
totale = a + b
Range (" C1" ) . Selezionare
ActiveCell.FormulaR1C1 = totale
7
Premere " F5 " per eseguire il codice macro VBA .
Programmazione © www.354353.com