Microsoft 365 connexion ado vers access office 2024 64 bits

[nabilexcel2007]

bonsoir je suis perdu
j ai mis ce code dans le module
Option Explicit

Public cn As Object

Public Sub ConnexionAccess()
Dim cheminAcces As String

' Chemin complet de la base Access
cheminAcces = Environ("USERPROFILE") & "\C:\Users\kaid\Desktop\superette2025\superette2025.accdb"

' Création de l'objet ADODB.Connection
Set cn = CreateObject("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

connexion reussi vers access mais quand je met le code sur textbox codebarre pour qu'il m affiche les donnees de ma table access
msg erreur rs.Open sql, cn, adOpenStatic, adLockReadOnly

Private Sub TxtCodeBarre_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim sql As String
Dim rs As ADODB.Recordset

If Trim(TxTCodeBarre.Text) = "" Then Exit Sub

sql = "SELECT * FROM Produit WHERE Code_Barre='" & TxTCodeBarre.Text & "'"

Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenStatic, adLockReadOnly

If Not rs.EOF Then
TxTNomProduit.Text = rs!Nom_Produit
TxTPrixVente.Text = rs!Prix_Vente
TxTQuantite.Text = "1"

With LstNouvelleVente
.AddItem rs!Code_Barre
.List(.ListCount - 1, 1) = rs!Nom_Produit
.List(.ListCount - 1, 2) = rs!Prix_Vente
.List(.ListCount - 1, 3) = TxTQuantite.Text
End With
Else
MsgBox "Produit introuvable", vbExclamation
End If

rs.Close
Set rs = Nothing
End Sub
Merci

 

[dysorthographie]

Bonsoir,

Option Explicit

Public Cn As Object
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
Sql = "SELECT * FROM Produit WHERE Code_Barre='" & TxTCodeBarre.Text & "'"
With Cn.execut(Sql)
    If Not .EOF Then
        TxTNomProduit.Text = "" & !Nom_Produit
        TxTPrixVente.Text = "" & !Prix_Vente
        TxtQuantite.Text = "1"
           
    LstNouvelleVente.AddItem  "" & !Code_Barre
    LstNouvelleVente.List(LstNouvelleVente.ListCount - 1, 1) = "" & !Nom_Produit
    LstNouvelleVente.List(LstNouvelleVente.ListCount - 1, 2) = "" & !Prix_Vente
    LstNouvelleVente.List(LstNouvelleVente.ListCount - 1, 3) = TxtQuantite.Text
End With
       
    Else
    MsgBox "Produit introuvable", vbExclamation
    End If
    .Close
End With
with
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

 

[nabilexcel2007]

Bonjour
svp j'ai beaucoup de redondances de connexion dans mes code la connexion marche très bien avec mes table Access si vous pouvez bien me nettoyer ça Merci
table access
produit
vente
vente_detail

 

[wDog66]

Salut

svp j'ai beaucoup de redondances de connexion dans mes code la connexion marche très bien avec mes table Access si vous pouvez bien me nettoyer ça Merci

Je vois un fichier nommé Superette2025... tu t'es cru dedans... tu fais tes courses... c'est cà 🤔 🤭 🤣