| Hjem | Hardware | Netværk | Programmering | software | Fejlfinding | systemer | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringssprog
  • Delphi programmering
  • Java programmering
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl programmering
  • Python Programming
  • Ruby Programming
  • Visual Basics Programmering
  •  
    Computer Viden >> Programmering >> Visual Basics Programmering >> Content
    Sådan får du adgang en Make Table Query Autonummerering
    Vide, hvordan man via programmering oprette en tabel og derefter tilføje en auto nummer felt ved hjælp af Visual Basic for Applications ( VBA ), kan du spare tid , når du arbejder med Microsoft Office Access. Access er en relationel database management system inkluderet i Microsoft Office-pakken. VBA er et edb-programmering sprog, der anvendes i Microsoft Office-programmer til at automatisere manuelle processer såsom at oprette tabeller. I et par trin, du kan skrive VBA-kode til at oprette en tabel , føje data til den og tilføje en auto nummer felt til det. Instruktioner
    1

    Åbn Microsoft Office Access 2007 og klik på " Tom database " og derefter vælge "Opret ". Klik på " Database Tools " og derefter vælge "Visual Basic " for at åbne Microsoft Visual Basic vindue. Vælg "Indsæt "-feltet og klikke på
    2

    Kopier og indsæt følgende kode i modulet " Modul ". : Hej

    Private Sub createAutoNumberField ()

    Set dbs = Application.CurrentDb

    sQLString = " CREATE TABLE InstrumentInfo ( instrument TEKST , SerialNumber TEXT )"

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( sQLString )

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

    DoCmd.RunSQL ( strSQL )

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

    DoCmd.RunSQL ( strSQL )

    Set tblDef = dbs.TableDefs ( " InstrumentInfo " )

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

    autoField

    . attributter = dbAutoIncrField

    End With

    tblDef.Fields

    . Append autoField < br >

    . Refresh

    End With

    End Sub
    3

    Kør subrutine ved at trykke på " F5 ".
    < br >

    Forrige :

    næste :
      Relaterede artikler
    ·Sådan bruges TryParse i Visual Basic 
    ·Sådan bruges Itemcheck Event i Visual Basic 6.0 
    ·Sådan erstatte flere tekstbokse i Visual Basic 
    ·Hvordan man laver en reset-knap på VBA 
    ·Sådan fjernes Command Button Border med VB6 
    ·Hvordan til at udsende en streng i Visual Basic 
    ·Hvordan du udskifter en tegnstreng i VB.NET 
    ·Sådan oprettes ActiveX i VB 
    ·Hvordan man opbygger en telefonsvarer i VB6 
    ·Sådan Link SQL-forespørgsler med Visual Basic 
      Anbefalede Artikler
    ·Sådan fjernes en Byte Character i PHP 
    ·Hvordan kan jeg ændre Regionale indstillinger af VBA 
    ·Hvordan man kan skjule PHP 
    ·Sådan installeres Innovatek 
    ·Sådan Detect Kollisioner i Xcode 
    ·Sådan oprettes en simpel Ubuntu Daemon i PHP 
    ·Sådan får feltnavnene fra en Datasæt 
    ·Hvad er Java Console 
    ·Sådan oprettes Socket Eksempler i Ada 
    ·Hvordan at øge størrelsen af HTML send-knappen 
    Copyright © Computer Viden http://www.computerdk.com