Selectionner les 2 derniers chiffres de l'année en cours! svp!

Question

Bonjour, 

me revoila dans un autre probl&#232;me qui .. est je suis sure tr&#232;s simple &#224; r&#233;soudre...et pourtant je n'y arrive p&#244; ...

 Je cherche &#224; rentrer dans un champ une information 'temporelle'

> les mois dans une ann&#233;e sont divis&#233;s en quarter
Janvier &#224; Mars = Q1
Avril &#224; Juin = Q2
Juillet &#224; Septembre = Q3
Octobre &#224; Decembre = Q4

 Pour l'instant sa va...

Dim myyear As Integer
Dim mymonth As Integer
dim tyear as string


mymonth = Month(Date)
myyear = Year(Date)


If mymonth = 12 Then
   
    DoCmd.RunSQL " INSERT INTO TESTE (champ) SELECT 'Q4'"
End If


Je bloque sur l'ann&#233;e, je ne me souviens plus du tout comment on fait!
merci d'avance..!

au secours!!

malhivertman1 · Answer

Avec la methode Right$ ca ne marche pas?
++

malhivertman1 · Answer

Enfin je sais pas si j'ai bien compris ta question mais 
Dim deuxderniers As String
deuxderniers = Year(Date)
deuxderniers = Right$(deuxderniers, 2)

Ce code te renvois les 2 derniers chiffres, soit 05 pour cette ann&#233;e
++

cs_tchoukette · Answer

Ce que je n'arive pas ensuite , c'est de l'ins&#233;rer dans mon champs avec mon Q4!

J'aimerai que dans le champ cela donne=
Q4-05'

docmd.runsql " insert  into TESTE (champ) SELECT 'Q4'  & deuxderniers"
Sa marche po !!!

au secours!!

mertronic · Answer

essaye (reprise de l'info de malhivertman1):


Dim deuxderniers As String
deuxderniers = Year(Date)
deuxderniers = Right$(deuxderniers, 2)

puis:
if mymonth >6 and mymonth <9 then champ="Q3-"+format(deuxderniers,"00")
if mymonth >9 then champ="Q4-"+format(deuxderniers,"00")

ca ca devrait le faire. @+

mertronic · Answer

je pense que formatdate(date,"yy") devrait marcher aussi

cs_tchoukette · Answer

Dim myyear As Integer
Dim mymonth As Integer
Dim deuxderniers As String


deuxderniers = Year(Date)
deuxderniers = Right$(deuxderniers, 2)


MsgBox deuxderniers ' sa m'affiche bien mon 05'
mymonth = Month(Date)
If mymonth = 12 Then
    DoCmd.RunSQL "insert into TESTE (s) SELECT 'Q4-' & Format(deuxderniers, 'yy')"
End If

Marche toujours pas....
au secours!!

cs_tchoukette · Answer

G oubli&#233; de pr&#233;ciser, je travaille sous access

au secours!!

AD_Nader · Answer

salut tt le monde, 

j'ai une erreur qui s'affiche &#224; chaque fois que je lance ma form : le message d'erreur est : 

"L&#146;objet invoqu&#233; s&#146;est d&#233;connect&#233; de ses clients"


le debegueur il s'arrete au niveau la commande ci-dessosu: c'est la
commande qui donne acces &#224; un explorateur windows servant &#224; parcourir
l'arboressence et aller chercher un fichier dans le disque .



pGxDialog.DoModalOpen ThisDocument.Parent.hWnd, pEnumGx



avez vous des pites, aparament , c une erreur fr&#233;quente

merce d'avence pour toute reponse.

cs_tchoukette · Answer

sa ne marche toujours pas au secours!

au secours!!

cs_tchoukette · Answer

sa ne marche toujours pas au secours!

au secours!!

aieeeuuuuu · Answer

tchoukette, tu as une erreur dans ta requete

il ne faut pas que tu fasse 'Q4' - & deuxderniers


mais : insert  into TESTE (champ) SELECT 'Q4" & deuxderniers & "'"

PS : pense a nous mettre le message d'erreur que tu as la prochaine fois, ca peut bien nousaider a t'aider :)

cs_tchoukette · Answer

hmm.. et si je fais un update... sa marche pas....

DoCmd.RunSQL "UPDATE TESTE SET TESTE.(s) = 'Q4" & deuxderniers & "'"

au secours!!

aieeeuuuuu · Answer

comme je disais donc dans mon post juste au dessus : ton message d'erreur c'est quoi ?????

essaie plutot avec TESTE.s au lieu de TESTE.(s)

Selectionner les 2 derniers chiffres de l'année en cours! svp!

13 réponses

Discussions similaires