[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
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 ?
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 ;-)