Spørg om dubletter skal tillades

Du kan bruge funktionen DCount:

Dim a As String
a = Me.adresse
If DCount("*", "Tabel1", "[adresse] ='a'") > 0 Then
MsgBox "Der er allerede poster med denne værdi."
End If

Udskift "Tabel1" med navnet på den aktuelle tabel.
Koden indsættes i adresse-feltets Beforeupdate.

M.h.t at finde posten der matcher med den netop indtasrede adresse, er det lidt mere komplekst. Flg er ikke afprøvet:

Du kan evt. lave en formular (her benævnt "Form2"), og indtaste flg efter din DCount:

DoCmd.OpenForm "Form2"
Forms!Form2!adresse.SetFocus
DoCmd.FindRecord Me!adresse

Hvor sætter jeg den kode ind henne?

Koden indsættes i adresse-feltets Beforeupdate.

Må jeg sende databasen til til dig, så du hurtigt kan lave det?

Jeg har ikke den fulde kode til at oprette posten. Men prøv at sende som zipi, men det skal være nu.

Hvad er din mail?

Det er i tabellen "deltagere". Eller i formularen "Deltagere", hvor den skal spørge om dubletten skal oprettes.

mugs[a]mail.dk

Hvordan står det til?

Db modtaget og returneret. Koden kom til at se sådan ud:

Private Sub Kommandoknap74_Click()
If DCount("*", "Deltagere", "[Adresse1]= '" & Me.Adresse1 & "'") > 1 Then
If MsgBox("Vil du oprette posten?", vbYesNo) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Else:
Me.Undo
DoCmd.GoToRecord acForm, "Deltagere", acPrevious, 1
Exit Sub
End If
End If
End Sub

Tak for point.