Aprire Microsoft Office Access 2007 e fare clic su " Database vuoto ", quindi selezionare "Crea ". Fare clic su " Strumenti di database ", quindi selezionare " Visual Basic " per aprire la finestra di Microsoft Visual Basic . Selezionare il campo "Inserisci" e fare clic su
2
Copia e incolla il seguente codice nel modulo "Modulo ". :
Private Sub createAutoNumberField ( ) per
dbs = Application.CurrentDb
sqlstring = " CREATE TABLE InstrumentInfo (strumento TESTO , SerialNumber TESTO ) "
DoCmd.SetWarnings False
DoCmd.RunSQL ( SqlString ) per
strSQL = "INSERT INTO InstrumentInfo ( ' MXA ' , '83456 ') "
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO InstrumentInfo ( ' Signal Generator ' , '1244532 ') "
DoCmd.RunSQL ( strSQL ) per
tblDef = dbs.TableDefs ( " InstrumentInfo " ) per
AutoField = tblDef.CreateField ( " AutoColumn " , dbLong ) per
AutoField
. Attributi = dbAutoIncrField
End With
tblDef.Fields
. Append AutoField
. Refresh
End With End Sub
3
eseguire la subroutine con il tasto " F5 ".
Programmazione © www.354353.com