Discussion :

[SIGER_971]

Bonjour tout le monde !

Me re-voici pour une n-ième demande d'aide !

Voilà mon problème, ce même code (enfin pas vraiment, parce-qu'avant, à la place de "Type_mvt" c'était un bouléen...) fonctionne sur une base, et pas sur une autre ! Je m'explique, après chaque journée de boulot, je fais une copie(ctrl+c) de la base sur laquelle j'ai bossé toute la journée, et je travaille le lendemain sur cette copie !
Il est vrai que ma base a un peu changé, vu qu'à la place des bouléens sur chaque type de mouvement, j'ai mis un champs "Type_mvt" de type texte qui reçoit le nom du mouvement ! Mais ceci n'explique pas celà ! (Enfin, je pense ! )
Quelqu'un pour m'aider ?

Code :

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

1
2
3
4
5
6
7
8
9
Dim oDB As DAO.Database
 
Set oDB = CurrentDb()
 
oDB.Execute "Insert into Mouvement(Type_mvt) 
Values('Réception commande fournisseur');"
 
oDB.Execute "Insert into Avoir_mvt(Num_mvt, Reference, Quantite_mvt, Quantite_avant_mvt) 
Values(@@IDENTITY, '" & Me.Liste_cmd_prod.Column(0) & "', Quantite_mvt.Value, '" & Me.Liste_cmd_prod.Column(8) & "' ) "

ça me donne l'erreur 3061 : trop peu de paramètres

Merci d'avance !

[argyronet]

Bonjour,

Pourquoi user de @@IDENTITY ?

Sinon, la copie sur laquelle tu travailles est-elle sur le même poste ?

Argy

[SIGER_971]

Bonjour,

Pourquoi user de @@IDENTITY ?

Sinon, la copie sur laquelle tu travailles est-elle sur le même poste ?

Argy

Bonjour et désolé pour la réponse tardive !
Ben, pour une application multi-utilisateur, on m'a conseillé le @@IDENTITY qui retourne le dernier num auto créé par un INSERT INTO dans une session !
J'crois que je vais retourner au Dmax, mais j'aimerais bien une réponse au cas où !
Oui, les copies sont sur le même poste !

[Tofalu]

Bonjour

@@Identity s'utilise dans une requête SELECT avec ADO. Pas sûr qu'il fonctionne dans un INSERT.

Le plus simple et le plus sûr avec DAO serait de passer par un recordset qui peut retourner la valeur du numAuto alloué entre les appels AddNew et Update.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Dim intNumAuto As String
Set oDb = CurrentDb
 
Set oRst = oDb.OpenRecordset("Mouvement")
With oRst
    .AddNew
    .Fields("Type_mvt").Value = "Réception commande fournisseur"
    intNumAuto = .Fields("NomChampNumAuto").Value
    .Update
End With

Cependant, je ne comprend pas pourquoi la donnée Réception Commande Fournisseur est saisie en dur dans le code VBA

[SIGER_971]

Bonjour

@@Identity s'utilise dans une requête SELECT avec ADO. Pas sûr qu'il fonctionne dans un INSERT.

Le plus simple et le plus sûr avec DAO serait de passer par un recordset qui peut retourner la valeur du numAuto alloué entre les appels AddNew et Update.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Dim intNumAuto As String
Set oDb = CurrentDb
 
Set oRst = oDb.OpenRecordset("Mouvement")
With oRst
    .AddNew
    .Fields("Type_mvt").Value = "Réception commande fournisseur"
    intNumAuto = .Fields("NomChampNumAuto").Value
    .Update
End With

Cependant, je ne comprend pas pourquoi la donnée Réception Commande Fournisseur est saisie en dur dans le code VBA

Bonjour Tofalu !

Si si, ça marchait très bien avant...

Ben, en faite, avant, les champs s'étaient des Oui/Non, puis j'ai changé en texte pour me simplifier la tâche, mais j'ai gardé les check box dans mon formulaire, et donc décidé de rentrer les données ainsi !

Et merci pour le code, je vais le tester demain !

[SIGER_971]

Hello !

Désolé pour l'attente !
J'ai testé ton code, et ça marche nikel !
Voici ce que j'ai fait :

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
 
Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Dim intNumAuto As Long
Set oDb = CurrentDb
 
Set oRst = oDb.OpenRecordset("Mouvement")
With oRst
    .AddNew
    .Fields("Type_mvt").Value = "Réception commande fournisseur"
    intNumAuto = .Fields("NomChampNumAuto").Value
    .Update
End With
 
DoCmd.RunSQL ("Insert into Avoir_mvt(Num_mvt, 
Reference, Quantite_mvt, Quantite_avant_mvt) 
Values(" & intNumAuto & ", ' " & Me.Liste_prod_non_par_cmd.Column(0) & " ', 
Quantite_mvt.Value, ' " & Me.Liste_prod_non_par_cmd.Column(8) & " ' )")

Si ça peut aider !

Merci Tofalu !