Bonjour à tous
Comme on m'a proposé ici, j'ai fais un lien au dossier des images.
Tout se passe bien sauf un problème que je viens de remarquer pour l'instant.
Dans ma base de données, il y'a des noms avec leurs photos et d'autre non.
Par exemple 'x' a une photo mais 'y' non.
Quand je fais appel a 'x' à l'aide du bouton cmd_recherche, sa photo apparrait dans image.picture et c'est normal parce que j'ai ajouté son image lors de son enregistrement. Mais ce qui anormal est que lorsque je cherche 'y' l'image de 'x' apparait dans image-picture mème si on l'a pas enregistré une image.
Cependant si je commence la recherche par 'y' tout se passe bien.
le code de recherche dont je me sert est ceci:
merci de votre patience avec moi
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33 If Text1.Text = "" Then MsgBox "Veuiller saisir un nom à rechercher", vbInformation + _ vbMsgBoxRtlReading + vbOKOnly, "Attention" End If If Text1.Text <> "" Then If IsNumeric(Text1) = False Then Set RS = New ADODB.Recordset RS.Open "select * from table1 where nom like '%" & Text1.Text & "%' And prenom like '%" & Text2.Text & "%'", DB, adOpenStatic, adLockOptimistic If RS.RecordCount > 0 Then End If Text1.Text = RS!Nom Text2.Text = RS!Prenom Text3.Text = RS!age Text4.Text = RS!date Text5.Text = RS!tel Text6.Text = RS!plan Text7.Text = RS!obs Text8.Text = RS!type_trait Text9.Text = RS!image Text10.Text = RS!photo_type Text11.Text = RS!photo_source Else MsgBox "Aucune fiche avec ce nom", vbInformation + _ vbMsgBoxRtlReading + vbOKOnly, "Attention" End If Text1.SetFocus End If End If
Partager