Bienvenue! Identification Créer un nouveau profil

Recherche avancée

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

30/10/13 15:39
Salut Hervé,

Voilà, ce qu'elle fait, il n'y a qu'une petite partie des tables:

Public Function ChargementTablesAnnéeEnCours()
Dim chCritères As String, chem As String, TBD As String
chCritères = DatePart("yyyy", Date)
Forms!Acceuil!Texte50 = "Acceuil en " & chCritères
chem = "c:\SVella\VellaTables" & chCritères & ".mdb"
'------------------------
'on détache les tables déjà attachées
DoCmd.Hourglass True
DétacherToutesLesTables
'-------------------------
' ici, on charge les tables de l'année en cours
'----------------------------------------------
TBD = "Microsoft Access"
DoCmd.TransferDatabase acLink, TBD, chem, acTable, "Adresses", "Adresses"
DoCmd.TransferDatabase acLink, TBD, chem, acTable, "ArticlesEtPrix", "ArticlesEtPrix"
DoCmd.TransferDatabase acLink, TBD, chem, acTable, "Facturation", "Facturation"
DoCmd.TransferDatabase acLink, TBD, chem, acTable, "Achats", "Achats"
DoCmd.TransferDatabase acLink, TBD, chem, acTable, "SousAchats", "SousAchats"
'------------------------------------------------
NomDeLaBase 'dans module NomDeBase
DoCmd.Hourglass False
If EstChargé("Acceuil") Then
Forms!Acceuil.Requery
End If
End Function

Il y a cette fonction qui est exécutée avant:

Public Function ConsulterLesAutresTables()
Dim maBD As Database, chem As String, TBD As String, NewDate
Dim MyDate As String, meF As Form
Dim chCritères As String, rstTables As Recordset, TableNow As String
Dim A As Integer, B As Integer, tdf As TableDef, NomAttachées As String
Set maBD = CurrentDb
Set meF = Forms!QuidAnnéesExercice
chCritères = meF!Modifiable0
Forms!Acceuil!Texte50 = "Accueil en " & chCritères
Set tdf = maBD.TableDefs!Adresses
For A = 1 To Len(tdf.Connect)
If Mid(tdf.Connect, A, 1) = "\" Then
B = A
End If
Next A
NomAttachées = Mid(tdf.Connect, B + 1, A - cool smiley
TableNow = Mid(NomAttachées, 12, 4)
If chCritères = TableNow Then
Beep
MsgBox "Vous travaillez déjà avec les tables " & vbLf & _
"VellaTables" & chCritères & ".mdb" & " !", vbCritical, "Mauvais choix d'année !"
Exit Function
End If
DateConsultation 'fonction qui écrit la date en cours dans la table consult dans ce même module
Set rstTables = maBD.OpenRecordset("NomTablesVella", dbOpenDynaset)
MyDate = "31/12/" & chCritères 'paramètres pour changer la date système
Date = MyDate 'on change la date système
'NewDate = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0", vbNormalFocus)
chem = "C:\SVella\VellaTables" & chCritères & ".mdb"
'DateConsultation
DétacherToutesLesTables 'on détache les tables déjà attachées
'-------------------------
TBD = "Microsoft Access"
DoCmd.TransferDatabase acLink, TBD, chem, acTable, "Adresses", "Adresses"
DoCmd.TransferDatabase acLink, TBD, chem, acTable, "ArticlesEtPrix", "ArticlesEtPrix"
etc.
Tu vois, c'est assez compliqué pour moi, bien sûr.
@+

Guy FALESSE

@+

Guy FALESSE
SujetAuteurEnvoyé le

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

Guy Falesse30/10/13 13:58

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

Guy Falesse30/10/13 14:13

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

Hervé Inisan30/10/13 14:29

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

Guy Falesse30/10/13 14:51

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

Hervé Inisan30/10/13 15:20

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

Guy Falesse30/10/13 15:39

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

Hervé Inisan30/10/13 15:57

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

Guy Falesse30/10/13 16:07

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

Guy Falesse31/10/13 09:34

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

Hervé Inisan01/11/13 18:06

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

Guy Falesse01/11/13 19:02

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

Cliquez ici pour vous connecter