Discussion :

[loutsky]

Bonjour,

J'ai créé un formulaire avec un menu déroulant qui me permet de rechercher des donnéees dans une table et les affiche dans des zone de texte. J'ai créé le codes suivant :
Mod_Recherche et ma liste déroulante

Code :

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

1
2
3
4
5
6
 
Private Sub Mod_Recherche_AfterUpdate()
 
Forms!Formulaire4.RecordSource = "SELECT * FROM PRINCIPAL WHERE id_principal=" & Me.Mod_Recherche & ""
 
End Sub

Ca fonctionne très bien.

J'ai mis le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.Undo
    Cancel = True
  End If
 
End Sub

Quand je modifie une zone de texte et que je confirme ma validation avec la boite de dialogue du code ci-dessus : pas de problème
et si je ne veux pas valider, j'ai une erreur :

La valeur n'est pas conforme aux règles de validation définies pour le champ ou contrôle

Le debuggage me renvoie à la ligne :

Code :

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

Forms!Formulaire4.RecordSource = "SELECT * FROM PRINCIPAL WHERE id_principal=" & Me.Mod_Recherche & ""

Me.Mod_Recherche a pourtant une valeur.

Quelqu'un pouraait-il à résoudre cette erreur svp.

Merci

[keita]

fais ceci pour voir;

Code :

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

& Me.Mod_Recherche & "*"

étoile * dans le guillemet double.

[loutsky]

Non ca marche pas.
La requête est bonne, elle fonctionne bien, sauf qd je fait une modif dans les zones de texte. Ca me mets une erreur sur cette ligne.

[loutsky]

Mon problème viens surtout de :

Code :

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

Cancel = True

dans la procedure beforeupdate du formulaire. Ca devrais m'annuler mes modifs sur mon formulaire, non?
Quelqu'un saurait-il pourquoi ca plante?
Merci