Bonjour a tous le but de ce code est d'optenir le nombre en stocke de divers pièces, lorsque l'on click sur ListCarteMere un message doit renvoyer le nombre de carte en stocke. Si quelqu'un savait y jetté un oeil ca m'aiderait fortement.
Merci d'avance a tout les lecteurs du code.
Bye Ju
Option Explicit
Dim strLabel As String
Dim Recherche As String
Dim intNbEnStocke As Integer
Private Sub ListCarteMere_Click()
Recherche = ListCarteMere.List(ListCarteMere.ListIndex)
intNbEnStocke = strNbEnStocke("select * from tblCarteMere where fldNom = " & Recherche & " order by fldNom ")
MsgBox intNbEnStocke
End Sub
Private Function strNbEnStocke(SQL As String) As String
Dim oADOStocke As ADODB.Connection
Dim oRSStocke As ADODB.Recordset
Set oADOStocke = New ADODB.Connection
With oADOStocke
.Provider = "Microsoft.jet.oledb.4.0"
.Mode = adModeShareDenyNone
.ConnectionString = "E:\Qualification 2007\Fraipont\VB Fraipont Qualif Pc Mag\MagPc.mdb"
.Open
End With
Set oRSStocke = New ADODB.Recordset
With oRSStocke
.CursorLocation = adUseClient
.Open SQL, oADOStocke, adOpenStatic, adLockOptimistic
.Properties.Refresh
Do While Not .EOF
strNbEnStocke = .Fields("fldNbStocke").Value
Loop
.Close
End With
oADOStocke.Close
Set oRSStocke = Nothing
Set oADOStocke = Nothing
End Function