Si je réponds non en ajout il m'ouvre la table de ma liste.
Private Sub Designation_NotInList(NewData As String, Response As Integer)
Dim rst As DAO.Recordset
If MsgBox("La désignation[" & NewData & "] ne figure pas dans la liste.
Vouslez-vous l'ajouter ?", _
vbQuestion + vbYesNo) = vbYes Then
'Ajouter l'élément à la liste
Set rst = CurrentDb.OpenRecordset("tab_produits")
rst.AddNew
rst!produit = NewData
rst.Update
rst.Close
Set rst = Nothing
End If
Response = acDataErrAdded
Merci de vos conseils car si je coche oui pas de problème
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Docteur Jekyll
Je me suis mal exprimé, je vais essayer d'être précis.
Des lignes de facture qui font partie d'une table. Lorsque j'entre une désignation, qui est une liste, je vousdrais avoir deux possibilités. La première quand il ne trouve pas c'est qu'il me demande si je veux ajouter dans la table spéciale qui alimente ce champ, en réponse oui, pas de problème. Si je clique sur le non, il m'ouvre la liste et m'oblige à remplacer cette donnée alors que je voudrais qu'il conserve cette dernière car certainement elle ne sera pas réutilisée.
Private Sub Designation_NotInList(NewData As String, Response As Integer)
Dim rst As DAO.Recordset If MsgBox("La désignation[" & NewData & "] ne figure pas dans la liste. Vouslez-vous l'ajouter ?", _ vbQuestion + vbYesNo) = vbYes Then 'Ajouter l'élément à la liste Set rst = CurrentDb.OpenRecordset("tab_produits") rst.AddNew rst!produit = NewData rst.Update rst.Close Set rst = Nothing End If Response = acDataErrAdded
J'attends avec impatience une réponse.
"Docteur Jekyll" a écrit dans le message de news: 47d418c1$0$4613$
Bonsoir.
Hélas pas tout marche.
Si je réponds non en ajout il m'ouvre la table de ma liste.
Private Sub Designation_NotInList(NewData As String, Response As Integer) Dim rst As DAO.Recordset If MsgBox("La désignation[" & NewData & "] ne figure pas dans la liste. Vouslez-vous l'ajouter ?", _ vbQuestion + vbYesNo) = vbYes Then 'Ajouter l'élément à la liste Set rst = CurrentDb.OpenRecordset("tab_produits") rst.AddNew rst!produit = NewData rst.Update rst.Close Set rst = Nothing End If Response = acDataErrAdded
Merci de vos conseils car si je coche oui pas de problème
Bonne soirée
Je me suis mal exprimé, je vais essayer d'être précis.
Des lignes de facture qui font partie d'une table.
Lorsque j'entre une désignation, qui est une liste, je vousdrais avoir deux
possibilités.
La première quand il ne trouve pas c'est qu'il me demande si je veux ajouter
dans la table spéciale qui alimente ce champ, en réponse oui, pas de
problème.
Si je clique sur le non, il m'ouvre la liste et m'oblige à remplacer cette
donnée alors que je voudrais qu'il conserve cette dernière car certainement
elle ne sera pas réutilisée.
Private Sub Designation_NotInList(NewData As String, Response As Integer)
Dim rst As DAO.Recordset
If MsgBox("La désignation[" & NewData & "] ne figure pas dans la liste.
Vouslez-vous l'ajouter ?", _
vbQuestion + vbYesNo) = vbYes Then
'Ajouter l'élément à la liste
Set rst = CurrentDb.OpenRecordset("tab_produits")
rst.AddNew
rst!produit = NewData
rst.Update
rst.Close
Set rst = Nothing
End If
Response = acDataErrAdded
J'attends avec impatience une réponse.
"Docteur Jekyll" <arlequin7520@hotmail.com> a écrit dans le message de news:
47d418c1$0$4613$426a74cc@news.free.fr...
Bonsoir.
Hélas pas tout marche.
Si je réponds non en ajout il m'ouvre la table de ma liste.
Private Sub Designation_NotInList(NewData As String, Response As Integer)
Dim rst As DAO.Recordset
If MsgBox("La désignation[" & NewData & "] ne figure pas dans la liste.
Vouslez-vous l'ajouter ?", _
vbQuestion + vbYesNo) = vbYes Then
'Ajouter l'élément à la liste
Set rst = CurrentDb.OpenRecordset("tab_produits")
rst.AddNew
rst!produit = NewData
rst.Update
rst.Close
Set rst = Nothing
End If
Response = acDataErrAdded
Merci de vos conseils car si je coche oui pas de problème
Je me suis mal exprimé, je vais essayer d'être précis.
Des lignes de facture qui font partie d'une table. Lorsque j'entre une désignation, qui est une liste, je vousdrais avoir deux possibilités. La première quand il ne trouve pas c'est qu'il me demande si je veux ajouter dans la table spéciale qui alimente ce champ, en réponse oui, pas de problème. Si je clique sur le non, il m'ouvre la liste et m'oblige à remplacer cette donnée alors que je voudrais qu'il conserve cette dernière car certainement elle ne sera pas réutilisée.
Private Sub Designation_NotInList(NewData As String, Response As Integer)
Dim rst As DAO.Recordset If MsgBox("La désignation[" & NewData & "] ne figure pas dans la liste. Vouslez-vous l'ajouter ?", _ vbQuestion + vbYesNo) = vbYes Then 'Ajouter l'élément à la liste Set rst = CurrentDb.OpenRecordset("tab_produits") rst.AddNew rst!produit = NewData rst.Update rst.Close Set rst = Nothing End If Response = acDataErrAdded
J'attends avec impatience une réponse.
"Docteur Jekyll" a écrit dans le message de news: 47d418c1$0$4613$
Bonsoir.
Hélas pas tout marche.
Si je réponds non en ajout il m'ouvre la table de ma liste.
Private Sub Designation_NotInList(NewData As String, Response As Integer) Dim rst As DAO.Recordset If MsgBox("La désignation[" & NewData & "] ne figure pas dans la liste. Vouslez-vous l'ajouter ?", _ vbQuestion + vbYesNo) = vbYes Then 'Ajouter l'élément à la liste Set rst = CurrentDb.OpenRecordset("tab_produits") rst.AddNew rst!produit = NewData rst.Update rst.Close Set rst = Nothing End If Response = acDataErrAdded
Merci de vos conseils car si je coche oui pas de problème
Bonne soirée
3stone
Salut,
"Docteur Jekyll" | Des lignes de facture qui font partie d'une table. | Lorsque j'entre une désignation, qui est une liste, je vousdrais avoir deux | possibilités. | La première quand il ne trouve pas c'est qu'il me demande si je veux ajouter | dans la table spéciale qui alimente ce champ, en réponse oui, pas de | problème. | Si je clique sur le non, il m'ouvre la liste et m'oblige à remplacer cette | donnée alors que je voudrais qu'il conserve cette dernière car certainement | elle ne sera pas réutilisée. | | Private Sub Designation_NotInList(NewData As String, Response As Integer) | > Dim rst As DAO.Recordset | > If MsgBox("La désignation[" & NewData & "] ne figure pas dans la liste. | > Vouslez-vous l'ajouter ?", _ | > vbQuestion + vbYesNo) = vbYes Then | > 'Ajouter l'élément à la liste | > Set rst = CurrentDb.OpenRecordset("tab_produits") | > rst.AddNew | > rst!produit = NewData | > rst.Update | > rst.Close | > Set rst = Nothing | > End If | > Response = acDataErrAdded | | J'attends avec impatience une réponse.
Regarde là : http://www.3stone.be/access/articles.php?lng=fr&pgI
"Docteur Jekyll"
| Des lignes de facture qui font partie d'une table.
| Lorsque j'entre une désignation, qui est une liste, je vousdrais avoir deux
| possibilités.
| La première quand il ne trouve pas c'est qu'il me demande si je veux ajouter
| dans la table spéciale qui alimente ce champ, en réponse oui, pas de
| problème.
| Si je clique sur le non, il m'ouvre la liste et m'oblige à remplacer cette
| donnée alors que je voudrais qu'il conserve cette dernière car certainement
| elle ne sera pas réutilisée.
|
| Private Sub Designation_NotInList(NewData As String, Response As Integer)
| > Dim rst As DAO.Recordset
| > If MsgBox("La désignation[" & NewData & "] ne figure pas dans la liste.
| > Vouslez-vous l'ajouter ?", _
| > vbQuestion + vbYesNo) = vbYes Then
| > 'Ajouter l'élément à la liste
| > Set rst = CurrentDb.OpenRecordset("tab_produits")
| > rst.AddNew
| > rst!produit = NewData
| > rst.Update
| > rst.Close
| > Set rst = Nothing
| > End If
| > Response = acDataErrAdded
|
| J'attends avec impatience une réponse.
Regarde là :
http://www.3stone.be/access/articles.php?lng=fr&pgI
"Docteur Jekyll" | Des lignes de facture qui font partie d'une table. | Lorsque j'entre une désignation, qui est une liste, je vousdrais avoir deux | possibilités. | La première quand il ne trouve pas c'est qu'il me demande si je veux ajouter | dans la table spéciale qui alimente ce champ, en réponse oui, pas de | problème. | Si je clique sur le non, il m'ouvre la liste et m'oblige à remplacer cette | donnée alors que je voudrais qu'il conserve cette dernière car certainement | elle ne sera pas réutilisée. | | Private Sub Designation_NotInList(NewData As String, Response As Integer) | > Dim rst As DAO.Recordset | > If MsgBox("La désignation[" & NewData & "] ne figure pas dans la liste. | > Vouslez-vous l'ajouter ?", _ | > vbQuestion + vbYesNo) = vbYes Then | > 'Ajouter l'élément à la liste | > Set rst = CurrentDb.OpenRecordset("tab_produits") | > rst.AddNew | > rst!produit = NewData | > rst.Update | > rst.Close | > Set rst = Nothing | > End If | > Response = acDataErrAdded | | J'attends avec impatience une réponse.
Regarde là : http://www.3stone.be/access/articles.php?lng=fr&pgI
tout d'abord merci. J'ai bien fait comme tu dis mais toujours sur réponse non refus de m'inscrire la valeur et il m'ouvre la liste.
Private Sub Designation_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter cette désignation " & NewData & " ?", vbYesNo + vbQuestion) = vbYes Then
CurrentDb.Execute "insert into tab_Produits(produit)" & "select """ & NewData & """;" Response = acDataErrAdded Else Response = acDataErrContinue Me!Designation.Undo End If
Je pense avoir bien tout copier.
Juste petit rappel: Designation est le nom de ma comboliste
Merci
"3stone" a écrit dans le message de news:
Salut,
"Docteur Jekyll" | Des lignes de facture qui font partie d'une table. | Lorsque j'entre une désignation, qui est une liste, je vousdrais avoir deux | possibilités. | La première quand il ne trouve pas c'est qu'il me demande si je veux ajouter | dans la table spéciale qui alimente ce champ, en réponse oui, pas de | problème. | Si je clique sur le non, il m'ouvre la liste et m'oblige à remplacer cette | donnée alors que je voudrais qu'il conserve cette dernière car certainement | elle ne sera pas réutilisée. | | Private Sub Designation_NotInList(NewData As String, Response As Integer) | > Dim rst As DAO.Recordset | > If MsgBox("La désignation[" & NewData & "] ne figure pas dans la liste. | > Vouslez-vous l'ajouter ?", _ | > vbQuestion + vbYesNo) = vbYes Then | > 'Ajouter l'élément à la liste | > Set rst = CurrentDb.OpenRecordset("tab_produits") | > rst.AddNew | > rst!produit = NewData | > rst.Update | > rst.Close | > Set rst = Nothing | > End If | > Response = acDataErrAdded | | J'attends avec impatience une réponse.
Regarde là : http://www.3stone.be/access/articles.php?lng=fr&pgI
tout d'abord merci. J'ai bien fait comme tu dis mais toujours sur réponse
non refus de m'inscrire la valeur et il m'ouvre la liste.
Private Sub Designation_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter cette désignation " & NewData & " ?", vbYesNo
+ vbQuestion) = vbYes Then
CurrentDb.Execute "insert into tab_Produits(produit)" & "select """ &
NewData & """;"
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me!Designation.Undo
End If
Je pense avoir bien tout copier.
Juste petit rappel: Designation est le nom de ma comboliste
Merci
"3stone" <home@sweet_home.be> a écrit dans le message de news:
Oz79WbigIHA.2268@TK2MSFTNGP02.phx.gbl...
Salut,
"Docteur Jekyll"
| Des lignes de facture qui font partie d'une table.
| Lorsque j'entre une désignation, qui est une liste, je vousdrais avoir
deux
| possibilités.
| La première quand il ne trouve pas c'est qu'il me demande si je veux
ajouter
| dans la table spéciale qui alimente ce champ, en réponse oui, pas de
| problème.
| Si je clique sur le non, il m'ouvre la liste et m'oblige à remplacer
cette
| donnée alors que je voudrais qu'il conserve cette dernière car
certainement
| elle ne sera pas réutilisée.
|
| Private Sub Designation_NotInList(NewData As String, Response As
Integer)
| > Dim rst As DAO.Recordset
| > If MsgBox("La désignation[" & NewData & "] ne figure pas dans la
liste.
| > Vouslez-vous l'ajouter ?", _
| > vbQuestion + vbYesNo) = vbYes Then
| > 'Ajouter l'élément à la liste
| > Set rst = CurrentDb.OpenRecordset("tab_produits")
| > rst.AddNew
| > rst!produit = NewData
| > rst.Update
| > rst.Close
| > Set rst = Nothing
| > End If
| > Response = acDataErrAdded
|
| J'attends avec impatience une réponse.
Regarde là :
http://www.3stone.be/access/articles.php?lng=fr&pgI
tout d'abord merci. J'ai bien fait comme tu dis mais toujours sur réponse non refus de m'inscrire la valeur et il m'ouvre la liste.
Private Sub Designation_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter cette désignation " & NewData & " ?", vbYesNo + vbQuestion) = vbYes Then
CurrentDb.Execute "insert into tab_Produits(produit)" & "select """ & NewData & """;" Response = acDataErrAdded Else Response = acDataErrContinue Me!Designation.Undo End If
Je pense avoir bien tout copier.
Juste petit rappel: Designation est le nom de ma comboliste
Merci
"3stone" a écrit dans le message de news:
Salut,
"Docteur Jekyll" | Des lignes de facture qui font partie d'une table. | Lorsque j'entre une désignation, qui est une liste, je vousdrais avoir deux | possibilités. | La première quand il ne trouve pas c'est qu'il me demande si je veux ajouter | dans la table spéciale qui alimente ce champ, en réponse oui, pas de | problème. | Si je clique sur le non, il m'ouvre la liste et m'oblige à remplacer cette | donnée alors que je voudrais qu'il conserve cette dernière car certainement | elle ne sera pas réutilisée. | | Private Sub Designation_NotInList(NewData As String, Response As Integer) | > Dim rst As DAO.Recordset | > If MsgBox("La désignation[" & NewData & "] ne figure pas dans la liste. | > Vouslez-vous l'ajouter ?", _ | > vbQuestion + vbYesNo) = vbYes Then | > 'Ajouter l'élément à la liste | > Set rst = CurrentDb.OpenRecordset("tab_produits") | > rst.AddNew | > rst!produit = NewData | > rst.Update | > rst.Close | > Set rst = Nothing | > End If | > Response = acDataErrAdded | | J'attends avec impatience une réponse.
Regarde là : http://www.3stone.be/access/articles.php?lng=fr&pgI
"Docteur Jekyll" | J'ai bien fait comme tu dis mais
Mais mais... je doute ;-)
| toujours sur réponse | non refus de m'inscrire la valeur et il m'ouvre la liste. | | Private Sub Designation_NotInList(NewData As String, Response As Integer) | If MsgBox("Voulez-vous ajouter cette désignation " & NewData & " ?", vbYesNo | + vbQuestion) = vbYes Then | | CurrentDb.Execute "insert into tab_Produits(produit)" & "select """ & NewData & """;"
La concaténation entre
...(produit)" et "select "
ne peut fonctionner tel quel !! Il faut un espace entre la parentèse fermante et le "S" de select...
Toi, tu peux l'écrire sur une seule ligne : CurrentDb.Execute "insert into tab_Produits(produit) select """ & NewData & """;"
| Response = acDataErrAdded | Else | Response = acDataErrContinue | Me!Designation.Undo | End If
As-tu bien mis la propriété "Limité à liste" sur OUI ?
"Docteur Jekyll"
| J'ai bien fait comme tu dis mais
Mais mais... je doute ;-)
| toujours sur réponse
| non refus de m'inscrire la valeur et il m'ouvre la liste.
|
| Private Sub Designation_NotInList(NewData As String, Response As Integer)
| If MsgBox("Voulez-vous ajouter cette désignation " & NewData & " ?", vbYesNo
| + vbQuestion) = vbYes Then
|
| CurrentDb.Execute "insert into tab_Produits(produit)" & "select """ & NewData & """;"
La concaténation entre
...(produit)" et "select "
ne peut fonctionner tel quel !!
Il faut un espace entre la parentèse fermante et le "S" de select...
Toi, tu peux l'écrire sur une seule ligne :
CurrentDb.Execute "insert into tab_Produits(produit) select """ & NewData & """;"
| Response = acDataErrAdded
| Else
| Response = acDataErrContinue
| Me!Designation.Undo
| End If
As-tu bien mis la propriété "Limité à liste" sur OUI ?
"Docteur Jekyll" | J'ai bien fait comme tu dis mais
Mais mais... je doute ;-)
| toujours sur réponse | non refus de m'inscrire la valeur et il m'ouvre la liste. | | Private Sub Designation_NotInList(NewData As String, Response As Integer) | If MsgBox("Voulez-vous ajouter cette désignation " & NewData & " ?", vbYesNo | + vbQuestion) = vbYes Then | | CurrentDb.Execute "insert into tab_Produits(produit)" & "select """ & NewData & """;"
La concaténation entre
...(produit)" et "select "
ne peut fonctionner tel quel !! Il faut un espace entre la parentèse fermante et le "S" de select...
Toi, tu peux l'écrire sur une seule ligne : CurrentDb.Execute "insert into tab_Produits(produit) select """ & NewData & """;"
| Response = acDataErrAdded | Else | Response = acDataErrContinue | Me!Designation.Undo | End If
As-tu bien mis la propriété "Limité à liste" sur OUI ?
Je vais essayer. Comme c'était urgence, j'ai fait appel à une procédure qui te fera honte mais qui marche. Qu'en penses-tu? Je saisis et entre sur le champ qui suit.
If IsNull(DLookup("produit", "Tab_produits", "produit='" & [Designation] & "'")) Then Reponse = MsgBox("Voulez vous ajouter cette référence", vbYesNo) If (Reponse = vbYes) Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdSaveRecord DoCmd.OpenQuery "Req_AjoutProduit" DoCmd.SetWarnings True Else Cancel = True End If Dans l'attente de te lire
Amitiés
"3stone" a écrit dans le message de news:
Salut,
"Docteur Jekyll" | J'ai bien fait comme tu dis mais
Mais mais... je doute ;-)
| toujours sur réponse | non refus de m'inscrire la valeur et il m'ouvre la liste. | | Private Sub Designation_NotInList(NewData As String, Response As Integer) | If MsgBox("Voulez-vous ajouter cette désignation " & NewData & " ?", vbYesNo | + vbQuestion) = vbYes Then | | CurrentDb.Execute "insert into tab_Produits(produit)" & "select """ & NewData & """;"
La concaténation entre
...(produit)" et "select "
ne peut fonctionner tel quel !! Il faut un espace entre la parentèse fermante et le "S" de select...
Toi, tu peux l'écrire sur une seule ligne : CurrentDb.Execute "insert into tab_Produits(produit) select """ & NewData & """;"
| Response = acDataErrAdded | Else | Response = acDataErrContinue | Me!Designation.Undo | End If
As-tu bien mis la propriété "Limité à liste" sur OUI ?
Je vais essayer. Comme c'était urgence, j'ai fait appel à une procédure qui
te fera honte mais qui marche. Qu'en penses-tu?
Je saisis et entre sur le champ qui suit.
If IsNull(DLookup("produit", "Tab_produits", "produit='" & [Designation] &
"'")) Then
Reponse = MsgBox("Voulez vous ajouter cette référence", vbYesNo)
If (Reponse = vbYes) Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenQuery "Req_AjoutProduit"
DoCmd.SetWarnings True
Else
Cancel = True
End If
Dans l'attente de te lire
Amitiés
"3stone" <home@sweet_home.be> a écrit dans le message de news:
uXBa8gxgIHA.5088@TK2MSFTNGP02.phx.gbl...
Salut,
"Docteur Jekyll"
| J'ai bien fait comme tu dis mais
Mais mais... je doute ;-)
| toujours sur réponse
| non refus de m'inscrire la valeur et il m'ouvre la liste.
|
| Private Sub Designation_NotInList(NewData As String, Response As
Integer)
| If MsgBox("Voulez-vous ajouter cette désignation " & NewData & " ?",
vbYesNo
| + vbQuestion) = vbYes Then
|
| CurrentDb.Execute "insert into tab_Produits(produit)" & "select """ &
NewData & """;"
La concaténation entre
...(produit)" et "select "
ne peut fonctionner tel quel !!
Il faut un espace entre la parentèse fermante et le "S" de select...
Toi, tu peux l'écrire sur une seule ligne :
CurrentDb.Execute "insert into tab_Produits(produit) select """ & NewData
& """;"
| Response = acDataErrAdded
| Else
| Response = acDataErrContinue
| Me!Designation.Undo
| End If
As-tu bien mis la propriété "Limité à liste" sur OUI ?
Je vais essayer. Comme c'était urgence, j'ai fait appel à une procédure qui te fera honte mais qui marche. Qu'en penses-tu? Je saisis et entre sur le champ qui suit.
If IsNull(DLookup("produit", "Tab_produits", "produit='" & [Designation] & "'")) Then Reponse = MsgBox("Voulez vous ajouter cette référence", vbYesNo) If (Reponse = vbYes) Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdSaveRecord DoCmd.OpenQuery "Req_AjoutProduit" DoCmd.SetWarnings True Else Cancel = True End If Dans l'attente de te lire
Amitiés
"3stone" a écrit dans le message de news:
Salut,
"Docteur Jekyll" | J'ai bien fait comme tu dis mais
Mais mais... je doute ;-)
| toujours sur réponse | non refus de m'inscrire la valeur et il m'ouvre la liste. | | Private Sub Designation_NotInList(NewData As String, Response As Integer) | If MsgBox("Voulez-vous ajouter cette désignation " & NewData & " ?", vbYesNo | + vbQuestion) = vbYes Then | | CurrentDb.Execute "insert into tab_Produits(produit)" & "select """ & NewData & """;"
La concaténation entre
...(produit)" et "select "
ne peut fonctionner tel quel !! Il faut un espace entre la parentèse fermante et le "S" de select...
Toi, tu peux l'écrire sur une seule ligne : CurrentDb.Execute "insert into tab_Produits(produit) select """ & NewData & """;"
| Response = acDataErrAdded | Else | Response = acDataErrContinue | Me!Designation.Undo | End If
As-tu bien mis la propriété "Limité à liste" sur OUI ?
"Docteur Jekyll" | Je vais essayer. Comme c'était urgence, j'ai fait appel à une procédure qui | te fera honte mais qui marche. Qu'en penses-tu? | Je saisis et entre sur le champ qui suit. | | If IsNull(DLookup("produit", "Tab_produits", "produit='" & [Designation] & | "'")) Then | Reponse = MsgBox("Voulez vous ajouter cette référence", vbYesNo) | If (Reponse = vbYes) Then | DoCmd.SetWarnings False | DoCmd.RunCommand acCmdSaveRecord | DoCmd.OpenQuery "Req_AjoutProduit" | DoCmd.SetWarnings True | Else | Cancel = True | End If | Dans l'attente de te lire
En fait, les données sont déjà dans la liste... et il est raisonnable de vérifier parmis les données "en place" ;-)
Le Dlookup() pioche dans la table (qui peut être distante) Et tu peux aussi améliorer la série de DoCmd...
With DoCmd .SetWarnings False .RunCommand acCmdSaveRacord .OpenQuery "req_ajoutproduit" .SetWarnings True End With
Mais, je préfèrerai que fonctionne la procédure prévue ;-))
Si tu veux, tu peux m'envoyer ( http://cjoint.com/?dmcifqiI7w ) un extrait de ta base avec lequel on peut reproduire le disfonctionnement...
"Docteur Jekyll"
| Je vais essayer. Comme c'était urgence, j'ai fait appel à une procédure qui
| te fera honte mais qui marche. Qu'en penses-tu?
| Je saisis et entre sur le champ qui suit.
|
| If IsNull(DLookup("produit", "Tab_produits", "produit='" & [Designation] &
| "'")) Then
| Reponse = MsgBox("Voulez vous ajouter cette référence", vbYesNo)
| If (Reponse = vbYes) Then
| DoCmd.SetWarnings False
| DoCmd.RunCommand acCmdSaveRecord
| DoCmd.OpenQuery "Req_AjoutProduit"
| DoCmd.SetWarnings True
| Else
| Cancel = True
| End If
| Dans l'attente de te lire
En fait, les données sont déjà dans la liste... et il est raisonnable
de vérifier parmis les données "en place" ;-)
Le Dlookup() pioche dans la table (qui peut être distante)
Et tu peux aussi améliorer la série de DoCmd...
With DoCmd
.SetWarnings False
.RunCommand acCmdSaveRacord
.OpenQuery "req_ajoutproduit"
.SetWarnings True
End With
Mais, je préfèrerai que fonctionne la procédure prévue ;-))
Si tu veux, tu peux m'envoyer ( http://cjoint.com/?dmcifqiI7w ) un extrait
de ta base avec lequel on peut reproduire le disfonctionnement...
"Docteur Jekyll" | Je vais essayer. Comme c'était urgence, j'ai fait appel à une procédure qui | te fera honte mais qui marche. Qu'en penses-tu? | Je saisis et entre sur le champ qui suit. | | If IsNull(DLookup("produit", "Tab_produits", "produit='" & [Designation] & | "'")) Then | Reponse = MsgBox("Voulez vous ajouter cette référence", vbYesNo) | If (Reponse = vbYes) Then | DoCmd.SetWarnings False | DoCmd.RunCommand acCmdSaveRecord | DoCmd.OpenQuery "Req_AjoutProduit" | DoCmd.SetWarnings True | Else | Cancel = True | End If | Dans l'attente de te lire
En fait, les données sont déjà dans la liste... et il est raisonnable de vérifier parmis les données "en place" ;-)
Le Dlookup() pioche dans la table (qui peut être distante) Et tu peux aussi améliorer la série de DoCmd...
With DoCmd .SetWarnings False .RunCommand acCmdSaveRacord .OpenQuery "req_ajoutproduit" .SetWarnings True End With
Mais, je préfèrerai que fonctionne la procédure prévue ;-))
Si tu veux, tu peux m'envoyer ( http://cjoint.com/?dmcifqiI7w ) un extrait de ta base avec lequel on peut reproduire le disfonctionnement...
Merci Pierre mais comme ça marche comme çà je ne veux pas te déranger.
J'apprécie encore une fois ta gentillesse.
Je te souhaite une bonne journée
jean claude "3stone" a écrit dans le message de news:
Salut,
"Docteur Jekyll" | Je vais essayer. Comme c'était urgence, j'ai fait appel à une procédure qui | te fera honte mais qui marche. Qu'en penses-tu? | Je saisis et entre sur le champ qui suit. | | If IsNull(DLookup("produit", "Tab_produits", "produit='" & [Designation] & | "'")) Then | Reponse = MsgBox("Voulez vous ajouter cette référence", vbYesNo) | If (Reponse = vbYes) Then | DoCmd.SetWarnings False | DoCmd.RunCommand acCmdSaveRecord | DoCmd.OpenQuery "Req_AjoutProduit" | DoCmd.SetWarnings True | Else | Cancel = True | End If | Dans l'attente de te lire
En fait, les données sont déjà dans la liste... et il est raisonnable de vérifier parmis les données "en place" ;-)
Le Dlookup() pioche dans la table (qui peut être distante) Et tu peux aussi améliorer la série de DoCmd...
With DoCmd .SetWarnings False .RunCommand acCmdSaveRacord .OpenQuery "req_ajoutproduit" .SetWarnings True End With
Mais, je préfèrerai que fonctionne la procédure prévue ;-))
Si tu veux, tu peux m'envoyer ( http://cjoint.com/?dmcifqiI7w ) un extrait de ta base avec lequel on peut reproduire le disfonctionnement...
Merci Pierre mais comme ça marche comme çà je ne veux pas te déranger.
J'apprécie encore une fois ta gentillesse.
Je te souhaite une bonne journée
jean claude
"3stone" <home@sweet_home.be> a écrit dans le message de news:
eamCC69gIHA.944@TK2MSFTNGP05.phx.gbl...
Salut,
"Docteur Jekyll"
| Je vais essayer. Comme c'était urgence, j'ai fait appel à une procédure
qui
| te fera honte mais qui marche. Qu'en penses-tu?
| Je saisis et entre sur le champ qui suit.
|
| If IsNull(DLookup("produit", "Tab_produits", "produit='" & [Designation]
&
| "'")) Then
| Reponse = MsgBox("Voulez vous ajouter cette référence", vbYesNo)
| If (Reponse = vbYes) Then
| DoCmd.SetWarnings False
| DoCmd.RunCommand acCmdSaveRecord
| DoCmd.OpenQuery "Req_AjoutProduit"
| DoCmd.SetWarnings True
| Else
| Cancel = True
| End If
| Dans l'attente de te lire
En fait, les données sont déjà dans la liste... et il est raisonnable
de vérifier parmis les données "en place" ;-)
Le Dlookup() pioche dans la table (qui peut être distante)
Et tu peux aussi améliorer la série de DoCmd...
With DoCmd
.SetWarnings False
.RunCommand acCmdSaveRacord
.OpenQuery "req_ajoutproduit"
.SetWarnings True
End With
Mais, je préfèrerai que fonctionne la procédure prévue ;-))
Si tu veux, tu peux m'envoyer ( http://cjoint.com/?dmcifqiI7w ) un extrait
de ta base avec lequel on peut reproduire le disfonctionnement...
Merci Pierre mais comme ça marche comme çà je ne veux pas te déranger.
J'apprécie encore une fois ta gentillesse.
Je te souhaite une bonne journée
jean claude "3stone" a écrit dans le message de news:
Salut,
"Docteur Jekyll" | Je vais essayer. Comme c'était urgence, j'ai fait appel à une procédure qui | te fera honte mais qui marche. Qu'en penses-tu? | Je saisis et entre sur le champ qui suit. | | If IsNull(DLookup("produit", "Tab_produits", "produit='" & [Designation] & | "'")) Then | Reponse = MsgBox("Voulez vous ajouter cette référence", vbYesNo) | If (Reponse = vbYes) Then | DoCmd.SetWarnings False | DoCmd.RunCommand acCmdSaveRecord | DoCmd.OpenQuery "Req_AjoutProduit" | DoCmd.SetWarnings True | Else | Cancel = True | End If | Dans l'attente de te lire
En fait, les données sont déjà dans la liste... et il est raisonnable de vérifier parmis les données "en place" ;-)
Le Dlookup() pioche dans la table (qui peut être distante) Et tu peux aussi améliorer la série de DoCmd...
With DoCmd .SetWarnings False .RunCommand acCmdSaveRacord .OpenQuery "req_ajoutproduit" .SetWarnings True End With
Mais, je préfèrerai que fonctionne la procédure prévue ;-))
Si tu veux, tu peux m'envoyer ( http://cjoint.com/?dmcifqiI7w ) un extrait de ta base avec lequel on peut reproduire le disfonctionnement...
