Discussion :

[philenull]

bonjour

je voudrai créer ma propre boite de message au lieu d'utiliser celle d'Access



j'ai réussi pour supprimer un enregistrement



mais pas pour faire une recherche

j'ai trouvé ça sur le forum, est-ce que cela correspond à ma demande?

http://www.developpez.net/forums/d13...=boite+message

[loufab]

Bonjour,

Au niveau du formulaire il n'y a aucune difficulté je pense, une formulaire ouvert en mode dialog contenant une zone de texte (nommée ztReponse) et son étiquette et un bouton ok, sur lequel il faut mettre une instruction de fermeture :

Code :

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

docmd.close acform,me.name

Pour la commande de lancement du formulaire c'est ça :

Code :

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

docmd.openform "frmDialogbox",acNormal ,,,,acDialog

Pour le renvoi de la valeur c'est un peu plus compliqué.

Il faut utiliser une variable globale (visible dans toute l'application) et une fonction pour en renvoyer la valeur (un getteur).
Ouvre un module et après les 2 lignes du début déclare-la comme ceci :

Code :

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

1
2
3
4
5
6
7
8
Option Compare Database
Option Explicit  'les 2 lignes du module
 
Dim vVar As variant 'la variable
 
Function getvVar() as variant
   getvVar= vVar
end Function

Une fois celle-ci déclarée il faut intervenir sur le formulaire.
Dans l'événement Sur Fermeture du formulaire affecte la valeur de la zone de texte à ta variable :

Code :

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

vVar = me.ztReponse.value

et enfin le plus gros morceau c'est le traitement de ta requête.
Chaque fois que tu as besoin de cette valeur saisie tu fais ceci :

Code :

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

WHERE monchamp =  getvVar()

ou encore dans le générateur mettre dans sur la ligne de la condition :

Code :

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

= getvVar()

Note que si tu peux combiner ça avec un like (voir mon tuto), dans ce cas remplace le = par Like et tapes tes jokers directement dans la zone de texte de formulaire.

Cordialement,

[philenull]

merci

j'ai encore des zones d'ombre

pas facile pour moi au niveau des requêtes et formulaires
mais je vais m'y atteler et avec toutes ces explications et le tuto

je vais bien finir par y parvenir même si ça me prend un peu de temps