Ouvrir un Etat Acess avec vb6 par condition [Résolu]

Signaler
Messages postés
72
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
31 mai 2013
-
Messages postés
72
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
31 mai 2013
-
slt mes amis!
veuillez m'excuser si j'ai mal choisis le thème...

je suis entrain de faire une application de gestion de stock en VB6 et mes États de rapport sont en Access, alors j'ai un problème avec l'ouverture des États.

si je lance mon état sans condition sa s'ouvre bien, mais avec condition sa s'ouvre vide. sans aucune données.

j'ai vraiment besoin de votre aide

voici le mon code :

Str = "SELECT * FROM Historique" 'ouverture de la table historique
RecordRecup.Open Str, Cnx, adOpenForwardOnly, adLockOptimistic 'Execution de la Requette
    RecordRecup.AddNew
    RecordRecup!Utilisateur = UserId
    RecordRecup!Operation = "Consultation de rapport des entrées"
    RecordRecup!Qte = 0
    RecordRecup!DateHist = Date
    RecordRecup.Update
    RecordRecup.Close
    'On Error Resume Next
    Dim AppAccess As Access.Application
    Dim dbstr As String
    
    Set AppAccess = New Access.Application
    Set AppAccess = CreateObject("Access.Application")
    dbstr = MyBddPath & "\GestionDeStock.mdb"
    AppAccess.OpenCurrentDatabase dbstr
    AppAccess.DoCmd.OpenReport "Rapport des Entrees", acViewPreview  ' acViewReport
    AppAccess.Visible = True


Un orateur trop long est comme une horloge qui sonne les minutes!

1 réponse

Messages postés
72
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
31 mai 2013
14
j'ai trouvé de moi-même la solution à force des essaies!

        'On Error Resume Next
        Dim AppAccess As Access.Application
        Dim dbstr As String
        
        Set AppAccess = New Access.Application
        Set AppAccess = CreateObject("Access.Application")
        AppAccess.Visible = True
        
        dbstr = MyBddPath & "\GestionDeStock.mdb"
        AppAccess.OpenCurrentDatabase dbstr
        AppAccess.DoCmd.OpenReport "Etat_Historique", acViewPreview, , "Qte=800"




Un orateur trop long est comme une horloge qui sonne les minutes!