Discussion :

[Marcopololo]

Bonjour,

Je veux vérifier que le code saisi dans un champ texte soit différent de celui de ma table de référence :

Voici mon code mais il ne fonctionne pas :

Code :

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

1
2
3
4
5
If Me.champtexte Like "[table].[champ]" Then
                        MsgBox "Code Client existant"
                        Exit Sub
                        Else
                End If

Merci d'avance

Marcopololo

[Marcopololo]

Bon,

J'ai trouvé un code de Tofalu que j'ai un peu adapté.
Si cela peut servie :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Rst As DAO.Recordset
                    Set Rst = CurrentDb.OpenRecordset("SELECT [Code Client] FROM clients WHERE [Code Client]=" & CodeN)
                    If Not Rst.EOF Then
                    MsgBox "le code existe déjà"
                    CodeClientNouveau.SetFocus
                    Exit Sub
                    Else
                    End If
                    Rst.Close
                    Set Rst = Nothing