Combobox

6 réponses

Ryo

02/02/2004 à 12:32

Bon j'ai d=E9j=E0 post=E9 sur ce probl=E8me mais comme les=20
solutions propos=E9 n'ont pas march=E9, j'en deduis que je me=20
suis mal expliqu=E9 donc je pose a nouveau mon probl=E8me en=20
essayant d'=EAtre le plus pr=E9cis possible.
J'ai donc les 2 tables suivantes:
|=AF=AF=AF=AF=AF=AF=AF=AF=AF=AF=AF| |=AF=AF=AF=AF=AF=AF=AF=AF=AF=AF|
| Contrat | 1|Compagnie |
|___________| |=AF=AF|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |=AF=AF |__________|
=AF=AF=AF=AF=AF=AF=AF=AF=AF=AF=AF
(P) =3D Cl=E9 Primaire
(E) =3D Cl=E9 Etrang=E9re

Et une requ=EAte qui liste les compagnies par ordre=20
alphab=E9tique (Elle permet de remplir plus facilement=20
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (li=E9 a=20
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au=20
clavier si la compagnie n'est pas propos=E9e. C'est l=E0 que=20
=E7a coince, pour ins=E9rer la nouvelle compagnie je me sert=20
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response=20
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL =3D "INSERT INTO Compagnie([Cp Nom]) SELECT '" & NewData=20
& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' =E0 la=20
liste", vbYesNo, "Ajouter ?") =3D vbYes Then DoCmd.RunSQL SQL
SQL =3D "UPDATE Contrat SET [Cp Num] =3D DLookup(""[Cp=20
Num]"", ""Compagnie"", ""[Cp Nom] =3D '" & NewData & "'"")=20
WHERE ((Contrat.[Ctr Num])=3D" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response =3D acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, =E7a=20
met bien =E0 jour ma table Contrat avec le num=E9ro de la=20
nouvelle compagnie, mais, pas moyen de mettre =E0 jour la=20
combobox !!!
J'ai un joli message me disant que la compagnie saisie=20
n'apparrait pas dans la liste et si je tente un requerry=20
(je l'ai essay=E9 un peu partout...) ca ma dit que le champ=20
doit =EAtre enregistrer avant de r=E9actualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

6 réponses

gazelle

02/02/2004 à 14:08

A priori tu avais bien axpliqué puisque ta solution est la bonne
C'est juste le parametrage de Response = acDataErrContinue qui coince
Il faut mettre à la place : Response = acDataErradded pour indiquer a access
que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y trouve effectivement
il l'accepte
sinon il affiche une erreur 'n'est pas un element de la liste'

"Ryo" a écrit dans le message de
news:80ca01c3e980$3ac30190$
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" & NewData
& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL SQL
SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

A priori tu avais bien axpliqué puisque ta solution est la bonne
C'est juste le parametrage de Response = acDataErrContinue qui coince
Il faut mettre à la place : Response = acDataErradded pour indiquer a access
que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y trouve effectivement
il l'accepte
sinon il affiche une erreur 'n'est pas un element de la liste'

"Ryo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:80ca01c3e980$3ac30190$a101280a@phx.gbl...
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" & NewData
& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL SQL
SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

Vous avez filtré cet utilisateur ! Consultez son message

02/02/2004 à 15:59

Ca marche !!!!!!!!!!
Je pleure (de joie) !!!!!!!!!
Merci !!!!!!!!!

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response =
acDataErrContinue qui coince

Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" a écrit dans
le message de

news:80ca01c3e980$3ac30190$
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" & NewData
& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

Ca marche !!!!!!!!!!
Je pleure (de joie) !!!!!!!!!
Merci !!!!!!!!!

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response =
acDataErrContinue qui coince

Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news:80ca01c3e980$3ac30190$a101280a@phx.gbl...
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" & NewData
& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

Vous avez filtré cet utilisateur ! Consultez son message

Ca marche !!!!!!!!!!
Je pleure (de joie) !!!!!!!!!
Merci !!!!!!!!!

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response =
acDataErrContinue qui coince

Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" a écrit dans
le message de

news:80ca01c3e980$3ac30190$
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" & NewData
& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

Ryo

03/02/2004 à 09:08

Bon j'ai crié victoire un peu vite...
J'ai un petit problème, quand je ferme le formulaire j'ai
un conflit d'écriture et Access me propose de sauvegarder,
d'enregistrer dans le presse papier ou d'annuler, comment
faire pour qu'il sauvegarde (ou qu'il annule) sans me
poser que question ?
J'ai essayé DoCmd.RunCommand acCmdSave mais à priori c'est
pas ca...

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response =
acDataErrContinue qui coince

Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" a écrit dans
le message de

news:80ca01c3e980$3ac30190$
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" & NewData
& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response =
acDataErrContinue qui coince

Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news:80ca01c3e980$3ac30190$a101280a@phx.gbl...
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" & NewData
& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

Vous avez filtré cet utilisateur ! Consultez son message

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response =
acDataErrContinue qui coince

Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" a écrit dans
le message de

news:80ca01c3e980$3ac30190$
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" & NewData
& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

gazelle

03/02/2004 à 12:03

Dans ton form la liste déroulante doit surement etre liée au champ 'Cp Num
(P)' au lieu de 'Cp Num (E)'
D'ailleurs la table 'Compagnie' ne devrai pas du tout etre nécessaire dans
la source du form, puisque la liste déroulante se charge déjà d'afficher le
nom de la compagnie au lieu du numéro
1,2,3 ......ca va, pas la peine de pleurer.

"Ryo" a écrit dans le message de
news:922801c3ea2c$d73e97d0$
Bon j'ai crié victoire un peu vite...
J'ai un petit problème, quand je ferme le formulaire j'ai
un conflit d'écriture et Access me propose de sauvegarder,
d'enregistrer dans le presse papier ou d'annuler, comment
faire pour qu'il sauvegarde (ou qu'il annule) sans me
poser que question ?
J'ai essayé DoCmd.RunCommand acCmdSave mais à priori c'est
pas ca...

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response acDataErrContinue qui coince
Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" a écrit dans
le message de

news:80ca01c3e980$3ac30190$
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" & NewData
& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

Dans ton form la liste déroulante doit surement etre liée au champ 'Cp Num
(P)' au lieu de 'Cp Num (E)'
D'ailleurs la table 'Compagnie' ne devrai pas du tout etre nécessaire dans
la source du form, puisque la liste déroulante se charge déjà d'afficher le
nom de la compagnie au lieu du numéro
1,2,3 ......ca va, pas la peine de pleurer.

"Ryo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:922801c3ea2c$d73e97d0$a501280a@phx.gbl...
Bon j'ai crié victoire un peu vite...
J'ai un petit problème, quand je ferme le formulaire j'ai
un conflit d'écriture et Access me propose de sauvegarder,
d'enregistrer dans le presse papier ou d'annuler, comment
faire pour qu'il sauvegarde (ou qu'il annule) sans me
poser que question ?
J'ai essayé DoCmd.RunCommand acCmdSave mais à priori c'est
pas ca...

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response acDataErrContinue qui coince
Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news:80ca01c3e980$3ac30190$a101280a@phx.gbl...
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" & NewData
& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

Vous avez filtré cet utilisateur ! Consultez son message

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response acDataErrContinue qui coince
Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" a écrit dans
le message de

news:80ca01c3e980$3ac30190$
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" & NewData
& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

04/02/2004 à 12:04

Bah non dans mon form ma liste deroulante est bien liée
à 'Cp Num (E)'...
Mais grace à tes conseils eclairés (soit en remercié
d'ailleur) j'ai pu viré la 2 ème partie de ma requête SQL.
Et aujourd'hui je ne sais pas pourquoi mais la commande
DoCmd.RunCommand acCmdSave marche sans me poser de
question...
Encore merci

-----Message d'origine-----
Dans ton form la liste déroulante doit surement etre liée
au champ 'Cp Num

(P)' au lieu de 'Cp Num (E)'
D'ailleurs la table 'Compagnie' ne devrai pas du tout
etre nécessaire dans

la source du form, puisque la liste déroulante se charge
déjà d'afficher le

nom de la compagnie au lieu du numéro
1,2,3 ......ca va, pas la peine de pleurer.

"Ryo" a écrit dans
le message de

news:922801c3ea2c$d73e97d0$
Bon j'ai crié victoire un peu vite...
J'ai un petit problème, quand je ferme le formulaire j'ai
un conflit d'écriture et Access me propose de sauvegarder,
d'enregistrer dans le presse papier ou d'annuler, comment
faire pour qu'il sauvegarde (ou qu'il annule) sans me
poser que question ?
J'ai essayé DoCmd.RunCommand acCmdSave mais à priori c'est
pas ca...

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response =
acDataErrContinue qui coince

Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" a écrit dans
le message de

news:80ca01c3e980$3ac30190$
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" &
NewData

& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

.

-----Message d'origine-----
Dans ton form la liste déroulante doit surement etre liée
au champ 'Cp Num

(P)' au lieu de 'Cp Num (E)'
D'ailleurs la table 'Compagnie' ne devrai pas du tout
etre nécessaire dans

la source du form, puisque la liste déroulante se charge
déjà d'afficher le

nom de la compagnie au lieu du numéro
1,2,3 ......ca va, pas la peine de pleurer.

"Ryo" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news:922801c3ea2c$d73e97d0$a501280a@phx.gbl...
Bon j'ai crié victoire un peu vite...
J'ai un petit problème, quand je ferme le formulaire j'ai
un conflit d'écriture et Access me propose de sauvegarder,
d'enregistrer dans le presse papier ou d'annuler, comment
faire pour qu'il sauvegarde (ou qu'il annule) sans me
poser que question ?
J'ai essayé DoCmd.RunCommand acCmdSave mais à priori c'est
pas ca...

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response =
acDataErrContinue qui coince

Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news:80ca01c3e980$3ac30190$a101280a@phx.gbl...
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" &
NewData

& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

.

Vous avez filtré cet utilisateur ! Consultez son message

-----Message d'origine-----
Dans ton form la liste déroulante doit surement etre liée
au champ 'Cp Num

(P)' au lieu de 'Cp Num (E)'
D'ailleurs la table 'Compagnie' ne devrai pas du tout
etre nécessaire dans

la source du form, puisque la liste déroulante se charge
déjà d'afficher le

nom de la compagnie au lieu du numéro
1,2,3 ......ca va, pas la peine de pleurer.

"Ryo" a écrit dans
le message de

news:922801c3ea2c$d73e97d0$
Bon j'ai crié victoire un peu vite...
J'ai un petit problème, quand je ferme le formulaire j'ai
un conflit d'écriture et Access me propose de sauvegarder,
d'enregistrer dans le presse papier ou d'annuler, comment
faire pour qu'il sauvegarde (ou qu'il annule) sans me
poser que question ?
J'ai essayé DoCmd.RunCommand acCmdSave mais à priori c'est
pas ca...

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response =
acDataErrContinue qui coince

Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" a écrit dans
le message de

news:80ca01c3e980$3ac30190$
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" &
NewData

& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

.

gazelle

08/02/2004 à 16:44

Explication possible : la relation Contrats - compagnies n'est pas de type
un à plusieurs ('Cp Num (E)' n'est pas indexé sans doublon) ca rend le query
en lecture seule, d'ou impossibilité de mettre à jour ton form. En
supprimant la jointure avec 'Compagnies' tu as résolu ce probleme.
Au passage :
au lieu de DoCmd.RunCommand acCmdSave, tu peux utiliser Me.Dirty = false
Ca evite pas mal de problemes si ton form n'est pas actif quand tu execute
ton code

a écrit dans le message de
news:95f901c3eb0e$b1e9b9a0$
Bah non dans mon form ma liste deroulante est bien liée
à 'Cp Num (E)'...
Mais grace à tes conseils eclairés (soit en remercié
d'ailleur) j'ai pu viré la 2 ème partie de ma requête SQL.
Et aujourd'hui je ne sais pas pourquoi mais la commande
DoCmd.RunCommand acCmdSave marche sans me poser de
question...
Encore merci

-----Message d'origine-----
Dans ton form la liste déroulante doit surement etre liée
au champ 'Cp Num

(P)' au lieu de 'Cp Num (E)'
D'ailleurs la table 'Compagnie' ne devrai pas du tout
etre nécessaire dans

la source du form, puisque la liste déroulante se charge
déjà d'afficher le

nom de la compagnie au lieu du numéro
1,2,3 ......ca va, pas la peine de pleurer.

"Ryo" a écrit dans
le message de

news:922801c3ea2c$d73e97d0$
Bon j'ai crié victoire un peu vite...
J'ai un petit problème, quand je ferme le formulaire j'ai
un conflit d'écriture et Access me propose de sauvegarder,
d'enregistrer dans le presse papier ou d'annuler, comment
faire pour qu'il sauvegarde (ou qu'il annule) sans me
poser que question ?
J'ai essayé DoCmd.RunCommand acCmdSave mais à priori c'est
pas ca...

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response >acDataErrContinue qui coince
Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" a écrit dans
le message de

news:80ca01c3e980$3ac30190$
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" &
NewData

& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

.

Explication possible : la relation Contrats - compagnies n'est pas de type
un à plusieurs ('Cp Num (E)' n'est pas indexé sans doublon) ca rend le query
en lecture seule, d'ou impossibilité de mettre à jour ton form. En
supprimant la jointure avec 'Compagnies' tu as résolu ce probleme.
Au passage :
au lieu de DoCmd.RunCommand acCmdSave, tu peux utiliser Me.Dirty = false
Ca evite pas mal de problemes si ton form n'est pas actif quand tu execute
ton code

<anonymous@discussions.microsoft.com> a écrit dans le message de
news:95f901c3eb0e$b1e9b9a0$a301280a@phx.gbl...
Bah non dans mon form ma liste deroulante est bien liée
à 'Cp Num (E)'...
Mais grace à tes conseils eclairés (soit en remercié
d'ailleur) j'ai pu viré la 2 ème partie de ma requête SQL.
Et aujourd'hui je ne sais pas pourquoi mais la commande
DoCmd.RunCommand acCmdSave marche sans me poser de
question...
Encore merci

-----Message d'origine-----
Dans ton form la liste déroulante doit surement etre liée
au champ 'Cp Num

(P)' au lieu de 'Cp Num (E)'
D'ailleurs la table 'Compagnie' ne devrai pas du tout
etre nécessaire dans

la source du form, puisque la liste déroulante se charge
déjà d'afficher le

nom de la compagnie au lieu du numéro
1,2,3 ......ca va, pas la peine de pleurer.

"Ryo" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news:922801c3ea2c$d73e97d0$a501280a@phx.gbl...
Bon j'ai crié victoire un peu vite...
J'ai un petit problème, quand je ferme le formulaire j'ai
un conflit d'écriture et Access me propose de sauvegarder,
d'enregistrer dans le presse papier ou d'annuler, comment
faire pour qu'il sauvegarde (ou qu'il annule) sans me
poser que question ?
J'ai essayé DoCmd.RunCommand acCmdSave mais à priori c'est
pas ca...

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response >acDataErrContinue qui coince
Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news:80ca01c3e980$3ac30190$a101280a@phx.gbl...
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" &
NewData

& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

.

Vous avez filtré cet utilisateur ! Consultez son message

-----Message d'origine-----
Dans ton form la liste déroulante doit surement etre liée
au champ 'Cp Num

(P)' au lieu de 'Cp Num (E)'
D'ailleurs la table 'Compagnie' ne devrai pas du tout
etre nécessaire dans

la source du form, puisque la liste déroulante se charge
déjà d'afficher le

nom de la compagnie au lieu du numéro
1,2,3 ......ca va, pas la peine de pleurer.

"Ryo" a écrit dans
le message de

news:922801c3ea2c$d73e97d0$
Bon j'ai crié victoire un peu vite...
J'ai un petit problème, quand je ferme le formulaire j'ai
un conflit d'écriture et Access me propose de sauvegarder,
d'enregistrer dans le presse papier ou d'annuler, comment
faire pour qu'il sauvegarde (ou qu'il annule) sans me
poser que question ?
J'ai essayé DoCmd.RunCommand acCmdSave mais à priori c'est
pas ca...

-----Message d'origine-----
A priori tu avais bien axpliqué puisque ta solution est
la bonne

C'est juste le parametrage de Response >acDataErrContinue qui coince
Il faut mettre à la place : Response = acDataErradded
pour indiquer a access

que tu as ajouter une valeur à la liste
Access remet alors la liste à jour, et si la valeur s'y
trouve effectivement

il l'accepte
sinon il affiche une erreur 'n'est pas un element de la
liste'

"Ryo" a écrit dans
le message de

news:80ca01c3e980$3ac30190$
Bon j'ai déjà posté sur ce problème mais comme les
solutions proposé n'ont pas marché, j'en deduis que je me
suis mal expliqué donc je pose a nouveau mon problème en
essayant d'être le plus précis possible.
J'ai donc les 2 tables suivantes:
|¯¯¯¯¯¯¯¯¯¯¯| |¯¯¯¯¯¯¯¯¯¯|
| Contrat | 1|Compagnie |
|___________| |¯¯|__________|
|Ctr Num (P)| | |Cp Num (P)|
|Ctr Nom |N | |Cp Nom |
|Cp Num (E) |¯¯ |__________|
¯¯¯¯¯¯¯¯¯¯¯
(P) = Clé Primaire
(E) = Clé Etrangére

Et une requête qui liste les compagnies par ordre
alphabétique (Elle permet de remplir plus facilement
Contrat.[Cp Num]).
Dans un formulaire on peut saisir dans un combobox (lié a
Contrat.[Cp Num]) le nom de la compagnie ou le rentrer au
clavier si la compagnie n'est pas proposée. C'est là que
ça coince, pour insérer la nouvelle compagnie je me sert
du code suivant:

Private Sub Cp_Num_NotInList(NewData As String, Response
As Integer)
Dim SQL As String
DoCmd.SetWarnings False
SQL = "INSERT INTO Compagnie([Cp Nom]) SELECT '" &
NewData

& "'"
If MsgBox("Voulez vous ajouter '" & NewData & "' à la
liste", vbYesNo, "Ajouter ?") = vbYes Then DoCmd.RunSQL
SQL

SQL = "UPDATE Contrat SET [Cp Num] = DLookup(""[Cp
Num]"", ""Compagnie"", ""[Cp Nom] = '" & NewData & "'"")
WHERE ((Contrat.[Ctr Num])=" & Me.[Ctr Num] & ")"
DoCmd.RunSQL SQL
Response = acDataErrContinue
DoCmd.SetWarnings True
End Sub

Ca rajoute bien la compagnie dans la table Compagnie, ça
met bien à jour ma table Contrat avec le numéro de la
nouvelle compagnie, mais, pas moyen de mettre à jour la
combobox !!!
J'ai un joli message me disant que la compagnie saisie
n'apparrait pas dans la liste et si je tente un requerry
(je l'ai essayé un peu partout...) ca ma dit que le champ
doit être enregistrer avant de réactualiser.
Que faire ?
Ma demarche est elle bonne ? Y a t il une solution ?
Merci d'avance.

.

.

Combobox

6 réponses

Veuillez sélectionner un problème