Discussion :

[lucke_34]

bonjoiur,

j'aurai aimé savoir si c'etait possible de creer une requete de type creation de table en y rajoutant un champ avec un numero incrémenté !

sinon comment faire pour creer une table avec un champ auto incrementé
à partir d une requete.

Merci,

[cafeine]

Hello,

pense à rechercher dans la FAQ avant de poster :
http://access.developpez.com/faq/?re...numeroauto+sql

[lucke_34]

bonjour,

Merci pour ton aide , mais je suis debutant et je n arrive pas a faire ce que j aimerais avoir,c'est a dire une nouvelle table remplie par cette requete avec en plus un champ auto incrementé, comment dois je m'y prendre ?

Voici ma requete :

SELECT [requete1].[NOSALARIE], [requete1].[NOCTAT], Min([AVENANTS].[DEBCTAT]) AS MinDeDEBCTAT, Max([AVENANTS].[FINCTAT]) AS MaxDeFINCTAT INTO historique
FROM requete1 INNER JOIN AVENANTS ON ([requete1].[NOCTAT]=[AVENANTS].[NOCTAT]) AND ([requete1].[NOSALARIE]=[AVENANTS].[NOSALARIE])
GROUP BY [requete1].[NOSALARIE], [requete1].[NOCTAT]
ORDER BY Min([AVENANTS].[DEBCTAT]);

cette requete me cree bien ma table et avec une macro

ALTER TABLE historique ADD COLUMN IDhisto COUNTER

je cree mon champ auto incrementé,

mais comment faire pour que cela soit automatique quand j ouvre ma base ?

Merci,

[ricounet]

bonjour,

Une solution 'mécanique':

Il te faut une table vide avec tes champs [NOSALARIE],[NOCTAT]... et un champs [Idhisto] N°auto. Cette table va te servir à créer une nouvelle table ( requete création) dans laquelle tu vas ajouter tes enregistrements ( requete ajout). avec une macro tu automatises.

A+

[davyka]

Soluce trouvée sur Stackoverflow :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub createTable()
    Dim oDb As DAO.Database: Set oDb = CurrentDb
    Dim tblClients As DAO.TableDef: Set tbl = oDb.CreateTableDef("tblClients")
    Dim fNum As DAO.Field, fName As DAO.Field
    Dim PKUsers As DAO.Index
    With tblClients
        '===============================Your auto-incremented field===============================
        Set fNum = .CreateField("Num", dbLong): .Attributes = dbAutoIncrField: .Fields.Append fNum
        '==========================================================================================
        Set fName = .CreateField("Name", dbText, 15): .Fields.Append fName
 
        Set PKUsers = .CreateIndex("PKUsers")
        With PKUsers
            .Primary = True
            .Unique = True
            .Fields.Append .CreateField("Num")
        End With
        .Indexes.Append PKUsers
    End With
    oDb.TableDefs.Append tblLogs
End Sub

[davyka]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub createTable()
    Dim oDb As DAO.Database: Set oDb = CurrentDb
    Dim tblClients As DAO.TableDef: Set tbl = oDb.CreateTableDef("tblClients")
    Dim fNum As DAO.Field, fName As DAO.Field
    Dim PKUsers As DAO.Index
    With tblClients
        '===============================Your auto-incremented field===============================
        Set fNum = .CreateField("Num", dbLong): fnum.Attributes = dbAutoIncrField: .Fields.Append fNum
        '==========================================================================================
        Set fName = .CreateField("Name", dbText, 15): .Fields.Append fName
        
        Set PKUsers = .CreateIndex("PKUsers")
        With PKUsers
            .Primary = True
            .Unique = True
            .Fields.Append .CreateField("Num")
        End With
        .Indexes.Append PKUsers
    End With
    oDb.TableDefs.Append tblLogs
End Sub

[/QUOTE]