Discussion :

[Misha]

Bonjour,

comme l'indique le titre de ce topic, j'ai ma base de donnée qui s'ouvre avec l'éditeur de code Visual Basic or je ne veux pas que ça s'affiche.

Je m'explique :
Au lancement de mon projet, j'ai la fenêtre de menu qui s'ouvre ainsi qu'un état m'affichant la liste des clients dont la date de relance est celui du jour.

C'est donc lors du chargement du menu que je demande l'affichage de cet état mais Access s'ouvre avec l'éditeur de code et se positionne sur la première ligne de code qui me permet justement d'afficher l'état.

J'aimerais donc savoir si mon code est erroné ou pas (enfin il me semble pas) ou s'il y a une option qui me permettrai de ne pas avoir ce genre de problème.

Voici le code :

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
 
Private Sub Form_Load()
 
    Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
 
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset("Droit_Admin")
 
    G_Administrateur = oRst.Fields("Administrateur")
    G_IDCommercial = oRst.Fields("IDCommercial")    'Numéro auto
    G_Commercial = oRst.Fields("CodeCommercial")     'Code interne Walter Meier
 
    oRst.Close
    Set oRst = Nothing
    Set oDb = Nothing
 
    If F_Administrateur = True Then
        cmd_Admin.Visible = True
        etiq_Admin.Visible = True
    Else
        cmd_Admin.Visible = False
        etiq_Admin.Visible = False
    End If
 
    Dim strDateRelance, strTitreReport As String
    strDateRelance = "Cont_DateRelance = #" & Date & "#"
    strTitreReport = "LISTE DES RELANCES AU " & Date
    DoCmd.OpenReport "Liste_Contacts_Relance", acViewPreview, , strDateRelance, acWindowNormal, strTitreReport
 
 
End Sub

et c'est sur cette ligne que ça pointe.

Code :

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

    strDateRelance = "Cont_DateRelance = #" & Date & "#"

Par contre, si je lance le formulaire alors que Access est déja ouvert, aucun soucis de ce coté. Je ne comprend pas.


Aidez moi SVP. Même juste une indice.

Merci d'avance

PS : Je suis sous Access 2003.

[Misha]

hahaha ...
Betise de ma part quand meme. J'ai placé le chargement de l'état dans le chargement du formulaire au lieu de la mettre dans l'ouverture

Donc voila, c'est résolu pour moi

[ullgom]

Bonjour, je pense que le soucis ne viens pas de ton code, mais tout simplement de ta base access, il faut que tu fasses une décompilation de ton fichier, si c'est pas suffisant, tu le recompile et tu le compacte/répare.

Décompilation : Ouvrir la base de données avec l'argument suivant :

"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" "C:\Mes Documents\bd1.mdb" /decompile

Compilation : Dans l'éditeur VBA : Debug > Compiler
Compacter/Réparer : Outils > Utilitaire de base de données > Compacter et réparer

Tu peux avoir plus d'infos ici > http://loufab.developpez.com/raccourci/