[execice pas facil du tout (pour moi)]
Fermé
etudiante2007
Messages postés
1
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
20 mai 2007
-
20 mai 2007 à 21:09
irem32 - 21 mai 2007 à 14:35
irem32 - 21 mai 2007 à 14:35
A voir également:
- [execice pas facil du tout (pour moi)]
- Archi facil - Télécharger - Architecture & Déco
- Facil caisse ✓ - Forum Logiciels
- Nombre facil - Télécharger - Outils professionnels
- Facture facil - Télécharger - Comptabilité & Facturation
1 réponse
Private Function getTailleMaxEnfant() As Double
Dim rs-atient As DAO.Recordset
Dim requete As String
Dim totTaille As Integer
Dim maxTaille As Integer 'oubien...
Dim minTaille As Integer
'--- récupère dans un curseur tous les patients hommes adultes
requete = "select patient.numPatient, patient.taille from patient where patient.sexe = ‘H’ and patient.type = 1"
'modifier le patient.type pour avoir les enfants----------------
Set rsPatient = CurrentDb.OpenRecordset(requete)
maxTaille = 0
'--- parcourt du curseur pour traiter chaque patient et faire le cumul des tailles et compter le nombre de patient ---
While Not rsPatient.EOF
if maxTaille< rsPatient(“taille”) then
maxTaille=rsPatient(“taille”)
end if
rsVisite.MoveNext
Wend
rsVisite.Close
getTailleMaxEnfant= maxTaille
End Function
et pour le min, c'est la meme chose sauf l'initialisation
minTaille=200 (deux metres) et la comparaison
if minTaille> rsPatient(“taille”) then
minTaille=rsPatient(“taille”)
end if
Irem
Dim rs-atient As DAO.Recordset
Dim requete As String
Dim totTaille As Integer
Dim maxTaille As Integer 'oubien...
Dim minTaille As Integer
'--- récupère dans un curseur tous les patients hommes adultes
requete = "select patient.numPatient, patient.taille from patient where patient.sexe = ‘H’ and patient.type = 1"
'modifier le patient.type pour avoir les enfants----------------
Set rsPatient = CurrentDb.OpenRecordset(requete)
maxTaille = 0
'--- parcourt du curseur pour traiter chaque patient et faire le cumul des tailles et compter le nombre de patient ---
While Not rsPatient.EOF
if maxTaille< rsPatient(“taille”) then
maxTaille=rsPatient(“taille”)
end if
rsVisite.MoveNext
Wend
rsVisite.Close
getTailleMaxEnfant= maxTaille
End Function
et pour le min, c'est la meme chose sauf l'initialisation
minTaille=200 (deux metres) et la comparaison
if minTaille> rsPatient(“taille”) then
minTaille=rsPatient(“taille”)
end if
Irem