Discussion :

[junty]

bonjour

comment faire pour comparer la textbox Nom au champs Nom de la table personne (a tous les enregistrements).

Le but étant de verifier si quand on ajoute une personne, le nom de cette derniere est deja dans la table.

merci.

[RGShoop]

Bonjour,

Normalement, il faut un bout de code mais j'ai également galéré alors voici ce que j'ai fait :

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
20
 
Dim Dbs as Database
Dim Rst as recordset
dim crit as String
 
set Dbs=currentDb
Set Rst=Dbs.openrecordset("Nom de ta table", dbopendynaset)
 
crit="[Ton champ de recherche sur la table]=" & chr(34) & me.Nom & chr(34)
 
rst.findfirst crit
 
if rst.nomatch
rst.addnew
rst![Nom]=me.Nom
rst.update
end if
 
rst.close
dbs.close

Tu le place selon l'évènement que tu souhaites: Après mise à jour; sur sortie...


A+ RG

[fazerman]

il faut créer un objet DAO qui permet l'accès aux données par 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
Dim dbs As Database
Dim rst As DAO.Recordset
Set dbs = OpenDatabase("CheminDaccesEtNomDuFichier")
Set rst = dbs.OpenRecordset("NomDeLaTable", dbOpenTable)
 
rst.MoveFirst
    While Not rst.EOF
         'ici tu peut faire ton test
         if rst("NomDuChamp") = me.TextBox then
             ...
         end if
         rst.movenext
    wend

[cafeine]

il faut créer un objet DAO qui permet l'accès aux données par 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
Dim dbs As Database
Dim rst As DAO.Recordset
Set dbs = OpenDatabase("CheminDaccesEtNomDuFichier")
Set rst = dbs.OpenRecordset("NomDeLaTable", dbOpenTable)
 
rst.MoveFirst
    While Not rst.EOF
         'ici tu peut faire ton test
         if rst("NomDuChamp") = me.TextBox then
             ...
         end if
         rst.movenext
    wend

Hello, ta solution est valide mais nécessite le parcours entier de la table ... ce qui peut être longuet sur une table de 300 000 enregistrements.

Sinon il y a aussi DCount()

[Tofalu]

Le mieux est d'utiliser la propriété eof du recordset

Code :

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

1
2
3
4
5
6
7
8
9
Dim Rst as DAO.Recordset
Set Rst=CurrentDb.OpenRecordset("SELECT ChampNom FROM MaTable WHERE ChampNom=" & chr(34) & LaTextBox & Chr(34))
If not Rst.Eof then 
Msgbox "le nom existe déjà"
Else
' traitement
End if
Rst.Close
Set Rst=Nothing