Discussion :

[dutky]

Bonjour à tous..

C'est la première fois que je viens sur ce forum et je recherche une réponse à mon problème.
j'ai construit une base de données, des requetes SQL, ainsi que des formulaires personnalisés. Mon problème est que j'aimarais comparer la valeur que j'introduis avec les valeurs deja existant dans la table et avoir un message d'erreur. Il s'agit d'un formulaire pour modifier un client. j'ai fais une requete qui demande le "Nom à modifier". Tout va bien si le Nom que je cherche se trouve dans la table... mais j'aimarai pouvoir ajouter un messaj d'erreur si le nom n'existe pas.

Si vous pouviez m'aider, ce serait super...merci .

[User]

Bonsoir,

Dans ton formulaire, sur clique de ta liste modifiable, quand tu as choisi ton Nom:

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
Private Sub Liste_Nom_Click()
 
Dim rs As Recordset
 
Set rs = Me.RecordsetClone
 
rs.FindFirst "[Nom]='" & Me!Liste_Nom & "'" ' On cherche le premier record correspondant au critère
 
  If Not .NoMatch Then 'Si un enregistrement a été trouvé
    Me.Bookmark = .Bookmark
  else ' s'il n'y a pas de nom
    MsgBox("Nom inéxistant !") 
  End If
 
Set rs = Nothing
 
End Sub

@+

[dutky]

Bonjour,

Merci, mais ça ne fonctionne pas. Il faut dire que je suis pire qu’un débutant. C’est ma première application et j’ai surement fais quelque chose de pas correct.
Mon formulaire je l’ai attaché a une requête avec la quelle je sélection le nom à modifier (en fait tout l'enregistrement avec, prénom, adresse, etc...).
J’ai un menu avec l’option "Modification Client" et un bouton de commande qui ouvre le formulaire Modification. Mais avant de l’ouvrir j’ai une fenêtre pop-up qui demande le nom à modifier. Nom que je dois introduire. Si le nom est correct le formulaire s’ouvre avec le bon enregistrement. Si non il m’ouvre le même formulaire vierge.
Moi j’aimerais pouvoir dire à l’utilisateur que le nom qu’il a introduit n’existe pas (si c’est le cas, évidement) ) et ne rien faire apparaître et retourner au menu ou à la fenetre pop-up.

Merci beaucoup.

[polianita]

Je pense qu'il faut aller dans propriété>evenement>clic de ton bouton de commande et le modifier
normalement tu dois trouver dedans une fonction docmd.openform ...
il faut que tu mette une condition if, tu teste s'il existe le nom sinon tu envoie le msg d'erreur avec MsgBox " Nom non existant"
pour tester l'existance du nom tu peux utiliser
Len(DLookup(nomChamp, matable, "nomchamp =""" & Me.Texte.Value & """")) = 0

J'espere que ça te servira mon aide
a+

[User]

Salut,


Oui sur click de ton bouton de commande tu peux faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Bouton_Click()
 
If Not IsNull(DLookup(nomChamp, matable, "nomchamp ='" & Me.Texte.Value & "'")) Then
 
   DoCmd.Openform "nomformulaire",,,"nomchamp ='" & Me.Texte.Value & "'"
 
else
 
   MsgBox ("Nom inéxistant !") 
 
End If 
 
End sub

@+