Hej NG
Nu har jeg brugt det meste af Natten på at finde en kode som skal
advare en bruger mod dubletter i db, har fundet nogen kode stykker som
jeg ikke kan få til at virke eller måske jeg sætter dem forkert ind.
Jeg er ved at lave en tunering tilmelding hvor man fra sin Profil skal
kunne tilmelde sig, men kun EN gang, hvis så forsøger at tilmelde sig
sammen tur igen tænkte jeg på en lille box med ok som fortæller at
man allerede er tilmeld og man vil blive stille til hoved siden!. Jeg
koder i ASP!
Se evt mine koder her:
www.pockets.dk/t.asp
Tillægs koden som indsætter data i db
www.pockets.dk/t2.asp
Jeg har et feldt [tourid] i min access DB dette er sat til Yes (No
Duplicates) dette felt indholder et tourid som man sætter ind når man
tilmelder sig.
jeg får så denne fejl som ikke er køn
Microsoft JET Database Engine error '80004005'
The changes you requested to the table were not successful because they
would create duplicate values in the index, primary key, or
relationship. Change the data in the field or fields that contain
duplicate data, remove the index, or redefine the index to permit
duplicate entries and try again.
Hvordan laver man en pæn advarsel?
Tak
Allan
Her er et par af de kode stykker jeg har rodet med
___________________________________________________________
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 3022 'duplicate value in index/PK
MsgBox "You're an idiot, you've already entered this " & _
"registration number!", vbExclamation, "Twit!"
Response = acDataErrContinue
Case Else
Response = acDataErrDisplay 'shows normal error message
End Select
End Sub
________________________________________________________
With Me.Registration
If .Value = .OldValue Then
'do nothing
Else
strWhere = "Registration = """ & .Value & """"
If Not IsNull(DLookup("Registration", "MyTable", strWhere)) Then
MsgBox "Dupe!"
End If
End If
End With
End Sub