Bienvenue! Identification Créer un nouveau profil

Recherche avancée

La fonction date() qui ne fonctionne pas sous Access 2013

30/10/13 14:58
Bonjour,

J'ai une application qui me permet de consulter les tables de plusieurs années différentes.

Public Function RevenirAnnéeEnCours()
Dim maBD As Database, Rep As String, Consulte As Recordset, repDate As String
Set maBD = CurrentDb
Rep = MsgBox("Revient-on à l'année en cours?", vbQuestion + vbOKCancel, "Consultation"winking smiley
If Rep = vbCancel Then
Exit Function
Else
'on revient à la date système avant consultation
Set Consulte = maBD.OpenRecordset("consultation"winking smiley
Date = Consulte!DateConsultation
Consulte.Close
End If
repDate = MsgBox("Somme-nous bien le:" & vbLf _
& Format(Date, "dddd d mmmm yyyy"winking smiley & "?", vbQuestion + vbYesNo, "Consultation de tables"winking smiley
If repDate = vbNo Then
' Shell "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0", vbNormalFocus
DoCmd.OpenForm "ChangerDateConsultation"
Else
ChargementTablesAnnéeEnCours
End If
Set maBD = Nothing
Set Consulte = Nothing
End Function

Quand la ligne: Date = Consulte!DateConsultation s'exécute j'ai l'erreur 70, permission refusée.
Maintenant, j' ai trouvé cette commande shell, mais je ne sais pas l'utiliser.
Pour en revenir à cette fonction date, le copain qui utilise Office 2013, il a besoin de cette fonction, parce qu'il lui arrive d'aller consulter une table d'une année et de faire des changements, il faut donc que ces changements se fassent dans l'année qu'il a choisie.
D'un autre côté, lorsque qu'on change d'année, le 1er janvier, j'ai fait une fonction qui supprime les liaisons de l'année précédente et qui les relient sous la nouvelles années, il y a assez bien de tables.
Mais j'ai bien peur avec cette fonction date() qui ne veut pas aller.
Dans Office 2010, pas de problème.
Désolé de t'embêter avec cela, mais ça m'arrangerait de pour voir utiliser sans problème cette fonction.
J'ai vraiment cherché partout, sans résultat.
D'aucuns m'ont dit que ce n'était pas légal etc.
D'avance merci,
Guy FALESSE
SujetAuteurEnvoyé le

La fonction date() qui ne fonctionne pas sous Access 2013

Guy Falesse30/10/13 14:58

Re: La fonction date() qui ne fonctionne pas sous Access 2013

Guy Falesse30/10/13 15:13

Re: La fonction date() qui ne fonctionne pas sous Access 2013

Hervé Inisan30/10/13 15:29

Re: La fonction date() qui ne fonctionne pas sous Access 2013

Guy Falesse30/10/13 15:51

Re: La fonction date() qui ne fonctionne pas sous Access 2013

Hervé Inisan30/10/13 16:20

Re: La fonction date() qui ne fonctionne pas sous Access 2013

Guy Falesse30/10/13 16:39

Re: La fonction date() qui ne fonctionne pas sous Access 2013

Hervé Inisan30/10/13 16:57

Re: La fonction date() qui ne fonctionne pas sous Access 2013

Guy Falesse30/10/13 17:07

Re: La fonction date() qui ne fonctionne pas sous Access 2013

Guy Falesse31/10/13 10:34

Re: La fonction date() qui ne fonctionne pas sous Access 2013

Hervé Inisan01/11/13 19:06

Re: La fonction date() qui ne fonctionne pas sous Access 2013

Guy Falesse01/11/13 20:02

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter