Microsoft Access de ingebouwde programmeeromgeving , Visual Basic for Applications of VBA , stelt gebruikers in staat om een van de gegevens operaties beschikbaar zijn in standaard user interface van Access 's uit te voeren . Deze activiteiten omvatten SQL- query's die het datatype van een kolom tabel te wijzigen , zoals van integer naar tekst . Toegang gebruikers kunnen verschillende benaderingen van het veranderen van een veld gegevenstype met VBA te nemen . Veranderende veld types met VBA macro's kan worden gedaan in een paar eenvoudige stappen . Instructies Open Microsoft Access 1 , daarna beginnen met het maken van een tabel van de sample data door te klikken op de "Table " punt "Create " menu 's . U zult VBA gebruiken om het gegevenstype van een veld wijzigen in deze tabel . Type " Boek " 2 in de tweede kolom van de bovenste cel in de tabel raster venster geopend in stap 1 . Type " Prijs " in de cel rechts van het "Boek" cel . Type 3 elk boek naam in de eerste cel onder de " Boeken " kolomkop en typ een monster kopen in de eerste cel onder de " prijs " kolom . Intikken van het nummer maakt automatisch Access definiëren de " Prijs " kolom als een niet - tekst , numeriek veld . Press 4 "Control - S , " voer " Booktable " om die naam te geven aan het monster gegevens . 5 klik met de rechtermuisknop op de tab " Booktable " en selecteer "Design view . " De " prijs " startrij dat verschijnt zal " Nummer . " Weer Dit geeft aan dat het veld " prijs " is een numerieke , geen tekst veld . Sluit het tabblad door met de rechtermuisknop te klikken en te klikken op ' Sluiten '. Druk " Alt - F11 " 6 om de codering venster voor VBA- macro's in te voeren . Klik op " Module " punt in het menu "Invoegen" om een nieuwe module of raam te voegen voor het invoeren van uw veld - wisselend programma . 7 Plak volgende programma in de module . "Execute " statement Dit programma loopt een SQL-opdracht , " ALTER TABLE , " op de " Booktable " data . Dit commando verandert het type veld van het veld " Prijs " van numerieke naar tekst . Public Sub ChangeDataType ( ) Dim dbase Zoals DAO.Database Stel dbase = CurrentDb dbase.Execute ( " ALTER TABLE Booktable ALTER COLUMN [ prijs ] tekst ( 25 ) ; " ) End Sub 8 Start het programma door op een van haar verklaringen en te klikken op " Run" commando van het menu " Run" . 9 Terug naar toegang door op " Alt - F11 , " dan opnieuw weer te geven het ontwerp uitzicht op de " Booktable 'gegevens door met behulp van de instructies stap 5 's . De " prijs " regel wordt nu " Tekst " in plaats van " Number . "
|