كود الصنف

[mahmoud nasr alhasany]

Private Sub CB_Pièce_Change()
'   On Error Resume Next
   ComboBox2.Clear: Quantitetr = ""
   catetr = "": Desitr = "": reftr = "": stocktr = "": unitr = "": seuil = ""
   With ComboBox1
      .Clear
      If CB_Pièce = "Code article" Then
         .AddItem "Magasin": .ListIndex = 0: Exit Sub
      End If
      Dim i&
      'For i = UBound(arrPart, 2) To LBound(arrPart, 2) Step -1
      For i = 1 To UBound(TblInv)
         If TblInv(i, 1) = CB_Pièce Then
            .AddItem TblInv(i, 12)   'crée la liste magasin Provenance
            'écrit les infos des 5 labels (seulement s'ils sont vides)
            If catetr = "" Then catetr = TblInv(i, 2)    'Catégorie
            If Desitr = "" Then Desitr = TblInv(i, 6)    'Désignation
            If reftr = "" Then reftr = TblInv(i, 7)      'Référence
            If stocktr = "" Then stocktr = TblInv(i, 4)  'Stock Provenance
            If unitr = "" Then unitr = TblInv(i, 8)      'Unité
            If seuil = "" Then seuil = TblInv(i, 5)      'seuil
            If Me.TextBox_Stock_Initial = "" Then Me.TextBox_Stock_Initial = TblInv(i, 3)  ' stockinitial
         End If
      Next i
      .ListIndex = 0
      
   End With
End Sub

السلام عليكم ورحمة الله وبركاتة

هل يمكنكم المساعدة

عند اختار كود الصنف E124

تتم العملية ولاكن عند اختيار كود الصنف فى الكمبوبوكس 127 يحدث خطاء

فماالمشكلة رجاء المساعدة

تحويلات بين المخازن2.xlsm

تم تعديل يناير 13, 2024 بواسطه mahmoud nasr alhasany

[mahmoud nasr alhasany]

[محمد هشام.]

قم باستبدال 

  If TblInv(i, 1) = CB_Pièce Then

الى 

   If TblInv(i, 1) = CB_Pièce.Text Then

 

[mahmoud nasr alhasany]

شكرا جزيلا ا/ محمد هشام