Discussion :

[ludovicparis]

Bonjour

J’ai créé un formulaire afin de saisir une nouvelle composition définissant une référence, ce formulaire est lié à la table qui contient les chams suivant :

Connecteur A Connecteur B Câble Numéro

Connecteur 1 Connecteur 5 AA 0100
Connecteur 2 Connecteur 3 AC 0101
Connecteur 3 Connecteur 1 AB 0102
Connecteur 4 Connecteur 2 AA 0103
Connecteur 5 Connecteur 4 AD 0104

Le connecteur A ainsi que le connecteur B et le câble définisse une combinaison et donc un numéro.
J’ai en tout plus de 100 références dans cette table, voici mon problème

Lors de la saisie d’une nouvelle référence, j’ai réussi à faire vérifier le champ numéro, donc quand l’utilisateur saisie un numéro déjà présente dans la table un message d’erreur apparaît, en effet il ne faut pas qu’une référence corresponde à deux combinaisons différentes.

Il y a deux problèmes possibles : le numéro est déjà dans la table et correspond à une combinaison (ce problème est déjà réglé).
Une combinaison est déjà présente dans la table.
Le deuxième problème me pose problème lol, en effet il est possible que l’utilisateur entre par exemple :

Connecteur 1 Connecteur 5 AA 0200

Et dans ce cas une combinaison qui est déjà dans la table sera de nouveau saisie mais avec un numéro différent.

Or je souhaite qu’une fois le connecteur A, le connecteur B et le câble choisis, Access regarde dans la table, avant la saisie du numéro, afin de vérifier si cette combinaison n’existe pas, et si elle existe renvoyer un message d’erreur.

C’est un peu long désolé mais j’espère avoir été précis

Merci

[timoth]

Salut
Ce que je ferais (les dieux de ce forum feraient peut etre mieux), j'ouvre un recordset avec ta table, je cherche un enregistrement qui correspond aux criteres et je vérifie s'il a trouvé qqc.

En supposant que ta table s'appelle combinaison et tes criteres a chercher dans la table se trouvent dans les textbox connecteur_A, connecteur_B et cable:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
dim str_requete as String
Dim db as dao.Database
Dim rec as dao. recordset
set db=currentdb
set rec = db.openrecordset("combinaison",dbOpenSnapshot)
rec.findfirst "[Connecteur A]='" & Me.connecteur_A & "' AND [Connecteur B]='" & Me.connecteur_B & "' AND [cable]='" & Me.cable & "'"
If R.NoMatch Then
MsgBox "pas trouvé"
Else
MsgBox "trouvé"
End If

Bien a toi

[jean-paul lepetit]

Salut,

dans ta table en créant un index multiple sans doublons sur connecteur A, connecteur B et câble, tu ne pourras pas avoir de doublons

[ludovicparis]

Timoth :

J'ai essayer avec exactement le même code que ce que tu m'as donné mais cela ne fonctionne pas, Access affiche l'erreur 494.

Il y a un problème au niveau

Code :

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

If R.NoMatch Then

J'ai essayé de solutionner le problème et voici le code

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
Private Sub Cable_AfterUpdate()
 
Dim str_requete As String
Dim db As dao.Database
Dim rec As dao.Recordset
Set db = CurrentDb
Set rec = db.OpenRecordset("Harnais", dbOpenSnapshot)
rec.FindFirst "[Termini1]='" & Me.Termini1 & "' AND [Termini2]='" & Me.Termini2 & "' AND [Cable]='" & Me.Cable & "'"
 
If rec.NoMatch Then
 
MsgBox "A"
 
Else
 
MsgBox "B"
 
End If

Mon problème est qu'à chaque fois, même si je fait une combinaison qui n'existe pas, j'ai le message A qui apparaît, je n'ai jamais le message B, Access ne fait pas la distinction entre une combinaison qui existe et une autre qui n'existe pas.

[ludovicparis]

jeanpaul-lepetit:

Peut-on avec cette solution introduire un message d'erreur personnalisé?

[jean-paul lepetit]

oui, je pense en interceptant l'erreur et en la traitant

Code :

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

1
2
3
4
5
6
7
8
on Error Goto Erreur
'code
'
'
Erreur:
If err.number= "valeur de l'erreur" then
msgbox "xxxx"
endif

[timoth]

Non, c'est Rec.NoMatch et non pas R.NoMatch (j'ai mal recopié le code !) Mais tu l'as bien corrigé dans le code suivant.

Qu'est-ce que l'erreur 494??

Ca marche bien chez moi pourtant.
As-tu bien activé la bibliotheque DAO? Dans l'éditeur VBA: Tools/Reference et tu coches la référence Microsoft DAO 3.x

S'il te met systématiquement le message A, c'est qu'il ne trouve jamais le bon enregistrement. Peut-etre que les informations se ressemblent mais ne sont pas exactement les memes (accents, espace...)

[ludovicparis]

Bonjour

J’ai vérifié les espaces de chaque enregistrement et il n’y aucun problème.

J’ai vérifié aussi dans tool/reference et j’ai bien la case Microsoft DAO 3.6 Object library qui est cochée.

Je ne vois pas d’où cela peut provenir.

[timoth]

et ton erreur, quelle est sa description ??

[ludovicparis]

En fait maintenant je n'ai plus d'erreur, j'avais une erreur lorsque qu'il y avait le problème sur la ligne IF

Mon seul problème est que, maintenant, j'ai toujours le message d'erreur A qui apparaît même en ayant vérifié les 2 choses que tu m'as dit, à savoir, les espaces etc dans la table et la case cocher dans outil/reference.

[timoth]

Il faut qu'on arrive a localiser l'erreur qui fait qu'il ne trouve pas le bon enregistrement.

Vérifie que tu n'as pas aucune ligne de code du genre:

Code :

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

On error resume next

On a besoin de tous les messages d'erreurs pour comprndre.

Essaye d'y aller pas a pas (avec un seul critere d'abord, puis deux, puis trois)

Code :

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

rec.FindFirst "[Termini1]='" & Me.Termini1 "'"

La méthode est correcte mais je vois pas ou est le pb !

[ludovicparis]

J'ai fait étape par étape comme tu me l'a conseillé, et je ne comprend pas cela semble fonctionné, j'ai vérifier rapidement, je vais reprendre cela plus calmement afin de voir si cela fonctionne réellement.

En tout cas merci pour ton aide précieuse

[ludovicparis]

Ok ça fonctionne, merci

[timoth]

Ouf ! A +