eigen bericht bij duplicaat

[FS1]

Ik heb een fiormulier met onderliggende tabel bestaande uit autonummer, specifieke code (geen duplicaten) en andere velden. Ik heb een knop op het formulier om een kopie van een record te maken waarbij de waarde van de code met 1 wordt verhoogd.
Va de macro heb ik berichten op nee gezet om de gebruiker niet alle berichten te laten zien de ze toch niet gebruiken.
Als de code niet bestaat gaat het goed. Als de code al wel bestaat wordt de kopie niet gemaakt maar krijgt de gebruiker geen melding dat de kopie niet gemaakt is omdat de code al bestaat. Ik wil graag dat de gebruiker alleen een melding krijgt als de nieuwe code (code +1) al bestaat.
Hoe los ik dit op? Alvast bedankt.

Frank Scherrenberg

 

[Bartuls]

Even een klein beetje programmeren.

Public sub CheckCode(Code as Integer)
If dCount("Code", "Tabel", "Code=" & cStr(Code + 1)) > 0 Then
Msgbox "Record kan niet gekopieerd worden"
End If
End Sub

aanroep:
Checkcode Code
Op de plek van Code moet dan de Code van het huidige record meegeven.