boite dialogue et code

**bertoli** · 25/11/2005, 16h43

Bonjour

Je travail sous acces 2000 et suis novice (très peu de connaissance en VBA)

J'ai créé une boîte de dialogue qui après avoir rempli des champs date début
et date fin puis clique sur un bouton Ok doit lancer une requête et ensuite
un état
Tout va pour le mieux jusqu'ici

Cependant avant l'excution de la requête je souhaiterais controlé si une
table existe dans la base de données et si oui arreter l'ensemble de la
procédure

Puis pour l'état si son contenu est vide en informer l'utilisateur

J'ai bien essayé les différentes formules proposées sur les sites d'aide
accès mais cela ne fonctionne pas sans doute à cause de l'environnement que j
ai défini

En exemple, je vous joint le contenu du module de ma boite de dialogue

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
--------
Option Compare Database
Option Explicit
---------------------------------------------------------
Private Sub Annuler_Click()
' Ce code est créé par l'Assistant Bouton de commande.
On Error GoTo Err_Annuler_Click
' Ferme le formulaire.
DoCmd.Close
Quitte_Annuler_Click:
Exit Sub
Err_Annuler_Click:
MsgBox err.Description
Resume Quitte_Annuler_Click
End Sub
---------------------------------------------------------
Private Sub OK_Click()
'Objet valider la saisie des paramètres et lancer la (les) procédure(s).
Me.Visible = False
 
 
'Avant de lancer cette requête je souhaiterais tester si une 
table existe
' si nom message et arret du traitement
' si oui le traitement continue
 
DoCmd.DeleteObject acTable, "Tzposition_n03"
DoCmd.OpenQuery "Rposition_n03"
 
 
Dim stDocName As String
stDocName = "Position_n03"
DoCmd.OpenReport stDocName, acViewPreview
 
'Si l'etat est vide àlors pas d'affichage retour au 
formulaire boite de dialogue
 
DoCmd.Close acForm, "Bd_rposition_n03", acSaveYes
End Sub
---------------------------------------------------------

balises code indispensables, merci | cafeine

**Gdal** · 25/11/2005, 17h58

Bonjour,

Tu as plusieurs possibilités:

1 - Une petite recherche sur le forum
> Forum <

2 - Une petite recherche dans le FAQ
> F.A.Q. <

Comment tester l'existence d'une table avec ADO ?
Comment supprimer une table avec ADO ?

Comment annuler l'ouverture d'un état ?
Comment annuler l'ouverture ou l'impression d'un état qui ne contient aucun enregistrement ? [Nouveau]

3 - Une petite recherche dans cette page
> Tutoriel <

Ecrit un peu de code et montre nous...

Voilà...

Gwendal

C'est le deuxième message auquel je répond ce soir en trouvant les réponses dans le FAQ... Ils sont fort chez Developpez.com ... Encore merci ...

**bertoli** · 27/11/2005, 18h33

Bonsoir

J’ai bien vu les exemples dans les tutoriels ou les différentes FAQ mais ce que je ne comprends pas, c’est comment à partir d’un bouton se trouvant dans un formulaire, je lance une événement commençant par :

Private Sub Bouton1_Click()

Alors que pour tester l’existence d’une table, l’exemple montre que l’événement commence par :

Function ExisteTable(NomTable As String) As Boolean

Quelle est donc la méthode pour imbriquer ces différents événements ?

Merci

**User** · 27/11/2005, 18h56

déclaration de la fonction à ajouter dans un module

Code :

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

1
2
3
Function ExisteTable(NomTable As String) As Boolean 
...
End function

sur le bouton OK sur ton formulaire et sur click:

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
Private Sub OK_Click() 
'Objet valider la saisie des paramètres et lancer la (les) procédure(s). 
Me.Visible = False 
 
'Avant de lancer cette requête je souhaiterais tester si une 
table existe 
' si nom message et arret du traitement 
' si oui le traitement continue 
 
   if (ExisteTable("MaTable")) Then
   DoCmd.DeleteObject acTable, "Tzposition_n03" 
   DoCmd.OpenQuery "Rposition_n03" 
 
 
   Dim stDocName As String 
   stDocName = "Position_n03" 
   DoCmd.OpenReport stDocName, acViewPreview 
 
   'Si l'etat est vide àlors pas d'affichage retour au 
   formulaire boite de dialogue 
 
  Dim rs As DAO.Recordset
 
  Set rs = CurrentDb.OpenRecordset(Reports(stDocName).RecordSource, dbOpenSnapshot)
 
      If rs.eof Then    
      DoCmd.Close acForm, "Bd_rposition_n03", acSaveYes 
      End If
 
   Else
   MsgBox("La table n'existe pas !"
   End If
 
End Sub