"Peter" <peter@_nospam_exeter23.freeserve.co.uk> wrote in message
news:10vast2s8gj31fd@corp.supernews.com...[color=blue]
> Can anyone advise me what is wrong with this code? I want it to tell me[/color]
if[color=blue]
> I am entering a duplicate record. However, I always get the "Dupe" error
> message, whether I have entered a duplicate or not.
>
> The field REGISTRATION1 is in the form [Aircraft Registrations] and
> Registration is the Control Source in the table [Aircraft Registrations]
> (Can't remember why I named the two fields differently, but there was a
> reason at the time)
> thanks
> Peter
>
> Private Sub REGISTRATION1_AfterUpdate()
>
> Dim strWhere As String
>
> With Me.REGISTRATION1
> If .Value = .OldValue Then
> 'do nothing
> Else
> strWhere = "Registration1 = """ & .Value & """"[/color]
I don't think this is written correctly . . . but am not sure. It looks
like you're trying to construct a string that will evaluate to
"Registration1 = ########", where ######## is some unknown number (or maybe
characters, I've no idea). Is that actually what the contents of the
Registration column of table [Aircraft Registrations] looks like?
[color=blue]
> If Not IsNull(DLookup("Registration", "[Aircraft
> Registrations]", strWhere)) Then[/color]
Let's see if I understand correctly. If DLookup returns Data, IsNull
evaluates True, which causes the If Not to evaulate False, falling out. If
DLookup returns Null, IsNull evaluates False, which cases the If Not to
evaluate True, hitting the MsgBox?
The question then becomes, does strWhere actually have data in it when it
hits DLookup, and (based on the above), does that data actually look like
what is in the table?
Sincerely,
Chris O.
[color=blue]
> MsgBox "Dupe!"
> End If
> End If
> End With
> End Sub
>
>[/color]
