Discussion :

[Domaine2000]

*Bonjour,*


j'ai cree une base de donnees dont les relations entre tables se presentent comme expliquees dans l'image.
j'ai ecrit un code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Option Compare Database
'BOUTON CHERCHER
Private Sub Chercher_Click()
    Dim ID_DOSSIER As Integer
    ID_DOSSIER = InputBox("Veuillez saisir ID_Dossier", "Recherche par ID_Dossier")
    If (IsNull(DLookup("ID_Dossier", "Dossiers", "cint(ID_Dossier)= '" & ID_DOSSIER & "'"))) Then
        MsgBox "le N Dossier ne figure pas", vbCritical, "Erreur"
    Else
        Me.Recordset.FindFirst "ID_Dossier = " & ID_DOSSIER
    End If
End Sub

pour rechercher u dossier a partir de son ID , mais je ne trouve que les dossiers pour lesquels tous les enregistrements ont et saisis. les autres dossiers, meme s'ils sont presents dans la tables Dossiers ils sont plus trouves.

merci de m'aider sur ce probleme.