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:

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
merci de votre patience avec moi