Discussion :

[soltani1]

essaie

Code :

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

Set rs = CurrentDb.openrecorset("SELECT N°CE FROM contrat WHERE N°CE='" & Me.N°CE & "'")

[lg022]

Code :

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

Set rs = CurrentDb.openrecorset("SELECT N°CE FROM contrat WHERE N°CE='" & Me.N°CE & "')"

ce qui est en rouge il me dit "Membre ou type introuvable" bizarre car mon champ est crée

[soltani1]

essaie

Code :

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

Set rs = CurrentDb.openrecorset("SELECT N°CE FROM contrat WHERE N°CE='" & Me.N°CE & "'")

[lg022]

j'ai tapé un numéro existant mais pas de message d'erreur

Code :

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

1
2
3
4
5
6
7
Private Sub N°CE_AfterUpdate()
Dim rs As DAO.Recordset
Set rs = CurrentDb.openrecorset("SELECT N°CE FROM contrat WHERE N°CE='" & Me.N°CE & "'")
If rs.RecordCount > 0 Then
    MsgBox "Code existant"
End If
End Sub

meme erreur

je perds la tete et merci a toi de ta patience

[soltani1]

Le nom de ta zone et non le nom du champ de table s'appelle bien N°CE?
ta requête doit normalement bien fonctionner.

A+

[lg022]

non j'ai mis ca mais je dois encore faire une erreur bete

Code :

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

SELECT N°CE FROM contrat WHERE N°CE="" & Me.N°CE & ""

[soltani1]

Le nom de ta zone pour saisir le N°CE s'appelle comment?

[lg022]

Origine: N°CE
source contrôle:N°CE

c'est ce que tu voulais?

[soltani1]

son nom

a+

[lg022]

N°CE je vois que ca

[Lou Pitchoun]

Essaie

Code :

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

me![N°CE]

[lg022]

Code :

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

1
2
3
4
5
6
7
Private Sub N°CE_AfterUpdate()
Dim rs As DAO.Recordset
Set rs = CurrentDb.openrecorset("SELECT N°CE FROM contrat WHERE N°CE=me![N°CE]")
If rs.RecordCount > 0 Then
    MsgBox "Code existant"
End If
End Sub

j'ai remplacé mais il n'aime pas le Openrecorsert!!!

[Lou Pitchoun]

j'ai fait une faute de frappe mais tu pouvais éviter de la recopier

OpenRecordset

[lg022]

désolé mais j'ai tellement de chose a faire que je l'avais pas vu

je le met sur Mise a jour sur N°CE

[lg022]

j'ai remis dans l'ordre est j'ai une erreur:"3061"
Trop peu de parametres.1 attendu

Code :

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

Set rs = CurrentDb.OpenRecordset("SELECT N°CE FROM contrat WHERE N°CE=me![N°CE]")

[Lou Pitchoun]

Y a du progrès

La seule solution que j'utilise dans ce cas là : c'est d'enregistrer la requête et ensuite je me sers de cette requête.
http://www.developpez.net/forums/showthread.php?t=54854

[lg022]

je vois pa le lien avec ma discussion

[Lou Pitchoun]

Je sens que la pression monte là....
Je vais t'expliquer le lien entre ces 2 problèmes :"Trop peu de parametres.1 attendu"
Je te donne une solution clé en main.
Maintenant si tu ne sais pas adapter un code...

[lg022]

non la tension monte pas mais j'ai plus beaucoup de temps je rends mon projet demain et ca c'etait un petit plus pour eux

mais je crois que le programme fait conflit

merci de ton aide

[francishop]

Bonsoir;
A ta place j'aurai "insisté" concernant mon champ sans doublon. On s'obstine bien souvent alors
qu'access nous informe d'une "cagaille". (Si ça pue au départ ça sentira mauvais à l'arrivée..)
Je refairai une table avec tous les champs désirés puis copierai mon ancienne table dans la nouvelle.
Si il y a encore un problème il faut trouver à ce niveau. Passer outre risque de se ressentir ultérieurement.
Il sera alors temps de vérifier si effectivement je n'ai pas de doublons.

Et pour ton futur N° de dossier :http://access.developpez.com/faq/?pa...ields#PlusGdNb

Cordialement