Access-3stone - Forum - Problèmes liés aux codes du site

Forum - Problèmes liés aux codes du site - Sujet n°321

1 membre

Connectés : ( personne )

Forum - Forum
- Problèmes liés aux codes du site

Sujet n° 321	Sauvegarde mensuelle
le 03/02/2010 : 17:44 par Seb visiteur	Bonjour,Le module publié sur le site m'intéresse bien , je voudrais que cette sauvegardepuisse se faire tous le soir a la fermeture de la base , que faudrait-il changer pour que ça puisse fonctionnercordialement Seb

Réponse n° 1 -------- le 03/02/2010 : 18:24 par 3Stone Administrateur	Bonjour, Le soir à la fermeture de la base est un moment indéfini... Il vaut donc mieux faire cela au premier démarrage du jour. J'ai adapté rapidement la fonction que tu peux donc trouver ici. Cordialement, Pierre(3stone)

Réponse n° 2
--------
le 04/02/2010 : 15:54
par Seb

Anonyme

visiteur

Merci pour ton aide

c'est tres sympa SEB

Réponse n° 3
--------
le 04/02/2010 : 17:11
par SEB

Anonyme

visiteur

Voila ce que me retourne access au démarrage

JourActuel = Format(Date, "jjjjmmdd") surligné en jaune

@+ Seb

Réponse n° 4 -------- le 04/02/2010 : 17:37 par 3Stone Administrateur	Bonjour, Effectivement, c'est une coquille (jjjj à la place de yyyy) J'ai corrigé la fonction, cela devrait allez mieux. Cordialement, Pierre(3stone)

Réponse n° 5
--------
le 05/02/2010 : 11:57
par Seb

Anonyme

visiteur

Bonjour,

Il y-a un autre pb,au démarrage j'ai le message suivant

erreur d'exécution '6' dépassement de capacité

JourActuel = Format(Date, "yyyy/mm/dd")

Merci @+

Réponse n° 6 -------- le 05/02/2010 : 14:41 par 3Stone Administrateur	Bonjour, Désolé... j'avais modifié la fonction mensuelle, mais sans la tester Je viens de le faire et de corriger la chose Par contre, tu as écrit : JourActuel = Format(Date, "yyyy/mm/dd") Ce n'est pas correct ! Il n'y a pas de "/" comme séparateur à cet endroit, puisque "JourActuel" est une variable numérique... Déjà que je laisse des coquilles dans le code, si en plus tu ne copies pas correctement Cordialement, Pierre(3stone)

Réponse n° 7
--------
le 05/02/2010 : 17:50
par Seb

Anonyme

visiteur

Voici le code recopié

Public Function fn_ExportJournalier()
    Dim JourActuel As Long, JourExport As Long
    Dim varDerDate As Variant

    JourActuel = Format(Date, "yyyymmdd")
    varDerDate = DMax("DateExport", "tblExport")

    If IsNull(varDerDate) Then
        JourExport = 0
    Else
        JourExport = Format(varDerDate, "yyyymmdd")
    End If

    If JourExport <> JourActuel Then
        '// premier démarrage de la journée et j'exporte
        '// par exemple par
        '
        'DoCmd.TransferSpreadsheet ....
        '
        '// sauver la date de l'export
        CurrentDb.Execute "Insert Into tblExport Values (" _
                        &nbs p; & Format(Date, "#mm/dd/yyyy#") & ");"
        MsgBox "L'exportation a été réalisée", vbInformation
    End If
End Function

Voici le message au démarrage

erreur d'exécution 3075

erreur se syntaxe (opérateur absent)dans l'expression4021mm/dd/yyyy4

Réponse n° 8 -------- le 06/02/2010 : 03:31 par 3Stone Administrateur	Bonjour, Décidément, une fois que cela déraille En fait, il y a un signe qui se fait avaler par la sécurité du système d'édition du site. Ce signe est le "backslash" - donc une barre oblique inverse. Pour qu'il s'affiche, on ne peu pas l'écrire normalement, mais utiliser son entité html. Bon, la fin du code est celle-ci : CurrentDb.Execute "Insert Into tblExport Values (" _ & Format(Date, "\#mm/dd/yyyy\#") & ");" MsgBox "L'exportation a été réalisée", vbInformation Faut vraiment faire attention, sinon cela ne s'apercoit pas Cordialement, Pierre(3stone)

sujet actif clos

sujet clos

Important! Nouveau

Nouveau message -

Rectifier message

Clôturer sujet

Remonter