Discussion :

[Tierisa]

Bonjour

Je souhaiterais connaitre la fonction qui me permettrait de voir si une valeur que je rentre dans une zone de texte existe dans une table avant de l'ajouter. je sais que c'est une fonction connue mais je ne m'en suis jamais servie.
merci de votre aide

[spaiku]

Bonjour,

serait-ce DLookup ?

[Tierisa]

si c'est bien ça, entre temps j'ai trouvé. mais j'ai quand meme un probleme car une fois sur 2, j'ai un retour comme quoi la valeur n'existe pas dans la table et donc je la fait ajouter mais en fait elle y était déjà. Est-ce que cela peut être dû au fait que mes tables sont dissociées de l'appli ou pas rien à voir?

[Domi2]

Bonjour,

Non, le fait que ton application soit scindée ne joue aucun rôle...

Peux-tu poster ton code, et expliquer un peu le contexte ?

Domi2

[Tierisa]

merci de te pencher sur le pb.
j'ai une appli pour faire une réservation d'un appareil pour un créneau horaire sur la journée de son choix.
j'ai donc 2 tables: la première stocke les jours, la 2 eme en relation stocke les créneaux pour le jour désiré.
mon problème est le suivant: j'utilise un controle activex calendrier pour choisir le jour. Lorsqu'on clique sur le jour de son choix, voila le code que j'ai mis derriere

Code :

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

1
2
3
4
5
6
7
8
t = DLookup("[heure0]", "chjour")
 
If Not IsNull(t) Or t <> "" Then
DoCmd.OpenForm "jour", , , "[heure0] = " & t
Else
DoCmd.GoToRecord , , acNewRec
Me.jour = s
End If

mon Dlookup sert à regarder si ce jour a déjà été rentré dans la table 1: si oui alors je fais afficher dans un sous formulaire les creneaux dejà pris, si non alors je lui fait ajouter ce nouveau jour dans la table. le problème est qu'une fois sur 2, il ne voit pas le jour et donc l'ajoute en le remplaçant avec un autre existant si d'autres créneaux d'un autre jour avaient dajà été affichés auparavant. Resultat: toutes les reservations se mélangent.
merci

[stagolee]

ne faut-il pas une condition dans ta fonction DLookup?

sinon il y a cette méthode par les recordset pour rechercher les doublons :

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
Dim db As Database
Dim Rct_Dbl As Recordset
Dim Str_Dbl As String
Dim Cpt_Dbl As Integer

Set db = CurrentDb
Str_Dbl = " ta requête SLQ qui affiche les enregistrements relatifs aux contrôles en cours et pour lesquels tu souhaites trouver des doublons"

Set Rct_Dbl = db.OpenRecordset(Str_Dbl)
Cpt_Dbl = 0
While Not Rct_Dbl.EOF
    Cpt_Dbl = Cpt_Dbl + 1
    Rct_Dbl.MoveNext
Wend

If Cpt_Dbl <> 0 Then
    MsgBox "doublon!", vbCritical, "Erreur de saisie"
End If

[spaiku]

Sans avoir testé, voici une première piste : il te faut écrire

Code :

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

If Not IsNull(t) And t <> "" Then

ou

Code :

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

If Not (IsNull(t) Or t = "") Then

à la place de

Code :

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

If Not IsNull(t) Or t <> "" Then

voire uniquement

Code :

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

If Not IsNull(t) Then

car si la valeur est absente, le DLookup renvoie Null, et donc ta variable est différente de "". Ta condition sera donc toujours vraie.

[Tierisa]

merci spaiku mais j'avais déjà essayé et c'est pour ça que j'ai rajouté <>"".
stagolee: mon dlookup est déjà basé sur une requete en fait. mais je vais essayer ton code et vous tiens au courant
en tout cas merci

[spaiku]

Si tu veux appliquer la solution de stagolee, il te faudra l'adapter, car tu ne veux pas chercher des doublons, mais tester l'existence d'une valeur. Ce sera donc quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim db As Database
Dim Rct_Dbl As Recordset
Dim Str_Dbl As String
 
Set db = CurrentDb
Str_Dbl = "ta requête qui teste la valeur saisie par l'utilisateur"
 
Set Rct_Dbl = db.OpenRecordset(Str_Dbl)
if not (Rct_Dbl.BOF And Rct_Dbl.EOF) Then
    MsgBox "Valeur inexistante dans la table"
End If

Mais je me permets d'insister sur les solutions que je te propose dans mon dernier post, parce que je pense que le code que tu as déjà écrit peut suffire si tu réécris la condition

[helas]

en considérant qu'il n'y a qu'un jour dans la table

[Tierisa]

en considérant qu'il n'y a qu'un jour dans la table

que veux-tu dire par là?