Discussion :

[Pitou5464]

Salut à tous,

Je voudrais savoir comment lors d'une saisie d'un nouvel enregistrement, comment verifier lors de la saisie d'une zone de texte spécifique, comment lui faire recherche la valeur dans le recordset.

Merci pour votre aide.

[Moha25fr]

avant mise à jour tu testes la valeur saisie

Code :

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

1
2
3
4
5
6
if Dcount("monchamps","matable","[monchamps]=" & Me.[nomdemonchamps])>0 then
 
msgbox "Ma valeur existe déjà"
cancel=true
end if
","

Ps:
Sinon tu mets une clé

A+

[Mahefasoa]

Salut à tous,

Je voudrais savoir comment lors d'une saisie d'un nouvel enregistrement, comment verifier lors de la saisie d'une zone de texte spécifique, comment lui faire recherche la valeur dans le recordset.

Merci pour votre aide.

Salut,
Place dans une variable le contenu de la zone de texte. Fais attention quand même de ne pas confondre Me.ZoneDeTexte.Text et Me.ZoneDeTexte.Value.

Ensuite, faire une recherche dans un recordset à l'aide de la variable.

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
 
Dim Var 'la variable contenant l'info à chercher
Dim Rs as DAO.Recordset
Set RS=CurrentDb.OpendRecordSet("Nom table ou instruction SQL",dbOpendynaset)
With RS
   If .RecordCount<>0 Then
      .FindFirst "Champ opérateur " & Var
      If .NoMatch Then
      'Introuvable
      Else
      'Une occurence est retrouvée
      End If
   Else
   'Aucun enregistrement
   End If
End With
Set RS=nothing

C'est une méthode parmi tant d'autres car il y a un moyen plus simple en utilisant les fonctions de regroupement de domaine DLookUp ou DCount.

[Pitou5464]

Mahefasoa, dans ton code, il me dit qu'il ne reconnait pas la variable en tant que nom de champ ou expression correcte.

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
Dim Var As String
Dim db As DAO.database
Dim Rs As DAO.Recordset
Set db = CurrentDb
Set Rs = db.OpenRecordset("T_Abonne", dbOpenDynaset)
Var = Me.DIR_NOM.Value
With Rs
   If .RecordCount <> 0 Then
      .FindFirst "[DIR_NOM] = " & Var
      If .NoMatch Then
      MsgBox ("Introuvable"), vbOKOnly
      Else
      MsgBox ("Trouvé"), vbOKOnly
      End If
   Else
   'Aucun enregistrement
   End If
End With
Set Rs = Nothing

[Pitou5464]

J'avais oublier les guillemets

Code :

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

Rs.FindFirst "[DIR_NOM] = '" & Me.DIR_NOM.Value & "'"

Mercip our votre aide