requête paramétrée ne marche plus entre formulaire et zone de liste

[lolothom]

bonjour

formulaire "f_devis_vp" et une zone de liste "zone"

la liste zone est liée au formulaire par = [Forms]![f_devis_vp]![NUMCLIENT]


sauf que lorsque je ferme le formulaire, j'ai une belle msgbox qui me dit

Code :

entrez la valeur du paramètre de = [Forms]![f_devis_vp]![NUMCLIENT]

j'ai donc ce code ci dessous pour éviter cette msgbox, ma requête sql contient le critère =DonneValeurtxtdevis_vp défini ci-dessous

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function DonneValeurtxtdevis_vp() As Variant
 
Dim n As Integer
Dim f As Form
 
DonneValeurtxtdevis_vp = "10"
For Each f In Forms
    If f.Name = "F_devis_vp" Then
       DonneValeurtxtdevis_vp = [Forms]![f_devis_vp]![NUMCLIENT]
        Exit For
    End If
 
Next f
End Function

et sauf que cela ne marche plus auriez vous une autre solution ou si vous voyez une erreur

[Philippe JOCHMANS]

Bonjour

Ce serait plus facile avec plus de code, entre autre comment utilises-tu ta requête ? A quel moment ?

Philippe

[lolothom]

voici le code de la requête de ma zone de liste

Code :

1
2
3
4
SELECT T_commentaires.id_commentaire, T_commentaires.DATE, T_commentaires.AUTEUR, T_commentaires.numdevis, T_commentaires.sujet
FROM T_commentaires
WHERE (((T_commentaires.numdevis)=[forms]![f_devis_vp]![NUMCLIENT]))
ORDER BY T_commentaires.id_commentaire DESC;

tout marche bien sauf quand je ferme le formulaire il me demande la valeur de [forms]![f_devis_vp]![NUMCLIENT]))

Une tentative de correction de ce pb par la fonction DonneValeurtxtdevis_vp sauf
que c'est très long et puis maintenant celà ne marche plus ERREUR 92

Code :

1
2
3
4
SELECT T_commentaires.id_commentaire, T_commentaires.DATE, T_commentaires.AUTEUR, T_commentaires.numdevis, T_commentaires.sujet
FROM T_commentaires
WHERE (((T_commentaires.numdevis)=DonneValeurtxtdevis_vp))
ORDER BY T_commentaires.id_commentaire DESC;

[lolothom]

voilà ce que j'ai trouvé

http://www.developpez.net/forums/d68...re-formulaire/

[toni.72]

Sous la version 2002, Sur des gros formulaires avec plusieurs sous-formulaires, j'ai vu apparaitre ce message. Je pense qu'il peut s'agir d'un problème de formulaire corrompu.

Dans mon cas, j'ai résolu le problème en créant une nouvelle base et en important intégralement le contenu des objets de la base qui posait problème (ne pas oublier les menus, barres d'outils, paramètres d'import export et le paramétrage des bibliothèques vb utilisées)