[VBA ACCESS] Commande DoCmd.OpenReport
ribery_7_91
Messages postés
240
Statut
Membre
-
Towers Messages postés 38 Statut Membre -
Towers Messages postés 38 Statut Membre -
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
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
Configuration: Windows XP Internet Explorer 6.0
5 réponses
-
desole
je precise que je suis sous access 2003 et que précédemment cette commande marchait sous access 1997 -
Moi sous access 2003 ça marche bien :
DoCmd.OpenReport "etaCreationManuelle", acViewPreview
C'est quoi ton message d'erreur ribery ? -
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"
-
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? -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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
