Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 18/10/2011, 09h36   #1
Membre du Club
 
Inscription : décembre 2006
Messages : 222
Détails du profil
Informations personnelles :
Âge : 58

Informations forums :
Inscription : décembre 2006
Messages : 222
Points : 61
Points : 61
Par défaut Select Case MsgBox : Mois qui corresponde a l'année

Bonjour le forum.

Tous les mois je charge des fichiers et je voudrais vérifier qu'il n'a pas déja été chargé pour le mois.
Avec le code ci dessous je sors bien l'année la plus grande, c'est à dire 2011, mai pour le mois, il me sort 12 (ce qui est normal).
Comment faudrait il faire pour que le mois corresponde à l'année la plus grande, c'est à dire 2011 - 09 ?

Code :
1
2
3
'Quel est le dernier fichier chargé ?
Select Case MsgBox("Le dernier fichier chargé est celui de : " & DMax("ANNEE", "T_TABLE") & " - " & DMax("MOIS", "T_TABLE"), vbOKCancel)
Case vbOK
Merci pour l'aide.
Bernard67 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/10/2011, 13h20   #2
Membre du Club
 
Inscription : décembre 2006
Messages : 222
Détails du profil
Informations personnelles :
Âge : 58

Informations forums :
Inscription : décembre 2006
Messages : 222
Points : 61
Points : 61
En passant par une fonction, cela me semble possible, mais je n'ai pas assez de connaissances pour coder.

Code :
1
2
3
Public Function Fichier_charge()
MsgBox (DMax("ANNEE", "Tbl_TABLE"))
End Function
Comment coder pour avoir le mois le plus grand, de l'année la plus grande ?

Merci
Bernard67 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/10/2011, 14h33   #3
Membre confirmé
 
Homme
Chercheur
Inscription : juin 2011
Messages : 150
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Tarn (Midi Pyrénées)

Informations professionnelles :
Activité : Chercheur
Secteur : Agroalimentaire - Agriculture

Informations forums :
Inscription : juin 2011
Messages : 150
Points : 231
Points : 231
Bonjour,

Ceci devrait répondre à vos attentes :

Code :
MSgbox "Le dernier fichier chargé est celui de : " & DMax("ANNEE", "T_TABLE") & " - " & DMax("MOIS", "T_TABLE", "[ANNEE]=" & DMax("ANNEE", "T_TABLE")), vbOKCancel
Bcdt
fbtsra est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/10/2011, 14h38   #4
Membre du Club
 
Développeur informatique
Inscription : décembre 2008
Messages : 43
Détails du profil
Informations personnelles :
Âge : 49

Informations professionnelles :
Activité : Développeur informatique

Informations forums :
Inscription : décembre 2008
Messages : 43
Points : 46
Points : 46
Salut,

Essaie ça:

Code :
1
2
 
msgbox "Dernier mois : " & dmax("Mois","Table",""Annee = dmax('Annee','Table')")
NguyenRD est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/10/2011, 08h21   #5
Membre du Club
 
Inscription : décembre 2006
Messages : 222
Détails du profil
Informations personnelles :
Âge : 58

Informations forums :
Inscription : décembre 2006
Messages : 222
Points : 61
Points : 61
Bonjour fbtsra, NguyenRD, le forum

Je vous remercie pour vos propositions.

Je n'avais pas precise que dans les tables les champs ANNEE et MOIS sont au format texte.

Pour fbtsra :
jai le message d'erreur :
Erreur d'execution 3075
Erreur de syntaxe dans la chaine dans l'expresiion <<[ANNEE]=' 2011>>

Pour NguyenRD
J'ai le message d'erreur :
Erreur d'exécutiion 13
Incompatibilite de type
Bernard67 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/10/2011, 08h40   #6
Membre confirmé
 
Homme
Chercheur
Inscription : juin 2011
Messages : 150
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Tarn (Midi Pyrénées)

Informations professionnelles :
Activité : Chercheur
Secteur : Agroalimentaire - Agriculture

Informations forums :
Inscription : juin 2011
Messages : 150
Points : 231
Points : 231
Bonjour,

C'est surprenant de laisser un champ texte pour des données numérique ...

Modifs :

Code :
MSgbox "Le dernier fichier chargé est celui de : " & DMax("ANNEE", "T_TABLE") & " - " & DMax("MOIS", "T_TABLE", "[ANNEE]='" & DMax("ANNEE", "T_TABLE") & "'"), vbOKCancel
Bcdt
fbtsra est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/10/2011, 09h06   #7
Membre du Club
 
Inscription : décembre 2006
Messages : 222
Détails du profil
Informations personnelles :
Âge : 58

Informations forums :
Inscription : décembre 2006
Messages : 222
Points : 61
Points : 61
Merci fbtsra pour ta solution qui est parfaite.

Je mets en format texte tous les champs sur lesquels je ne fais pas d'opérations, entre autre année et mois. C'est peut etre une mauvaise habitude.

Merci encore et bonne journée.
Cordialement
Bernard67 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 05h19.


 
 
 
 
Partenaires

Hébergement Web