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 & "'")
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 & "'")
ce qui est en rouge il me dit "Membre ou type introuvable" bizarre car mon champ est crée
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 & "')"
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 & "'")
j'ai tapé un numéro existant mais pas de message d'erreur
meme 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
je perds la tete et merci a toi de ta patience
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+
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 & ""
Le nom de ta zone pour saisir le N°CE s'appelle comment?
Origine: N°CE
source contrôle:N°CE
c'est ce que tu voulais?
son nom
a+
N°CE je vois que ca
Essaie
Code : Sélectionner tout - Visualiser dans une fenêtre à part me![N°CE]
j'ai remplacé mais il n'aime pas le Openrecorsert!!!
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 fait une faute de frappe mais tu pouvais éviter de la recopier![]()
OpenRecordset
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
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]")
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
je vois pa le lien avec ma discussion
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...
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
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager