Discussion :

[badr007]

Bonjour tout le monde

j'essaye de récuperer l'id du dernier enregsistrement avec la requéte suivante :

Code sql :

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

 select last(id_reclamation) from reclamations

je recois le message suivant :

id_reclamation n'est pas une colonne de la table reclamation

Hors je suis sure de la syntaxe du nom de la colonne et je l'utilise dans d'autres requetes.

j'ai aussi essayé la fonction max(id_reclamation) et je suis recois le meme message.

merci pour votre aide

[Kawabaumga]

bonjour,

qu'obtiens tu avec cette requête

Code sql :

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

SELECT id_reclamation FROM reclamations

[badr007]

salut

tous les id_reclamation bien sur

[rstck]

Bonjour,

c'est peut-être une question de syntaxe ? Tu pourrais essayer des variations autour de [] ! et . comme par exemple :

Code :

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

 SELECT last([reclamations]![id_reclamation]) FROM reclamations

[ticroch]

bonjour,

la mieux c'est en VBA je pense, en faisant ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Set result = currentDb.TableDefs("maTable").Recordset
with result
.addNew
!monChamp1 = val1
!monChamp2 = val2
.update
.bookmark = .lastModified
 
newId = .fields(0)
end with

j'ai peut-être une faute dans mon code, je le fais de tête
mais là, même avec une application multi_user, t'es sur de récupérer le bon id (enfin je pense^^)
cordialement !

[argyronet]

Bonjour,

J'avais proposé un exemple ici :
http://www.developpez.net/forums/d89...t/#post5095202

Un peu de recherche t'aurais évité d'attendre...

Argy

[badr007]

salut tout le monde et merci pour vos réponses

@ rstck : j'ai essayé la syntaxe que tu m'as proposé et j'obtiens toujours le même message d'erreur .

@ ticroch et argyronet: est ce que vous pouvez SVP commenté votre code pour que je puisse le comprendre ,? merci bien

[ticroch]

Alors j'ai commenté un peu, j'espère que ça t'aidera

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
 
 
' on met la table result dans le recordset
Set result = currentDb.TableDefs("maTable").Recordset
 
' on selectionne le recordset
with result
     ' on ajoute un nouvel enregistrement dans le Recordset
    .addNew
 
      ' on récupère l'id du nouvel enregistrement
      newId = .fields(0)
 
     ' on rentre les valeurs de chaque champs (sinon ce sera null)
     !monChamp1 = val1
     !monChamp2 = val2
 
     'on update la table en fonction du recorset
     .update
     .bookmark = .lastModified
end with

donc à la fin tu as la valeur de l'ID dans al variable newId

[badr007]

merci je vais essayer

[ticroch]

même si elle est vraiment pourrie (enfin c'est mon avis :p), l'aide de Microsoft fournit des exemples comme ça.

tu tapes "addNew" dans l'aide de visual basic, et tu choisis le truc qui doit s'appeler "addNew (DAO)", et après t'as des exemples !

[badr007]

merci pour l'info
en fait voila le code que j'utilise moi :

Code SQL :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Try
                Dim sqlRequete = ""
 
                Dim objDataAdapter As OleDb.OleDbDataAdapter
 
                Dim objDataSet As New DataSet()
 
                Dim objDataTable As DataTable
 
                Dim objDataRow As DataRow
 
 
                conn.Open()
 
 
 
 
                sqlRequete = "SELECT last(id_reclamation) FROM reclamations"
 
                objDataAdapter = New OleDb.OleDbDataAdapter(sqlRequete, conn)
 
                objDataAdapter.Fill(objDataSet)
 
 
                Dim i As Integer
 
 
                objDataTable = objDataSet.Tables(0)
 
                For i = 0 To objDataTable.Rows.Count - 1
                    objDataRow = objDataTable.Rows(i)
                    psg_famille = ((objDataRow("id_reclamation")))
                    MessageBox.Show(psg_famille)
 
 
                Next
 
                MessageBox.Show("id du dernier enregistrement est " & psg_famille)
 
                conn.Close()
            Catch ex As Exception
                MessageBox.Show("probleme de rec du last id " & ex.Message)
 
            End Try

au cas ou l'erreur est repéré

qu'est ce que vous pensez du code ci-dessus

[Tofalu]

Ca n'a rien à voir avec Access, votre code est en VB.Net et non en VBA

[badr007]

salut

Que dois je comprendre ? postuler mon message dans un autre forum ?

[loufab]

salut

Que dois je comprendre ? postuler mon message dans un autre forum ?

Exactement