Diplcate recorder display in form when update-is that difficult

[miziri]

Hi,
Friend I need ur help?is my question is difficlut.
I have database , I am enter info,(first name and second name)
my question



-when I put first name and second name and it will check if that first and second name been entered before massgae box appear and show all related info.

see attched file my database

-wish i get solution for my question

[rpeare]

I do not understand your question

Are you trying to check to see if a first name/last name combination has been entered in your database before? Why would you want to prevent that from happening? What if you have two people with the same name?

[miziri]

Hi,
Yes i want to prevent peoples with same name,yes ur correct two poples with same name ,that way massage box will appear ,i will see it if it same i will just canael enter if not same plz must give option as new record

thx for u help

[NoellaG]

Hi,

it's quit common practice to warn when a double name has been entered. But as rpeare said, I wouldn't undo the entry, just pop up a warning and give the user the opportunity to view the existing record so they can check if it's the same person or not.
If you really don't want to allow double names, than put a unique index on the fields firstname + secondname.

greetings
NG

[rpeare]

in the ON EXIT property of your first name and lastname you would have to have something like

if dcount("[PersonID]", "tblPeople", "[FirstName] = '" & me.firstname & "' and [lastname] = '" & me.lastname & "') > 0 then
msgbox "That person already exists"
else
'perform your append
endif

[miziri]

Hi repear,
many thx u answered it 90%,
if u see my attached file and i am send again,i have fix that,in my database i have sub from ,i want it display i want show info of main from and sub form warn massage box appear i will view with yes and no option
if i click yes it not same and add as new record


again i thanks all

[rpeare]

Dim irecct As Integer
Dim Response As Integer
Dim strLinkCriteria As String
Dim rsc

Set rsc = Me.RecordsetClone

If Me.Dirty = True Then

    strLinkCriteria = "[firstname] = '" & Me.firstname & "' AND [secondname] = '" & Me.secondname & "'"
    irecct = DCount("*", "qrymain", strLinkCriteria)
    
    If irecct > 0 Then
        Response = MsgBox("Someone with that name exists.  Continue (YES) or Cancel record and go to existing person (NO)", vbYesNo, "Continue")
        If Response = vbYes Then
        Else
            Me.Undo
            rsc.FindFirst strLinkCriteria
            Me.Bookmark = rsc.Bookmark
        End If
    End If
End If

use this code instead, it will prompt you to go to the existing record or continue doing what you're doing

[miziri]

Dear repear
I hope ur fine i past ur copy with my datbase i hope u try it there error

plz download it,
th

[rpeare]

I have no idea what you're trying to say

[miziri]

Hi
i paste ur copy in my file can check or if u can plz copy into my attached database this some error


our i bagiiner if u have can we chat now

thx

[miziri]

Dear Repear,
I hope ur find,I copy ur code,but i did work with manin form but with sub form not work,
plz i sent in my preious email my database ur copy is copied plz check and fix it,

thx