Avatar billede dm013 Nybegynder
04. november 2001 - 13:13 Der er 6 kommentarer og
1 løsning

VBA kode som finder en identisk post

jeg skal undgå at der i en formular oprettes en post hvor felt1 og felt2 er identisk med en allerede oprettet post. både felt1 og felt2 indeholder tekst
funktionen skal ligge på felt2 før opdatering
Avatar billede martens Guru
04. november 2001 - 13:40 #1
mon ikke du skal sætte et nej til \"dubletter tillades\" på egenskaberne for felterne ?
--
that´s it

mvh martens
Avatar billede dm013 Nybegynder
04. november 2001 - 13:46 #2
martens>> Jeg kan ikke bruge dit svar, da har brug for 2 af felt1 en for hvert køn
Avatar billede martens Guru
04. november 2001 - 13:55 #3
mon ikke det ville være bedre at sætte felt 1 til en talværdi ?  Kvinde = 1 Mand = 2 ?
Avatar billede dm013 Nybegynder
04. november 2001 - 14:14 #4
Hvad skulle det gavne ?
Avatar billede terry Ekspert
04. november 2001 - 15:57 #5
If DCount(\"*\", \"YourTable\", \"Fld1= \'\" &Me.field1 & \"\' AND Fld2= \'\" & Me.field2 & \"\'
\")> 0 Then Cancel = True

Fld1 and fld2 are the field names in your table
05. november 2001 - 08:19 #6
Terry (og DM013)-> Hvad hvis brugeren er inde og rette en eksisterende post? Så vil din DCount jo finde sig selv!

Derfor bør din kode se således ud:

If Me.Newrecord then
  If DCount(\"*\", \"YourTable\", \"Fld1= \'\" &Me.field1 & \"\' AND Fld2= \'\" & Me.field2 & \"\'
\")> 0 Then Cancel = True
endif

/Thomas
Avatar billede terry Ekspert
05. november 2001 - 08:49 #7
But Thomas, if a user altered a record and ANOTHER had the same values then it wouldnt catch it either!
The correct way would to have a unique key constraint on the two fields, or do a check as you say when creating a new record and then also when updating, takíng any primary key into account.

If DCount(\"*\", \"YourTable\", \"Fld1= \'\" &Me.field1 & \"\' AND Fld2= \'\" & Me.field2 & \"\'
AND UniqueID <> \" & Me.ID)> 0 Then Cancel = True

or something like that!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester