alvinemambele
Messages postés72Date d'inscriptionmardi 27 mai 2008StatutMembreDernière intervention31 mai 2013
-
14 janv. 2013 à 16:40
alvinemambele
Messages postés72Date d'inscriptionmardi 27 mai 2008StatutMembreDernière intervention31 mai 2013
-
15 janv. 2013 à 15:40
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!
alvinemambele
Messages postés72Date d'inscriptionmardi 27 mai 2008StatutMembreDernière intervention31 mai 201315 15 janv. 2013 à 15:40
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!