Discussion :

[alex38]

Bonjour
sur un formulaire avec un champ "Nom " entre autre je désire faire un bouton pour vérifier si ce nom est déja présent dans une table ou si il ne l'ai pas et ainsi ouvrir 2 formulaires différents selon le résultat. Pour l'instant mon code est celui-ci

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
19
    Dim stDocName As String
 
    Dim stLinkCriteria As String
 
    If ("ici est le problème" = Me![nom]) Then
 
    stDocName = "ajoutclient1"
    stLinkCriteria = "[Nom]=" & "'" & Me![nom] & "'"
 
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
    Else
 
    stDocName = "ajoutclient2"
 
 
    DoCmd.OpenForm stDocName
 
    End If

voila. je ne sait pas comment faire pour vérifier si le nom est le meme pour chaque enregistrement de la table.

Avez vous une solution? merci d'avance

[loufab]

chaque enregistrement de la table ou une enregistrement ayant deja ce nom ?

Utilise la fonction Dlookup("champ","table","champnom like """ & me.nom & """) si elle renvoie null c'est que le nom n'est pas présent dans la table.

[alex38]

en fait c'est pour savoir si ce nom est déja présent dans la table.

je vais essayer la commande merci

[alex38]

j'ai essayé

Code :

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

1
2
 
If (Dlookup("Nom","t_clients")=Me![nom]) then...

mais il ne reconnait une valeure que si c'est la première dans la table... ce qui est assez ennuyeux...

[keita]

alex38 aecrit:

mais il ne reconnait une valeure que si c'est la première dans la table... ce qui est assez ennuyeux...

Pas tout à fait; en fait DLookUp te retourne la premiere occurence de ce que tu cherches dans la table; et cet enreg peut ne pas etre le premier de la table
@+

[argyronet]

Bonjour,

Voilà comment tu peux procéder :

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
Private Sub OuvrirOuCreer()
Dim strCriteria As String
Dim strNom As String
Dim strFormName As String
 
  strNom = "Laurence Lebihane"
  strCriteria = "[Contact]=" & Chr(34) & strNom & Chr(34)
  If (DLookup("[Contact]", "Clients", strCriteria) = strNom) Then
    strFormName = "Clients"
    DoCmd.OpenForm strFormName, , , strCriteria
  Else
    strFormName = "Clients"
    DoCmd.OpenForm strFormName, acNormal, , , acFormAdd
  End If
End Sub

Argy

P.S. cet exemple est testé sur "Les Comptoirs", à toi d'adapter

[alex38]

Ok ca fonctionne .
merci