[Access] formulaire interactif
Résolu/Fermé
Utilisateur anonyme
-
25 mars 2007 à 07:27
blux Messages postés 24869 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 18 mars 2023 - 31 mars 2007 à 21:58
blux Messages postés 24869 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 18 mars 2023 - 31 mars 2007 à 21:58
A voir également:
- [Access] formulaire interactif
- Formulaire de réclamation facebook - Guide
- Alias du formulaire - Forum Programmation
- Access denied - Forum Bbox Bouygues
- Formulaire de remboursement free pdf ✓ - Forum Vos droits sur internet
- You don't have permission to access this resource ✓ - Forum Internet / Réseaux sociaux
6 réponses
blux
Messages postés
24869
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
18 mars 2023
3 308
26 mars 2007 à 10:55
26 mars 2007 à 10:55
Salut,
tu peux t'inspirer de ce qui a été dit ici :
access vba probleme pour recuperer un champ
tu peux t'inspirer de ce qui a été dit ici :
access vba probleme pour recuperer un champ
fl0
Messages postés
357
Date d'inscription
lundi 5 mars 2007
Statut
Membre
Dernière intervention
10 novembre 2021
209
26 mars 2007 à 16:45
26 mars 2007 à 16:45
salut
tu peut aussi regarder la il y a peut etre un rapport
https://access.developpez.com/sources/temp/?page=frms
dans le paragraphe
Filtrer une liste à partir du choix fait dans une autre
tu peut aussi regarder la il y a peut etre un rapport
https://access.developpez.com/sources/temp/?page=frms
dans le paragraphe
Filtrer une liste à partir du choix fait dans une autre
Utilisateur anonyme
>
fl0
Messages postés
357
Date d'inscription
lundi 5 mars 2007
Statut
Membre
Dernière intervention
10 novembre 2021
26 mars 2007 à 22:37
26 mars 2007 à 22:37
Salut fl0,
Merci pour cette autre piste ;-)
Je m'y plonge dès aujourd'hui (pour vous cette nuit) !
@+
Merci pour cette autre piste ;-)
Je m'y plonge dès aujourd'hui (pour vous cette nuit) !
@+
Hello,
Bon, ça avance un peu ;-)
Ais-je dit que j'utilise des listes déroulantes ?
voici mon code :
Private Sub Famille_AfterUpdate()
sql = "SELECT DISTINCT [Genre] FROM Domaines_nom_poissons " & _
"WHERE Famille= " & Famille & ";"
Genre.Value = Null
Genre.RowSource = sql
Genre.Requery
End Sub
Lorsque je clique sur le carré gris avec le triangle qui se trouve à gauche de la liste Genre, la fenêtre suivante apparait :
http://imageshack.com/f/b8sanstitregp1j
Et je dois copier la famille des poissons qui se trouve sur fond gris de la fenêtre pour la coller en dessous et cliquer sur OK
Et après, ça marche ;-)
Bon, je suis encore bloqué :-((
Pour rappel, j'ai dans une famille de poisson plusieurs genres...
Merci pour votre aide et bonne journée !
Hivan
Bon, ça avance un peu ;-)
Ais-je dit que j'utilise des listes déroulantes ?
voici mon code :
Private Sub Famille_AfterUpdate()
sql = "SELECT DISTINCT [Genre] FROM Domaines_nom_poissons " & _
"WHERE Famille= " & Famille & ";"
Genre.Value = Null
Genre.RowSource = sql
Genre.Requery
End Sub
Lorsque je clique sur le carré gris avec le triangle qui se trouve à gauche de la liste Genre, la fenêtre suivante apparait :
http://imageshack.com/f/b8sanstitregp1j
Et je dois copier la famille des poissons qui se trouve sur fond gris de la fenêtre pour la coller en dessous et cliquer sur OK
Et après, ça marche ;-)
Bon, je suis encore bloqué :-((
Pour rappel, j'ai dans une famille de poisson plusieurs genres...
Merci pour votre aide et bonne journée !
Hivan
J'ai trouver ;-) une petite erreur de guillements !!!
Voici le code qui marche :
Private Sub Famille_AfterUpdate()
sql = "SELECT DISTINCT [Genre] FROM Domaines_nom_poissons " & _
"WHERE Famille= """ & Famille & """;"
Genre.RowSource = sql
Genre.Requery
Genre = Genre.ItemData(0)
End Sub
Je met résolut dès que j'ai tout bien vérifié !!!
@ tout de suite loool
Hivan
Voici le code qui marche :
Private Sub Famille_AfterUpdate()
sql = "SELECT DISTINCT [Genre] FROM Domaines_nom_poissons " & _
"WHERE Famille= """ & Famille & """;"
Genre.RowSource = sql
Genre.Requery
Genre = Genre.ItemData(0)
End Sub
Je met résolut dès que j'ai tout bien vérifié !!!
@ tout de suite loool
Hivan
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Hello,
voici où j'en suis :
Private Sub Famille_AfterUpdate()
sql = "SELECT DISTINCT [Genre] FROM Domaines_nom_poissons " & _
"WHERE Famille = """ & Famille & """ ORDER BY Genre ASC ;"
Genre.RowSource = sql
Genre.Requery
Genre = Genre.ItemData(0)
sql = "SELECT DISTINCT [Espece] FROM Domaines_nom_poissons " & _
"WHERE Genre = """ & Genre & """ ORDER BY Espece ASC ;"
Espece.RowSource = sql
Espece.Requery
Espece = Espece.ItemData(0)
If IsNull(Famille) Then
sql = "SELECT DISTINCT [Nom_commun] FROM Domaines_nom_poissons ORDER BY Nom_commun ASC ;"
Else
sql = "SELECT DISTINCT [Nom_commun] FROM Domaines_nom_poissons " & _
"WHERE Espece = """ & Espece & """ ORDER BY Nom_commun ASC ;"
End If
NomCommun.RowSource = sql
NomCommun.Requery
NomCommun = NomCommun.ItemData(0)
End Sub
Le problème est dans la liste déroulante de Nomcommun :
lorsque j'ouvre mon formulaire, il y a bien les listes de toutes les familles de poisson et de tous les noms communs
si j'ajoute un poisson (et lui donne un nom commun) et que je veux en rajouter une, il n'y a plus que le nom commun du dernier poisson créer...
suis-je clair ?
Bon, je vais me coucher : il est 22h dans la pacifique sud et les moustiques sont de sortie looool
Merci pour votre aide
Hivan
voici où j'en suis :
Private Sub Famille_AfterUpdate()
sql = "SELECT DISTINCT [Genre] FROM Domaines_nom_poissons " & _
"WHERE Famille = """ & Famille & """ ORDER BY Genre ASC ;"
Genre.RowSource = sql
Genre.Requery
Genre = Genre.ItemData(0)
sql = "SELECT DISTINCT [Espece] FROM Domaines_nom_poissons " & _
"WHERE Genre = """ & Genre & """ ORDER BY Espece ASC ;"
Espece.RowSource = sql
Espece.Requery
Espece = Espece.ItemData(0)
If IsNull(Famille) Then
sql = "SELECT DISTINCT [Nom_commun] FROM Domaines_nom_poissons ORDER BY Nom_commun ASC ;"
Else
sql = "SELECT DISTINCT [Nom_commun] FROM Domaines_nom_poissons " & _
"WHERE Espece = """ & Espece & """ ORDER BY Nom_commun ASC ;"
End If
NomCommun.RowSource = sql
NomCommun.Requery
NomCommun = NomCommun.ItemData(0)
End Sub
Le problème est dans la liste déroulante de Nomcommun :
lorsque j'ouvre mon formulaire, il y a bien les listes de toutes les familles de poisson et de tous les noms communs
si j'ajoute un poisson (et lui donne un nom commun) et que je veux en rajouter une, il n'y a plus que le nom commun du dernier poisson créer...
suis-je clair ?
Bon, je vais me coucher : il est 22h dans la pacifique sud et les moustiques sont de sortie looool
Merci pour votre aide
Hivan
up :-(
Juste une petite piste !
Juste une petite piste !
blux
Messages postés
24869
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
18 mars 2023
3 308
30 mars 2007 à 08:42
30 mars 2007 à 08:42
NomCommun = NomCommun.ItemData(0)
Ca sert à quoi ?
C'est sûrement pour ça que ta liste est limitée...
Un petit conseil en passant, évite les triplages de guillemets, préfère les apostrophes, c'est plus lisible :
A+ Blux
Ca sert à quoi ?
C'est sûrement pour ça que ta liste est limitée...
Un petit conseil en passant, évite les triplages de guillemets, préfère les apostrophes, c'est plus lisible :
sql = "SELECT DISTINCT [Nom_commun] FROM Domaines_nom_poissons " & _ "WHERE Espece = '" & Espece & "' ORDER BY Nom_commun ASC ;"--
A+ Blux
"Les cons, ça ose tout. C'est même à ça qu'on les reconnait"
Salut Blux,
Merci pour ta réponse ! J'ai bien mis des apostrophes, c'est plus lisible ;-)
NomCommun = NomCommun.ItemData(0)
Ca sert à sélectionner le premier élément de la liste...
en fait, j'ai compris qu'il modifiait la liste de l'enregistrement en cours et du prochain...
J'ai résolut le problème avec :
Private Sub NomCommun_Enter()
sql = "SELECT DISTINCT [Nom_commun] FROM Domaines_nom_poissons ORDER BY Nom_commun ASC ;"
NomCommun.RowSource = sql
NomCommun.Requery
End Sub
Un grand MERCI à toi Blux
C'est fonctionnel comme ça !
Merci pour ta réponse ! J'ai bien mis des apostrophes, c'est plus lisible ;-)
NomCommun = NomCommun.ItemData(0)
Ca sert à sélectionner le premier élément de la liste...
en fait, j'ai compris qu'il modifiait la liste de l'enregistrement en cours et du prochain...
J'ai résolut le problème avec :
Private Sub NomCommun_Enter()
sql = "SELECT DISTINCT [Nom_commun] FROM Domaines_nom_poissons ORDER BY Nom_commun ASC ;"
NomCommun.RowSource = sql
NomCommun.Requery
End Sub
Un grand MERCI à toi Blux
C'est fonctionnel comme ça !
blux
Messages postés
24869
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
18 mars 2023
3 308
>
Utilisateur anonyme
31 mars 2007 à 21:58
31 mars 2007 à 21:58
Cool !