Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte program Microsoft Office Access 2007 a kliknite na tlačidlo " Prázdna databáza " , potom vyberte " Vytvoriť " . Kliknite na tlačidlo " Databázové nástroje " , potom vyberte " Visual Basic " , otvorte okno Basic Visual Microsoft . Vyberte " Vložiť " poľa a kliknite
2
Skopírujte a vložte nasledujúci kód do modulu " modul " . :
Private Sub createAutoNumberField ( )
Set DBS = Application.CurrentDb
SQLString = " CREATE TABLE InstrumentInfo ( TEXT Instrument , sériovéčíslo 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 )
S AutoField
. Atribúty = dbAutoIncrField
End With
S tblDef.Fields
. Append AutoField
. Obnoviť
End With
End Sub
3
spustiť podprogram stlačením tlačidla " F5 " .