Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Access a kliknite na tlačidlo " Tabuľka " na " Vytvoriť " kartu . Táto akcia začína vytvoriť tabuľku , do ktorej budete odosielať dáta formulára v programe Word .
2
typu " pole1 " v bunke vedľa poľa " ID " . Táto akcia vytvorí nový stĺpec , " pole1 " , v novej tabuľke .
3
Kliknite na tlačidlo Office a potom kliknite na tlačidlo " Uložiť ako . " Typ " C : \\ myDb.accdb " pre názov súboru . Keď vás Access zobrazí výzvu na zadanie názvu tabuľky , zadajte " Tabuľka1 . " Tým je dokončené nastavenie tabuľku , do ktorej bude aplikácia Word posielať svoje dáta formulára .
4
Zatvorte Access a potom otvorte Word .
5
Kliknite na záložku " Developer " a potom kliknite na tlačidlo " Legacy Nástroje " v " Ovládacie prvky " panelu .
6
kliknite na " Text Box " riadenie a potom pretiahnutím do okna dokumentu definovať textové pole pre vstup užívateľa .
7
Opakujte krok 5 a potom kliknite na ovládací prvok tlačidla " " . Ťahaním myši pod textové pole na vytvorenie tlačidlá, s ktorými sa užívateľ môže predložiť svoje textové pole dát .
8
Pravým tlačidlom myši na tlačidlo a potom kliknite na tlačidlo " Zobraziť kód " pre vstup do funkcie jazyka Visual Basic Word sa spustí , keď používateľ klikne na tlačidlo .
9
Zadajte nasledujúci príkaz na aktuálnu pozíciu kurzora . Toto vyhlásenie volá inú rutinu , ktorá pošle hodnotu textového poľa pre prístup k zásobníkom.
SendToAccess Text box1
10
Kliknite na " Odkazy " položky menu " Nástroje " a potom kliknite na " Microsoft Access Objects " políčko . To hovorí , Visual Basic , že váš program potrebuje mať prístup k virtuálnej objekty Microsoft Access .
11.
vložte nasledujúci program pod " End Sub " vyhlásenie . Tento program beží Prístup skryto a hovorí , že má vložiť dáta z textového poľa do tabuľky programu Access , ktorý ste vytvorili skôr .
Public Sub sendToAccess ( str1 )
Dim str2
Dim appAccess Ako Access.Application
Set appAccess = CreateObject ( " Access.Application " )
appAccess.OpenCurrentDatabase ( " c : \\ myDb.accdb " )
str2 = " vložiť do Table1 ( pole1 ) VALUES ( ' " & str1 & " ' ) "
appAccess.CurrentDb.Execute str2
appAccess.CurrentDb.Close
appAccess.Quit
End Sub
12
kliknite na ikonu programu Word na paneli úloh systému Windows sa vráťte do aplikácie Word a potom kliknite na tlačidlo " Design " na ukončenie režimu návrhu . To začína beh formu ste vykonali predtým . Tie sú teraz efektívne používateľ , pre ktorého napísal program .
13
Zadajte ľubovoľný text do textového poľa a potom kliknite na tlačidlo pod textovým poľom . Tlačidlo zostane stlačené chvíli , keď váš program beží .
14
Otvorte Prieskumníka Windows a prejdite do priečinka " \\ " , čo je miesto , kde ste uložili " mydb.accdb " databázy .
15
Double - kliknite na " mydb.accdb " otvorte ju a potom dvakrát kliknite - kliknite na " Table1 " položku v navigačnej table . Keď sa otvorí tabuľka , uvidíte slovo ste zadali do textového poľa vo formulári dokumentu programu Word . To vám povie , že váš program bol úspešný pri odosielaní dát formulára z programu Word do programu Access .