Bonjour,
Dans une zone de texte, je veux que l'usager puisse inscrire un mot et qu'en pesant sur Enter, Access cherche le mot dans le champs 'Description' peu importe où il est dans ce champs.
Avec ce code, lorsque 'j'écris SPSS, Access plante à tout coup... Microsoft a cessé de fonctionné.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub txt_rech_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone MsgBox (txt_rech) rs.FindFirst "[description] = " & Str(Nz(Me![txt_rech], 0)) DoCmd.GoToControl "Nom" If Not rs.EOF Then Me.Bookmark = rs.Bookmark Else MsgBox "Enregistrement non trouvé" End If rs.Close End Sub
Je ne sais plus.
Partager