Newsgroup: it.comp.appl.access
Titolo: Creare nuova tabella con un campo id contatore

Qualcuno mi sa dire come fare per creare da codice una nuova tabella 
contenente un campo ID di tipo contatore (Access 2000)? Grazieeeeeeeeeee 

 contenente un campo ID di tipo contatore (Access 2000)? Grazieeeeeeeeeee
Se intendi dire che vuoi creare proprio una nuova tabella, devi utilizzare 
ADOX. Eccoti come fare.
    Dim catDB As New ADOX.Catalog
    Dim tblNuova As New ADOX.Table
    catDB.ActiveConnection = CurrentProject.Connection
    tblNuova.Name = "TabellaNuova"
    tblNuova.Columns.Append "ID", adInteger
    tblNuova.Columns.Append "Nome", adVarWChar, 20
    tblNuova.Columns.Append "Cognome", adVarWChar, 20
    tblNuova.Keys.Append "PK_ID", adKeyPrimary, "ID"
    catDB.Tables.Append tblNuova
    Set catDB = Nothing
    Set tblNuova = Nothing
Se intendi dire che vuoi crearti un recordset disconnesso contenente un 
campo contatore, ti riporto di seguito un po' di codice che serve per 
qualche caso in più, ma alle volte può tornare utile.
'------------------------------------------------------\
Dim strSQL As String
Dim rst As New ADODB.Recordset
Set rst = New ADODB.Recordset
strSQL = "" ' ----- Qui ci va l'origine SQL -----
rst.Fields.Append "CAP", adVarWChar, 5
rst.Fields.Append "Città", adVarWChar, 50
rst.Fields.Append "Cliente", adBoolean, 2
rst.Fields.Append "CodContabileCliente", adVarWChar, 10
rst.Fields.Append "CodContabileFornitore", adVarWChar, 10
rst.Fields.Append "CodFiscale", adVarWChar, 20
rst.Fields.Append "CodRivenditaVaiBus", adVarWChar, 5
rst.Fields.Append "Cognome", adVarWChar, 40
rst.Fields.Append "Ditta", adVarWChar, 80
rst.Fields.Append "email", adLongVarWChar
rst.Fields.Append "Fido", adCurrency
rst.Fields.Append "Fornitore", adBoolean, 2
rst.Fields.Append "IDAna", adInteger
rst.Fields.Append "IDAnaGenerico", adInteger
rst.Fields.Append "IDBanca", adInteger
rst.Fields.Append "IDCondPag", adInteger
rst.Fields.Append "Indirizzo", adVarWChar, 50
rst.Fields.Append "NatoA", adVarWChar, 50
rst.Fields.Append "NatoIl", adDate
rst.Fields.Append "Nome", adVarWChar, 40
rst.Fields.Append "NomeVis", adVarWChar, 80
rst.Fields.Append "Note", adLongVarWChar
rst.Fields.Append "PIVA", adVarWChar, 20
rst.Fields.Append "Provincia", adVarWChar, 2
rst.Fields.Append "Referente", adVarWChar, 80
rst.Fields.Append "Sconto", adCurrency
rst.Fields.Append "Selezionato", adBoolean, 2
rst.Fields.Append "Sesso", adVarWChar, 1
rst.Fields.Append "Telefono1", adVarWChar, 15
rst.Fields.Append "Telefono2", adVarWChar, 15
rst.Fields.Append "Telefono3", adVarWChar, 15
rst.Fields.Append "Telefono4", adVarWChar, 15
rst.Fields.Append "TipoTelefono1", adVarWChar, 50
rst.Fields.Append "TipoTelefono2", adVarWChar, 50
rst.Fields.Append "TipoTelefono3", adVarWChar, 50
rst.Fields.Append "TipoTelefono4", adVarWChar, 50
rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Source = strSQL
rst.Open
With rst
 rst!CAP = ""
 rst!Città = ""
 rst!Cliente = ""
 rst!CodContabileCliente = ""
 rst!CodContabileFornitore = ""
 rst!CodFiscale = ""
 rst!CodRivenditaVaiBus = ""
 rst!Cognome = ""
 rst!Ditta = ""
 rst!email = ""
 rst!Fido = ""
 rst!Fornitore = ""
 rst!IDAna = ""
 rst!IDAnaGenerico = ""
 rst!IDBanca = ""
 rst!IDCondPag = ""
 rst!Indirizzo = ""
 rst!NatoA = ""
 rst!NatoIl = ""
 rst!Nome = ""
 rst!NomeVis = ""
 rst!Note = ""
 rst!PIVA = ""
 rst!Provincia = ""
 rst!Referente = ""
 rst!Sconto = ""
 rst!Selezionato = ""
 rst!Sesso = ""
 rst!Telefono1 = ""
 rst!Telefono2 = ""
 rst!Telefono3 = ""
 rst!Telefono4 = ""
 rst!TipoTelefono1 = ""
 rst!TipoTelefono2 = ""
 rst!TipoTelefono3 = ""
 rst!TipoTelefono4 = ""
End With
rst.Close
Set rst = Nothing
'------------------------------------------------------/
-- 
PBsoft di Gabriele Bertolucci
www.pbsoft.it

 contenente un campo ID di tipo contatore (Access 2000)? Grazieeeeeeeeeee
TT_1 č il nome della nuova tabella,
F1 il campo contatore,
F3 un campo text lungo 25 caratteri
==========================
Private Sub Command25_Click()
Dim SQL As String
SQL = "CREATE TABLE TT_1 "
SQL = SQL & "([F1] counter, "
SQL = SQL & "[F2] integer, "
SQL = SQL & "[F3] text(25));"
CurrentDb.Execute SQL
End Sub
============================
Ciao
Bruno