Sujet Précédent Sujet Suivant

[VBA ACCESS] Commande DoCmd.OpenReport

Fermé
ribery_7_91 Messages postés 233 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 4 septembre 2010 - 30 juil. 2008 à 11:06
Towers Messages postés 37 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 10 mai 2012 - 30 juil. 2008 à 14:31
Bonjour a tous

Je vous demande votre aide car j'ai un probléme avec ma commande DoCmd.OpenReport et étant donné que je suis novice sous VBA je n'arrive pas a resoudre ce probléme. Je vous met mon code comprenant la ligne en question :

Private Sub rechercher_Click()
Dim Nom As String
Nom = "Facture_Prest_Contenant"

DoCmd.OpenReport "Nom", acViewPreview

End Sub

5 réponses

Réponse 1 / 5
ribery_7_91 Messages postés 233 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 4 septembre 2010 16
30 juil. 2008 à 11:07
desole

je precise que je suis sous access 2003 et que précédemment cette commande marchait sous access 1997
0
Koozag Messages postés 391 Date d'inscription jeudi 3 juillet 2008 Statut Membre Dernière intervention 31 janvier 2013 50
30 juil. 2008 à 11:09
J'ouvre moi aussi des Etat, mais c'est ce code la que j'utilise
DoCmd.OpenReport "NOM DE TON ETAT", acPreview

En fait j'enlève le "view" essai sa devrait marcher, car sa marche sous 2003 avec moi ;-)
0
Réponse 2 / 5
Towers Messages postés 37 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 10 mai 2012 3
30 juil. 2008 à 11:13
Moi sous access 2003 ça marche bien :
DoCmd.OpenReport "etaCreationManuelle", acViewPreview


C'est quoi ton message d'erreur ribery ?
0
Réponse 3 / 5
Towers Messages postés 37 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 10 mai 2012 3
30 juil. 2008 à 11:14
Non mais bien sûr, c'est trop évident qu' personne ne peut le voir : enlève les parenthèses autour de la variable "Nom"
0
Koozag Messages postés 391 Date d'inscription jeudi 3 juillet 2008 Statut Membre Dernière intervention 31 janvier 2013 50
30 juil. 2008 à 11:23
Il a pas de parenthèses o_o
0
Réponse 4 / 5
ribery_7_91 Messages postés 233 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 4 septembre 2010 16
30 juil. 2008 à 11:23
Oui c'est bon je te remercie
Par contre j'aurais besoin d'autres aide donc est ce que je peux te demander en MP par ce que le sujet du message ne sera plus bon ou alors je continu la et c'est pas grave pour le nom du sujet
tu préféres quoi?
0
Towers Messages postés 37 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 10 mai 2012 3
30 juil. 2008 à 11:26
Vas-y sur le forum, c'est fait pour et comme ça tout le monde pourra répondre.
Par contre tu devrait cliquer sur "Résolu" sur ton post, et peut-être en commencer un autre (enfin j'pense)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
ribery_7_91 Messages postés 233 Date d'inscription jeudi 22 novembre 2007 Statut Membre Dernière intervention 4 septembre 2010 16
30 juil. 2008 à 11:30
bon je continu la on verra bien
j'ai d'autres soucis dans mes bases de données sous access

voila un autre code :

ublic Function AddrOf&(strFuncName$)

Dim hProject&, lResult&, lpfn&
Dim strID$, strFuncNameUnicode$

Const NO_ERROR = 0
AddrOf = 0

' Konvert strFuncName Unicode
strFuncNameUnicode = StrConv(strFuncName, vbUnicode)

' Handle des VBA - Moduls holen

Call GetCurrentVbaProject(hProject)

If hProject <> 0 Then
' FunktionsID der VBA-Funktion ermitteln
lResult = GetFuncID(hProject, strFuncNameUnicode, strID)
If lResult = NO_ERROR Then
' Adresse des FunktionsID holen
lResult = GetAddr(hProject, strID, lpfn)
If lResult = NO_ERROR Then: AddrOf = lpfn
End If
End If
End Function

La commande en gras bug. le débugueur me la met en jaune
Je suis sous acces 2003 et cela marchait sous access 1997

Merci
0
Towers Messages postés 37 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 10 mai 2012 3
30 juil. 2008 à 14:31
Re- ,

à mon avis la version 2003 c'est plutot : 
hProject = str = CurrentProject.Name
0