Enregistrement automatique vba access
hamster2combat
Messages postés
41
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
22 juin 2006
-
20 nov. 2003 à 11:26
hamster2combat Messages postés 41 Date d'inscription mercredi 22 octobre 2003 Statut Membre Dernière intervention 22 juin 2006 - 20 nov. 2003 à 11:44
hamster2combat Messages postés 41 Date d'inscription mercredi 22 octobre 2003 Statut Membre Dernière intervention 22 juin 2006 - 20 nov. 2003 à 11:44
A voir également:
- Enregistrement automatique vba access
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Byval vba - Conseils pratiques -Visual Basic / VB.NET
- Aide vba - Conseils pratiques -Visual Basic / VB.NET
- Vb access - Conseils pratiques -Visual Basic / VB.NET
- Access like ✓ - Forum SQL
1 réponse
hamster2combat
Messages postés
41
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
22 juin 2006
20 nov. 2003 à 11:44
20 nov. 2003 à 11:44
je fais un compactage d'une base..
J'utilise une sauvegarde sur une base tampon...
Pourrai-je utiliser la date systeme pour que cela se fasse à une date précise.
if datesysteme = "01/01/2006" then (là le probleme)
sNomBase = "C:\Documents and Settings\a_barbet\Mes documents\base de donnée\Base.MDB"
sNomBaseTmp = "C:\Documents and Settings\a_barbet\Mes documents\base de donnée\BaseTmp.MDB"
'1. Compactage dans une nouvelle base
DBEngine.CompactDatabase sNomBase, sNomBaseTmp
'2. Suppression de la base originale
Kill sNomBase
'3. Renommer la base compactée avec le nom de la base originale
Name sNomBaseTmp As sNomBase
end if
J'utilise une sauvegarde sur une base tampon...
Pourrai-je utiliser la date systeme pour que cela se fasse à une date précise.
if datesysteme = "01/01/2006" then (là le probleme)
sNomBase = "C:\Documents and Settings\a_barbet\Mes documents\base de donnée\Base.MDB"
sNomBaseTmp = "C:\Documents and Settings\a_barbet\Mes documents\base de donnée\BaseTmp.MDB"
'1. Compactage dans une nouvelle base
DBEngine.CompactDatabase sNomBase, sNomBaseTmp
'2. Suppression de la base originale
Kill sNomBase
'3. Renommer la base compactée avec le nom de la base originale
Name sNomBaseTmp As sNomBase
end if
