*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 :
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.
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
merci de m'aider sur ce probleme.
Partager