Posez votre question Signaler

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

Messages postés
73
Date d'inscription
mardi 27 mai 2008
Dernière intervention
31 mai 2013
 - - Dernière réponse : alvinemambele
Messages postés
73
Date d'inscription
mardi 27 mai 2008
Dernière intervention
31 mai 2013
 - 15 janv. 2013 à 15:40
Visual Basic 6 Posez votre question Signaler
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!
Afficher la suite 

Votre réponse

Répondre au sujet

1 réponse

Meilleure réponse
Signaler Commenter la réponse de alvinemambele
Messages postés
73
Date d'inscription
mardi 27 mai 2008
Dernière intervention
31 mai 2013
 1
3
Merci
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!

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 121 internautes nous ont dit merci ce mois-ci

Commenter la réponse de alvinemambele

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.