{Access} recuperer resultat d une requete
Résolu/Fermé
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
-
19 sept. 2009 à 18:27
blux Messages postés 25978 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 19 avril 2024 - 5 janv. 2010 à 22:48
blux Messages postés 25978 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 19 avril 2024 - 5 janv. 2010 à 22:48
A voir également:
- {Access} recuperer resultat d une requete
- Recuperer video youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
- Recuperer message whatsapp - Guide
- Comment récupérer une adresse mail - Guide
- Récupérer photo instagram - Guide
7 réponses
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
20 sept. 2009 à 10:03
20 sept. 2009 à 10:03
bonjour
c bon probleme resolu si quelqu un a besoin n hesitez pas a me contacter
c bon probleme resolu si quelqu un a besoin n hesitez pas a me contacter
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
5 janv. 2010 à 07:18
5 janv. 2010 à 07:18
salut alors il te faut passer par un recordset:
dim db as database
dim rs as recordset
set db=cuuentdb
set = rs =db.openrecordset "ta requete avec un as pour recuperrer le resultat" genre:
with rs
variable = !maximum
end with
: select max(nbre) as maximum from......
dim db as database
dim rs as recordset
set db=cuuentdb
set = rs =db.openrecordset "ta requete avec un as pour recuperrer le resultat" genre:
with rs
variable = !maximum
end with
: select max(nbre) as maximum from......
blux
Messages postés
25978
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
19 avril 2024
3 287
5 janv. 2010 à 08:20
5 janv. 2010 à 08:20
Salut,
on peut aussi le faire avec la fonction dlookup, c'est plus 'propre' (moins de lignes et moins d'objet à définir).
on peut aussi le faire avec la fonction dlookup, c'est plus 'propre' (moins de lignes et moins d'objet à définir).
Merci à vous deux !
(moiced59 et Blux)
J'ai finalememnt opté pour le Dlookup qui me parait plus clair en lecture.
Voici ce que cela donne :
Mon problème est que je dois accéder au champs d'un sous-formulaire et là je me frappe à une erreur. Si je met la clé primaire direct (ex: 2259) ça va bien ! Où ai-je flanché ??? ;-(
Merci, merci et merci d'avance !
(moiced59 et Blux)
J'ai finalememnt opté pour le Dlookup qui me parait plus clair en lecture.
Voici ce que cela donne :
Dim B As String
Dim RM As Single
'J'ai essayé de coller dans une variable...
'B = "Forms![_MenuPrincipal]![sfrm_EmplListeChoix].Form![EmplID]"
' Voici la ligne qui fonctionne
RM = Nz(DLookup("[A]", "req_EmplAnService", "[tbl_Mouvements.EmplID]=1847"), 0)
'Et celle qui ne fonctionne pas ;-(
RM = Nz(DLookup("[A]", "req_EmplAnService", "[tbl_Mouvements.EmplID]=Me![_MenuPrincipal.EmplID]"), 0)
MsgBox "Les années d'expérience sont de : " & RM
Me.[EmplNbAnService] = RM
Me.Refresh
Mon problème est que je dois accéder au champs d'un sous-formulaire et là je me frappe à une erreur. Si je met la clé primaire direct (ex: 2259) ça va bien ! Où ai-je flanché ??? ;-(
Merci, merci et merci d'avance !
LolaBunny
Messages postés
6
Date d'inscription
mardi 5 janvier 2010
Statut
Membre
Dernière intervention
8 janvier 2010
>
Lola Bunny
5 janv. 2010 à 16:46
5 janv. 2010 à 16:46
Zut !
Oublié de spécifier que mes formulaires sont :
1 - _MenuPrincipal
2 - Sous-formulaire, sfrm_EmplListeChoix
Donc j'ai essayé :
Forms![_MenuPrincipal]![sfrm_EmplListeChoix].Form![EmplID]
Merci !
Oublié de spécifier que mes formulaires sont :
1 - _MenuPrincipal
2 - Sous-formulaire, sfrm_EmplListeChoix
Donc j'ai essayé :
Forms![_MenuPrincipal]![sfrm_EmplListeChoix].Form![EmplID]
Merci !
blux
Messages postés
25978
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
19 avril 2024
3 287
>
LolaBunny
Messages postés
6
Date d'inscription
mardi 5 janvier 2010
Statut
Membre
Dernière intervention
8 janvier 2010
5 janv. 2010 à 16:57
5 janv. 2010 à 16:57
B = Forms("_MenuPrincipal")("sfrm_EmplListeChoix")("EmplID") ?
LolaBunny
Messages postés
6
Date d'inscription
mardi 5 janvier 2010
Statut
Membre
Dernière intervention
8 janvier 2010
5 janv. 2010 à 17:10
5 janv. 2010 à 17:10
Bonjour Blux,
Merci de m'aider, j'avoue que la déprime me gagne ;-D Ben, non !!!
Il me donne une erreur d'exécution 2465. Impossible de trouver le champ 'sfm_EmplListeChoix' auquel il est fait référence dans votre expression.
Est-ce que le fait que mon sous-formulaire soit dans un onglet a une importance ? Je ne crois pas, mais bon. Et il se nomme vraiment 'sfrm_EmplListeChoix'.
Grrrrr ;-) Je continu à cherche, il FAUT que je trouve...
Merci encore, fortement apprécié !
Merci de m'aider, j'avoue que la déprime me gagne ;-D Ben, non !!!
Il me donne une erreur d'exécution 2465. Impossible de trouver le champ 'sfm_EmplListeChoix' auquel il est fait référence dans votre expression.
Est-ce que le fait que mon sous-formulaire soit dans un onglet a une importance ? Je ne crois pas, mais bon. Et il se nomme vraiment 'sfrm_EmplListeChoix'.
Grrrrr ;-) Je continu à cherche, il FAUT que je trouve...
Merci encore, fortement apprécié !
blux
Messages postés
25978
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
19 avril 2024
3 287
5 janv. 2010 à 17:19
5 janv. 2010 à 17:19
Est-ce que le fait que mon sous-formulaire soit dans un onglet a une importance ?
Justement si, il faut mettre la hiérarchie des objets qui contiennent ton contrôle final...
B = Forms("_MenuPrincipal")("onglet1")("sfrm_EmplListeChoix")("EmplID")
Justement si, il faut mettre la hiérarchie des objets qui contiennent ton contrôle final...
B = Forms("_MenuPrincipal")("onglet1")("sfrm_EmplListeChoix")("EmplID")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
LolaBunny
Messages postés
6
Date d'inscription
mardi 5 janvier 2010
Statut
Membre
Dernière intervention
8 janvier 2010
5 janv. 2010 à 17:24
5 janv. 2010 à 17:24
OK, donc j'ai mis
B = Forms("_MenuPrincipal")("Employés")("sfrm_EmplListeChoix")("EmplID")
Erreur d'éxécution 438 ; Propriétés ou méthode non gérée par cet objet.
J'y suis tellement presque !
;-D
B = Forms("_MenuPrincipal")("Employés")("sfrm_EmplListeChoix")("EmplID")
Erreur d'éxécution 438 ; Propriétés ou méthode non gérée par cet objet.
J'y suis tellement presque !
;-D
blux
Messages postés
25978
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
19 avril 2024
3 287
5 janv. 2010 à 17:32
5 janv. 2010 à 17:32
B = Forms("_MenuPrincipal")("Employés")("sfrm_EmplListeChoix")("EmplID").value ?
LolaBunny
Messages postés
6
Date d'inscription
mardi 5 janvier 2010
Statut
Membre
Dernière intervention
8 janvier 2010
5 janv. 2010 à 17:48
5 janv. 2010 à 17:48
Encore 438 ! Je te met le tout pour que l'on voit bien :
(soupir) LOL
' Années de service
Private Sub EmplNbAnService_Click()
Dim B As String
Dim RM As Single
' variable
B = Forms("_MenuPrincipal")("Employés")("sfrm_EmplListeChoix")("EmplID").Value
' Voici la ligne qui fonctionne
'RM = Nz(DLookup("[A]", "req_EmplAnService", "[tbl_Mouvements.EmplID]=1847"), 0)
' Et celle qui ne fonctionne pas ;-(
RM = Nz(DLookup("[A]", "req_EmplAnService", "[tbl_Mouvements.EmplID]=B"), 0)
Me.[EmplNbAnService] = RM
Me.Refresh
End Sub
(soupir) LOL
LolaBunny
Messages postés
6
Date d'inscription
mardi 5 janvier 2010
Statut
Membre
Dernière intervention
8 janvier 2010
5 janv. 2010 à 22:15
5 janv. 2010 à 22:15
Bonjour et merci à Blux et à Patrick avoir déclanché l'éclair chez moi ;-D
J'ai trouvé et poste la solution pour d'autres.
C'était tout simple...
Pas de variable rien.
Voilà ! ;-D
J'ai trouvé et poste la solution pour d'autres.
C'était tout simple...
Dim RM As Single
RM = Nz(DLookup("[A]", "req_EmplAnService", "[tbl_Mouvements.EmplID]=" & [EmplID]), 0)
Pas de variable rien.
Voilà ! ;-D
blux
Messages postés
25978
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
19 avril 2024
3 287
5 janv. 2010 à 22:48
5 janv. 2010 à 22:48
Ce n'est pas la variable qui gênait, mais le fait de l'avoir mise entre quotes, elle n'est donc pas interprétée...
Tu aurais pu faire
Depuis le début, c'est ça qui coince : la mauvaise position des quotes...
Tu aurais pu faire
"[tbl_Mouvements.EmplID]=" & B), 0)
Depuis le début, c'est ça qui coince : la mauvaise position des quotes...
5 janv. 2010 à 03:04
Et la solution c'est ? J'en aurais bien besoin. Merci de poster la solution ;-)
Bone année !