Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man kan få en Gör Räknare Table Query

    Veta hur programmatiskt för att skapa en tabell och sedan lägga till ett fält auto nummer med Visual Basic for Applications ( VBA ) kan spara tid när du arbetar med Microsoft Office Access . Access är en relationsdatabas management system som ingår i Microsoft Office-paketet . VBA är en dator programmeringsspråk som används i Microsoft Office-program för att automatisera manuella processer som att skapa tabeller . I några steg du kan skriva VBA-kod för att skapa en tabell , lägga till data i den och lägg till fält auto nummer till den . Instruktioner
    1

    Öppna Microsoft Office Access 2007 och klicka på " Tom databas , " välj sedan " Skapa ". Klicka på " Databas Verktyg " och välj sedan " Visual Basic " för att öppna Microsoft Visual Basic Window . Välj " Infoga "-fältet och klicka
    2

    Kopiera och klistra in följande kod i modulen " Modul . " :

    Private Sub createAutoNumberField ( ) katalog

    Set dbs = Application.CurrentDb

    sQLString = " CREATE TABLE InstrumentInfo ( Instrument TEXT , serienummer TEXT ) "

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( sQLString ) katalog

    strSQL = " INSERT INTO InstrumentInfo VALUES ( ' MXA ' , '83456 ' ) "

    DoCmd.RunSQL ( strSQL ) katalog

    strSQL = " INSERT INTO InstrumentInfo VALUES ( ' Signal Generator " , '1244532 ' ) "

    DoCmd.RunSQL ( strSQL ) katalog

    Set tblDef = dbs.TableDefs ( " InstrumentInfo " ) katalog

    Set autoField = tblDef.CreateField ( " AutoColumn " , dbLong ) katalog

    autoField

    . attribut = dbAutoIncrField

    End With

    tblDef.Fields

    . Bifoga autoField

    . Refresh

    End With

    End Sub
    3

    Kör subrutinen genom att trycka på " F5 ".

    Addera

    Tidigare:

    nästa:
    relaterade artiklar
    ·Vad är DNN symbolfiler
    ·Dim Alternativ i VBA
    ·Hur man skapar en ny kontroll Form i VB6
    ·Hur man använder SearchEx metod i VB6
    ·Hur man gör med ComboBox
    ·Hur man skickar Vars Från VBScript till en kommandofil…
    ·Hur Exportera Access- data med VBA
    ·Hur man använder Visual Basic för att skapa ett flerv…
    ·Hur man sätter in en Header med VBA
    ·Hur ställer jag in ett fält i MS Word 2007 för åtko…
    Utvalda artiklarna
    ·Hur Loop Through MIME-typer
    ·Hur man använder NetBeans för att felsöka MATLAB
    ·Hello World Tutorial
    ·Hur byter jag namn på flera filer med ett datum med Vi…
    ·Hur man deklarerar Statiska funktioner i C + +
    ·Hur får man ett svar från en röstbrevlåda i VB.Net
    ·Hur Överför data till MySQL Server
    ·Hur att skapa säkra DNN -moduler
    ·Hur du använder Struts med NetBeans
    ·Hur man definierar en konstant datum i VB.NET
    Copyright © Dator Kunskap http://www.dator.xyz