Affichage listbox via access
Bonjour
Module1 : il foctionne la connexion reussit
Public Sub ConnexionAccess()
Dim cheminAcces As String
' Chemin complet de la base Access
cheminAcces = bureau & "\superette2025\superette2025.accdb"
' Création de l'objet ADODB.Connection
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & cheminAcces & ";Jet OLEDB:Database Password=;"
' Ouverture de la connexion
On Error GoTo ErreurConnexion
MsgBox "Connexion réussie à la base de données.", vbInformation
Exit Sub
ErreurConnexion:
MsgBox "Erreur de connexion : " & Err.Description, vbCritical
End Sub
Function bureau() As String
With CreateObject("Shell.Application")
bureau = .Namespace(&H10&).Self.Path ' &H10 = Desktop folder
End With
End Function
txtcodebarre : il m affiche que txtprixvente et txtnomproduit reste txtquantite et listbox
Table Produit
ID_Produit 1
Nom_Produit Galette
Code_Barre 0101
Nature Consommé
Prix_Achat 1000
Prix_Vente 1500
Stock_Actuel 1000
Seui_Minimum 100
Date_Achat 01/01/2025
Table Vente
ID_Vente 1
Date_Vente 01/01/2025
Nom_Client Nabil
Code_Client 1
Total_Vente 1500
Ancien_Credit 0
Versement 2000
Mode_Paiement cash
Rendu 500
Table Vente_Detail
ID_Detail 1
ID_Vente 1
ID_Produit 1
Prix_Unitaire 1500
COmposangs usfnouvellevente
lstnouvellevente listbox
Txtcodebarre txt
Txtquantite txt
Txtprixvente txt
Lstnouvellevente listbox
Merci
Bonjour,
pour nous communiquer un bout de code utilises l'outil
De plus tu dis
Module1 : il foctionne la connexion reussit
alors qu'attends tu de nous ?
Bonjour quel outil s il vous plait
J ai probleme avec mon code
Module1 : connexion reussite
Public Sub ConnexionAccess()
Dim cheminAcces As String
' Chemin complet de la base Access
cheminAcces = bureau & "\superette2025\superette2025.accdb"
' Création de l'objet ADODB.Connection
' Ouverture de la connexion
On Error GoTo ErreurConnexion
MsgBox "Connexion réussie à la base de données.", vbInformation
Exit Sub
ErreurConnexion:
MsgBox "Erreur de connexion : " & Err.Description, vbCritical
End Sub
Function bureau() As String
With CreateObject("Shell.Application")
bureau = .Namespace(&H10&).Self.Path ' &H10 = Desktop folder
End With
End Function
txtcodebarre : il m affiche que txtprixvente et txtnomproduit reste txtquantite et listbox1
S il vojs pnait je suis perdu
J ai besoin d un code de txtcodebarre quand je saisi le code il mafficje les donnees de ma table qui est produit.
Table Produit
ID_Produit 1
Nom_Produit Galette
Code_Barre 0101
Nature Consommé
Prix_Achat 1000
Prix_Vente 1500
Stock_Actuel 1000
Seui_Minimum 100
Date_Achat 01/01/2025
Table Vente
ID_Vente 1
Date_Vente 01/01/2025
Nom_Client Nabil
Code_Client 1
Total_Vente 1500
Ancien_Credit 0
Versement 2000
Mode_Paiement cash
Rendu 500
Table Vente_Detail
ID_Detail 1
ID_Vente 1
ID_Produit 1
Prix_Unitaire 1500
Bonjour
Même sujet que dans votre demande ici --> https://forum.excel-pratique.com/excel/connexion-entre-vba-excel-et-acces-199775
Merci de rester sur votre fil d'origine. Celui-ci est verrouillé.
Comme déjà fait remarqué par Jacky dans un post précédent,p our poster vos codes, utilisez l'outil en cliquant sur l'icone </> disponible dans la barre de menu. C'est plus lisible pour celui qui vous répond.
A+