Discussion :

[fourniey]

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.

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

Avec ce code, lorsque 'j'écris SPSS, Access plante à tout coup... Microsoft a cessé de fonctionné.

Je ne sais plus.

[marot_r]

Bonjour.

Essaye :

Code :

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

rs.FindFirst "[description] like *" & Str(Nz(Me![txt_rech], 0)) & "*"

Ta description est-elle numérique pour que par défaut tu mettes 0 ?

Et attention avec NZ(), il m'est arrivé qu'il fasse sauter la partie décimale des nombres.

A+

[fourniey]

Description est un champs texte.

[fourniey]

J'ai toujours cette situation : Access a cessé de fonctionner

Pourtant, Access généralement va très bien.

[marot_r]

Pour le champ texte on peut faire plus simple :

Code :

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

rs.FindFirst "[description] like *" & Me![txt_rech] &  "*"

J'ai toujours cette situation : Access a cessé de fonctionner

Est-ce que c'est suite aux modif ?

A+

[fourniey]

Non, Access plante même avec ce changement.

Ne plante par ailleurs.