Microsoft Access den integrierten Programmierumgebung ermöglicht Visual Basic für Applikationen oder VBA , Nutzer zu einem der Daten -Operationen in der Access- Standard-Benutzeroberfläche durchführen . Diese Operationen umfassen SQL-Abfragen , die den Datentyp einer Tabellenspalte ändern , z. B. von integer in Text um. Access-Benutzer kann mehrere Ansätze zur Veränderung eines Feldes Datentyp mit VBA . Ändern Feldtypen mit VBA-Makros können in wenigen einfachen Schritten getan werden . Anleitung
1
Öffnen Sie Microsoft Access , dann beginnen Sie eine Tabelle erstellen von Sample-Daten , indem Sie auf die Schaltfläche "Create "-Menü die " Tabelle " auswählen. Sie verwenden VBA den Datentyp eines Feldes in dieser Tabelle ändern.
2
Typ "Buch" in der zweiten Spalte die oberste Zelle in der Tabelle Gitter Fenster in Schritt 1 geöffnet haben . Typ " Preis " in der Zelle auf der rechten Seite des " Book" Zelle.
3
Typ jedes Buch Namen in der ersten Zelle unterhalb der "Bücher " Spaltenüberschrift , und geben Sie eine Probe Preis in der ersten Zelle unter dem " Preis "-Spalte. Tippen Sie die Nummer automatisch macht Zugang definieren den " Preis "-Spalte als Nicht-Text- , numerisches Feld .
4
Presse "Control -S ", dann geben Sie " Booktable " , diesen Namen zu der Probe geben Daten .
5
rechten Maustaste auf das " Booktable " und wählen Sie "Design- Ansicht . " Der " Preis " Startreihe erscheinenden zeigt " Nummer ". Dies zeigt, dass der "Preis" ein numerisches Feld , nicht im Text -, Feld ist . Schließen Sie die Registerkarte mit der rechten Maustaste darauf klicken und klicken Sie auf " Schließen".
6
Presse "Alt -F11 ", um das Fenster für die Codierung von VBA-Makros in Kraft. Klicken Sie auf das Menü "Einfügen" die "Module" Element, um ein neues Modul oder ein Fenster für die Eingabe Ihrer Feld - wechselndes Programm einzufügen.
7
Fügen Sie das folgende Programm in das Modul . Dieses Programms "Execute "-Anweisung führt einen SQL-Befehl , " ALTER TABLE ", auf den " Booktable " Daten . Dieser Befehl ändert den Feldtyp der " Preis "-Feld von numerischen zum Text.
Public Sub ChangeDataType ()
Dim dbase Wie DAO.Database
dbase = CurrentDb Set
dbase.Execute ( "ALTER TABLE ALTER COLUMN Booktable [ Preis ] text (25) ;")
End Sub
8
Führen Sie das Programm , indem Sie auf eine ihrer Aussagen und auf das Menü "Ausführen" den Befehl "Ausführen" .
9
zurück zur durch Drücken von " Alt- F11 ", dann wieder anzuzeigen die Design-Ansicht der " Booktable " Daten durch Zugriff mit Schritt 5 zu beachten. Der " Preis " Zeile zeigt nun "Text " anstelle von "Number ".
