Probleme code vba

Version imprimable

Probleme code vba

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:

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

15/04/2006, 21h25
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.
15/04/2006, 21h35
alex38

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

je vais essayer la commande merci
15/04/2006, 22h46
alex38
j'ai essayé
Code:

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...
15/04/2006, 23h01
keita

alex38 aecrit:

Citation:

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
@+

Bonjour,

Voilà comment tu peux procéder :

Code:

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

18/04/2006, 12h10
alex38

Ok ca fonctionne .
merci