Open Access e fare clic sul menu "Crea" voce, quindi clicca la voce "Tabella" .
2
tipo "Titoli" in prima intestazione di colonna della nuova tabella e "Autori " nella rubrica a destra di "Title ". Le intestazioni delle colonne rappresentano i campi per un piccolo database libri , che userete come un database esterno da importare con VBA .
3
Tipo alcuni titoli esemplificativi e autori in righe della tabella , quindi premere " Ctrl + S" . Tipo "Libri" quando viene richiesto il nome della tabella
4
premi "Salva con nome" del menu "File" il comando , quindi digitare " c : \\ books.accdb " per nome file del database. Fare clic su comando del menu "File" " database di Close" per chiudere il database .
5
Premere " Ctrl + N" per creare un nuovo database , quindi premere "Alt + F11 " per entrare nel VB IDE .
6
fare clic sul comando "Modulo" sotto il menu "Inserisci" per creare una nuova finestra per l'immissione del codice di programma.
7
incollare il seguente subroutine nella nuova finestra di codice . Questa subroutine chiama metodo " DoCmd " di accesso per aprire un database esterno - . Quello che hai fatto nei passaggi da 1 a 4
Public Sub importData ( ) per
DoCmd.TransferDatabase acImport , " Microsoft Access " , _
" C : \\ books.accdb " , rappresentabile , " libri " , " books2 "
End Sub
8
Clicca alcuna dichiarazione in subroutine appena incollato , quindi premere "F5" per eseguire la subroutine .
9
Premere " Alt- +11 " per tornare ad Access , quindi chiudere e riaprire il riquadro di navigazione a sinistra dello schermo facendo clic sul suo pulsante in alto "<<" . Il pannello di navigazione viene visualizzata una nuova tabella , " books2 . "
10
doppio clic sulla voce " books2 " per visualizzare la stessa lista dei libri che avete digitato nel passaggio 3 . Il sottoprogramma " importData " è stato eseguito in precedenza importato il database originale i libri in una nuova tabella nel database corrente .
Carica dati esterni da file di testo
11
Aprire Blocco note o un altro elaboratore di testo e digitare il testo nel file
12
Salvare il file come . "c : \\ textfile.txt "
13
Open Access , premere il tasto " Alt- F11 ", quindi incollare il codice riportato di seguito nella finestra del codice :
Public Sub GetExternalText ( ) per
Dim strText
aprire" C: \\ textfile.txt "per l'ingresso come # 1
Do While Not EOF ( 1 ) per
Line Input # 1 , strText
Debug.Print strText
loop
cLOSE # 1
End Sub
14
Clicca alcuna dichiarazione nel programma , quindi premere "F5" per eseguire il programma .
15
Press " Ctrl + G " per aprire l' IDE " finestra immediata " , che visualizzerà i dati di testo il tuo programma prelevati dal file di testo esterno .
Programmazione © www.354353.com