Discussion :

[Daniel MOREAU]

Bonjour à tous,

Je reviens vers vous pour un problème que j'avais déja soumis.

En consultant les cours et tutoriels, j'ai trouvé cette solution pour vérifier l'existance de code client de deux tables différentes (Clients et prospects) puis centralisé dans une table et ainsi éviter la création de doublons.

Voici le code :

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 Code_Client_AfterUpdate()
Dim mabase As Database, VerifClient As Object, Client As String
Set mabase = CodeDb
Set VerifClient = mabase.OpenRecordset("Tbl_CodeClientProspects", dbOpenTable)
Client = Me.Code_Client
VerifClient.Index = "Code_Client"
VerifClient.Seek "=", Client
If VerifClient.NoMatch = False Then
MsgBox "Ce code existe déjà. Impossible d'utiliser ce code client !!!"
DoCmd.Close
Else
End If
End Sub

Je voulais savoir si cette solution était bonne dans le mesure où je souhaiterai mettre ma base en réseau (multi-utilisateurs)

Merci pour vos réponses.

Daniel

[Tofalu]

Non, car comme je l'ai indiqué dans un autre post, db_open_table n'est pas compatible avec les tables liées. Dans ce cas, la méthode Seek sera impossible.

Toutefois le code sera :

Private Sub Code_Client_AfterUpdate()
Dim oRst As DAO.Recordset
Dim strSQL As String
'Crée la chaine SQL correspondant à la recherche du client
strSQL = "SELECT Code_Client From Tbl_CodeClientProspects WHERE Code_Client =" & Code_Client
'Ouvre le recordset
Set oRst = CurrentDb.OpenRecordset(strSQL)
'Si le recordset n'est pas vide
'cela signifie que le client existe déjà
If Not oRst.EOF Then
'Dans ce cas, on avertit et on ferme
MsgBox "Ce code existe déjà. Impossible d'utiliser ce code client !!!"
DoCmd.Close
End If
End Sub

[Daniel MOREAU]

Merci TOFALU,

Merci pour ta réponse.

Je reconnais que tu me l'avais déjà dis, mais c'est encore très confu pour moi. Je fais des efforts.

Merci pour ta réponse.

Daniel