[VBA ACCESS] Commande DoCmd.OpenReport
ribery_7_91
Messages postés
234
Date d'inscription
Statut
Membre
Dernière intervention
-
Towers Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
Towers Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
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
5 réponses
desole
je precise que je suis sous access 2003 et que précédemment cette commande marchait sous access 1997
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 :
C'est quoi ton message d'erreur ribery ?
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?
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
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
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 ;-)