bonjour tt le mende j'éspère ke vous allé m'aider sur ce probleme!! je vé etre bref
jé créer une base de données avec access pour faire une gestion de stock. jé 4 champs le nom du composant'reptop),la carte ou il se setue(carte), l'idantifiant, et le tiroir ..
mon probleme et ke jé des ncomposant samblables dans des cartes différentes (c0 se trouve dans les deux cartes) et kand je fé la recherche il m'affiche ke le premier composant enregistré dans la base de données.
voila le code
Private Sub Command1_Click()
Dim name As String
Dim prompt As String
Dim title As String
'Dim S As String
Dim y As String
prompt = "entrer le nom du composant "
title = "recherche"
y = InputBox(prompt, title)
If Len(y) = 0 Then
Exit Sub
Else
name = y
S = "reptop1='" + y + "'"
Data1.Recordset.FindFirst S
If Data1.Recordset.NoMatch Then
MsgBox "le nom n'existe pas "
Else
If List1 = "ambre" Then
Data1.RecordSource = "select[*ALL]from Table1 where carte=ambre and reptop=y"
Text1.Text = Data1.Recordset![reptop1]
Text2.Text = Data1.Recordset![identifiant]
Text3.Text = Data1.Recordset![carte]
Text4.Text = Data1.Recordset![tir1]
elseif List1 = "emeraude" Then
Data1.RecordSource = "select[*ALL]from Table1 where carte=emeraude and reptop=y"
Text1.Text = Data1.Recordset![reptop1]
Text2.Text = Data1.Recordset![identifiant]
Text3.Text = Data1.Recordset![carte]
Text4.Text = Data1.Recordset![tir1
Else
MsgBox "pas de chance"
End If
End If
End If
End Sub