[A-07] Empecher Access de faire un enregistrements

**antoine974** · 03/12/2008, 06h55

Bonjour a tous,

j'aimerais reussir a empecher a Access de creer un enregistrements dans ma table

je m'explique

J'ai un bout de code qui verifie l'existence d'un fichier excel et qui si il n'existe pas me ferme mon formulaire or apres la fermeture du formulaire il me sort des erreurs comme quoi il me manques des informations dans certains champs de l'enregistrement.

J'aimerais donc que lorsque qu'il ne trouve pas mon fichier excel qu'il empeche access de faire l'enregistrements ou qu'il le supprime dans la foulée 'ai tester plusieurs trucs mais cela ne marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'Verifie l'existence d'un fichier XLTM
MyFile = Dir("C:\*.XLTM", vbNormal)
If (MyFile <> "*.xltm") Then
    'MsgBox (" Les fichiers Modeles pour Excel ne se trouvent pas au bon endroit. Veuillez les mettre dans la racine du Disque C:\")
    DoCmd.Close
 
    Exit Function
End If

Question subsidiare :
J'ouvre un formulaire et j'execute du code apres seulementil existe plusieur formulaire comme je peux lui dire d'utiliser le formulaire courant il n'existe pas un This.form ou me.form ??

Merci d'avance

**Gabout** · 03/12/2008, 18h45

Bonjour,

Pas sûr... essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Dir("C:\*.XLTM", vbNormal)="" then
    MsgBox (" Les fichiers Modeles pour Excel ne se trouvent pas au bon endroit. Veuillez les mettre dans la racine du Disque C:\")
    DoCmd.Close , , acSaveNo
End If

A+

**antoine974** · 05/12/2008, 19h35

cela marche

cependant maintenant

je cree un premier formulaire si le fichier excel n'existe pas je sort le Msgbox puis je ferme le formulaire et je n'enregistre pas

imaginon que de suite apres on cree le meme formulaire une deuxieme fois je trouve pas le fichier excel je sort le MsgBox puis je ferme le formulaire et la Plantage complet de Access

Cela provient de mon code ( le bout plus haut ) de la place de mon code ou du code du programme qui n'a aucun rappport avec mon bout de code plus haut

Ensuite comment designer le formulaire courant svp ??

Merci a toi

**Gabout** · 05/12/2008, 20h12

Bonjour,

D'une manière générale, Me désigne le formulaire courant... mais je n'ai pas compris ta question.

imaginon que de suite apres on cree le meme formulaire une deuxieme fois je trouve pas le fichier excel je sort le MsgBox puis je ferme le formulaire et la Plantage complet de Access

Pourquoi veux-tu re-créer le formulaire ?

A+

**antoine974** · 06/12/2008, 03h53

imaginons qu'on se soit trompe et qu'on veut juste recommencer la première fois ça marche niquel mais pas la deuxième ( la deuxième ne crée pas d'enregistrements )

Merci

**antoine974** · 07/12/2008, 06h10

Bon tant pis tout compte fait on fermera l'application en entier

Merci quand même de ton aide

**Gabout** · 07/12/2008, 09h37

Bonjour,

Je ne peux toujours pas te répondre parce que je ne comprends pas ce que tu cherches à faire.

Un formulaire ne se crée qu'une seule fois !!!

Et que veux-tu dire là ?

Cela provient de mon code ( le bout plus haut ) de la place de mon code ou du code du programme qui n'a aucun rappport avec mon bout de code plus haut

Je nage... mais je ne dois pas être le seul !

**antoine974** · 07/12/2008, 14h53

lol desole

en fait je cree un premier formulaire ( qui correspond a un modele excel ) or le fichier excel ne se trouve pas au bon endroit donc je ferme le formulaire cree ( car il n'a pas de modele )
et si je re clique sur le bouton pour re creer un formulaire dans l'instant a ce moment la il ouve le formulaire me dit que le fichier excel n'existe pas ( tout est normal ) ferme le formulaire et alors plante littéralement.

Voila ou j'en suis :

Le developpeur et moi meme avont decide au final de fermer completement l'application

et il me sort des erreurs lorsque l'on ferme Access pas avant
c'est le seul probleme qu'il me reste

Comment utiliser le Me pour l'utilisation d'un formulaire courant ??

Merci de ton aide

**Gabout** · 07/12/2008, 17h09

et il me sort des erreurs lorsque l'on ferme Access pas avant
c'est le seul probleme qu'il me reste

Et c'est quoi, ces erreurs (si ce n'est pas un secret

) ?

**antoine974** · 07/12/2008, 18h51

Voila ou j'en suis :

1er essai : tout marche niquel
2eme essai : il plante avec l'erreur en piece jointe

Alors voila le premier bout de code en fait a la base il affecte le nom du fichier xltm dont il faudra se servir donc je place mon bout de code devant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Public Function creer_excel_vierge()
 
 
 
' Spécifie quel type d'objet doit recevoir le cadre
 
Form_essai_form.excel.OLETypeAllowed = acOLEEmbedded
 
 
 
Dim MyFile, MyPath, MyName
 
 
 
'Verifie l'existence d'un fichier XLTM
 
MyFile = Dir("C:\*.XLTM", vbNormal)
 
If (MyFile <> "modele_01.xltm") Then
 
    MsgBox (" Les fichiers Modeles pour Excel ne se trouvent pas au bon endroit. Veuillez les mettre dans la racine du Disque C:\")
 
    DoCmd.Close
 
    Exit Function
 
End If
 
 
 
' Spécifie le fichier à lier
 
Form_essai_form.excel.SourceDoc = "c:\modele_01.xltm"
 
 
 
 
 
' Lie l'objet
 
Form_essai_form.excel.Action = acOLECreateEmbed
 
 
 
'Dim xlPlage As excel.Range
 
'Set xlPlage = Me![xlFeuille].Range("A1")

Ensuite je re verifier pour eviter l'enregistrements

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
'Verifie l'existence d'un fichier XLTM
 
MyFile = Dir("C:\*.XLTM", vbNormal)
 
If (MyFile <> "modele_01.xltm") Then
 
    'MsgBox (" Les fichiers Modeles pour Excel ne se trouvent pas au bon endroit. Veuillez les mettre dans la racine du Disque C:\")
 
    DoCmd.Close
 
 
 
End If
 
Exit Function
 
 
 
Form_essai_form.n_devis = n_devis

En fichiers joints l'erreur :

**Alexandre Sahli** · 09/12/2008, 09h33

Bonjour,

à mon avis tu devrais changer ta conception de ton application.

1° tu vérifies si le fichier existe
pour cela il vaut la peine de le faire avec une api pour rechercher le fichier et l'ouvrir
2° tu vérifies si ce sont les bonnes données
3° tu lies ton fichier pour importation ou autre
4° tu coupes la liaisons

bonne chance

**antoine974** · 09/12/2008, 18h04

le problème étant que l'application est déjà finie , que ce n'est pas moi qui l'est codé et que je m'occupe juste de rajouter des boutons, afficher un message d'erreur si le fichier existe pas et changer une requête SQL mon travail s'arrête la

au pire un moyen de désactiver les messages d'erreurs lors de la fermeture d'access et de virer le plantage lors du second clique sur le même bouton ( pour la création d'un formulaire)

Merci

**Alexandre Sahli** · 10/12/2008, 08h10

bonjour,

un petit coup de gueule:

Tu pourrais mettre résolu afin que personne ne se casse la tête pour te trouver des solutions.
D'autre part si c'est juste pour lancer un ballon d'essai sans être vraiment intéressé par la solution il te faut passer ton chemin et surtout ne pas utiliser un forum tel que celui-ci ou bon nombre de personnes travaille bénévolement pour aider les personnes qui ont vraiment des problèmes.

bonne chance tout de même dans ton travail

**antoine974** · 10/12/2008, 15h51

mon problème n'est pas résolu
l'enregistrement ne se fait pas certes mais il me sort des erreurs

Pour moi le problème n'est pas Résolu tant qu'il y aura ces erreurs.

Antoine

[A-07] Empecher Access de faire un enregistrements

VBA Access

Discussions similaires

Partager

Partager