Interface VB et Etats Access

Le
RENAUD Eric
Bonjour,

J'ai une petite application à réaliser et compte tenu de mes connaissances,
je ne sais pas si depuis VB6 on peut attaquer un Etat Access et l'imprimer.
Je préférerai faire ce programme tout en VB6 en m'appuyant sur Access et non
uniquement sous Access à cause de cet Etat.
La finalité est de créer un Etat Access pour imprimer des badges de
visiteurs et VB6
n'est pas le meilleur outil pour faire cela.
D'avance merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel AUBRY
Le #15414161
Bonjour,

Public Sub ImprimerEtatAccess(NomEtat As String)
Dim AppAccess As Access.Application
Dim NomBase As String
Dim NomEtat As String
On Error GoTo gerr

'Position de la base de donnée
Set AppAccess = New Access.Application

'Ouverture de la base par Microsoft Access.
AppAccess.OpenCurrentDatabase NomBase

AppAccess.DoCmd.OpenReport NomEtat, , , GvarIdDemande
AppAccess.CloseCurrentDatabase

Set AppAccess = Nothing

Exit Sub

gerr:
Select Case Err.Number
Case 0
Case 2501
Resume Next
Case Else
MsgBox "Erreur non gérée " & vbCrLf & Err.Number & " " &
Err.Description
End Select

End Sub

Dany


"RENAUD Eric" %
Bonjour,

J'ai une petite application à réaliser et compte tenu de mes
connaissances,
je ne sais pas si depuis VB6 on peut attaquer un Etat Access et
l'imprimer.
Je préférerai faire ce programme tout en VB6 en m'appuyant sur Access et
non
uniquement sous Access à cause de cet Etat.
La finalité est de créer un Etat Access pour imprimer des badges de
visiteurs et VB6
n'est pas le meilleur outil pour faire cela.
D'avance merci



RENAUD Eric
Le #15414131
Merci pour l'aide.
Petie question :
Ca correspond à quoi GvarIdDemande ?
Est-ce mis pour la variable clause WHERE de l'OpenReport ?



Daniel AUBRY a écrit :
Bonjour,

Public Sub ImprimerEtatAccess(NomEtat As String)
Dim AppAccess As Access.Application
Dim NomBase As String
Dim NomEtat As String
On Error GoTo gerr

'Position de la base de donnée
Set AppAccess = New Access.Application

'Ouverture de la base par Microsoft Access.
AppAccess.OpenCurrentDatabase NomBase

AppAccess.DoCmd.OpenReport NomEtat, , , GvarIdDemande
AppAccess.CloseCurrentDatabase

Set AppAccess = Nothing

Exit Sub

gerr:
Select Case Err.Number
Case 0
Case 2501
Resume Next
Case Else
MsgBox "Erreur non gérée " & vbCrLf & Err.Number & " " &
Err.Description
End Select

End Sub

Dany


"RENAUD Eric" %
Bonjour,

J'ai une petite application à réaliser et compte tenu de mes
connaissances,
je ne sais pas si depuis VB6 on peut attaquer un Etat Access et
l'imprimer.
Je préférerai faire ce programme tout en VB6 en m'appuyant sur Access et
non
uniquement sous Access à cause de cet Etat.
La finalité est de créer un Etat Access pour imprimer des badges de
visiteurs et VB6
n'est pas le meilleur outil pour faire cela.
D'avance merci







Publicité
Poster une réponse
Anonyme