Discussion :

[samuze]

Bonjour,

D'abord, j'ai parcouru les messages et la FAQ avant de poster ce sujet.
Je cherche des astuces pour empêcher l'ajout d'enregistrement dont le champ commentaire de type mémo contient un ou des url. Il s'agit d'un petit livre d'or sur un site.
Merci

[catoucat]

Sur le champ dans le formulaire mets sur l'evenement BeforeInsert quelque chose comme If (champ.value LIKE "*http*" ) Then action a faire ...

Je ne suis plus sure de la syntaxe mais ca doit etre quelque chose comme ca! Ca empechera de mettre quelque chose qui contient http

[Moha25fr]

tu peux aussi utiliser cette fonction pour chercher ton mot

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function FMel_Cherche(OriginalS As String, FindS As String) As Boolean
 
   ' FMel_Cherche("moha25fr faf http", "http")
     FMel_Cherche = False
     Dim I As Integer
     I = InStr(1, OriginalS, FindS)
     If I > 0 Then
        FMel_Cherche = True
     End If
 
End Function

A+

[samuze]

Merci pour vos réponses.
Pourtant, étant vrai débutant, je ne sais pas où mettre ces fonctions.
Si vous avez d'autres renseignements complémentaires, n'hésitez pas à me les demander.

[catoucat]

Alors en fait il faut faire du code en VBA c'est a dire un petit peu plus pousse que l'edition directe de formulaires

Il faut que tu cliques droit sur le champ ou les gens vont entrer le commentaire, Proprietes > Evenement > BeforeUpdate et la tu cliques sur les 3 petits points a droite et choisis Code.

Ca va t'ouvrir une nouvelle fenetre avec le code en VBA qui correspond a ce formulaire, et ca a du t'ecrire deja automatiquement

Code :

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

1
2
3
Private Sub Commentaire_BeforeUpdate(Cancel As Integer)
 
End Sub

Ca, c'est le code qu'il va executer a chaque fois avant d'updater la valeur du champ commentaire il reste plus qu'a remplir le trou au milieu avec ce que tu veux lui faire faire

En l'occurence tu veux faire un test: est-ce que la valeur entree contient "http". Pour ca on utilise une fonction "LIKE": "expression1 LIKE expression2" teste si l'expression1 est egale a l'expression2 et renvoie True ou False. Pour dire blablabla on remplace par * (ca veut dire n'importe quel caractere repete n'importe quel nombre de fois) et comme on veut pouvoir tester s'il y a du blabla avant et apres le http on va mettre :

Code :

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

commentaire.value LIKE "*http*"

en supposant que ton champ s'appelle commentaire (.value c'est pour chercher la valeur entree).

Si le commentaire contient http, on peut supposer que c'est un lien... donc on peut envoyer un message d'erreur par exemple, et surtout empecher qu'il sauve la valeur en utilisant Cancel = True (ca veut dire qu'il va faire cancel du update donc ne pas enregistrer la valeur)

Du coup ca va faire au total:

Code :

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

1
2
3
4
5
6
Private Sub Comment_BeforeUpdate(Cancel As Integer)
If (Comment.Value Like "*http*") Then 'Si c'est vrai
    MsgBox "pas de liens!" 'fais un message d'erreur 
    Cancel = True 'empeche la sauvegarde (l'update) du commentaire
End If
End Sub

Apres tu n'as plus qu'a tester dans le formulaire Dis moi si ca marche!