[VBA ACCESS] Commande DoCmd.OpenReport

Question

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

ribery_7_91 · Answer

desole

je precise que je suis sous access 2003 et que précédemment cette commande marchait sous access 1997

Towers · Answer

Moi sous access 2003 ça marche bien :DoCmd.OpenReport "etaCreationManuelle", acViewPreview

C'est quoi ton message d'erreur ribery ?

Towers · Answer

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"

ribery_7_91 · Answer

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?

ribery_7_91 · Answer

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

[VBA ACCESS] Commande DoCmd.OpenReport

5 réponses

Newsletters