find date, if no match - run query.

[realspido]

It's me again..
Ok, I have my form and trying to make Access executing sequence (code):


DoCmd.FindRecord Me.DateX, , , , , acAll 'dateX - variable from the
form, or pop-up

Now,
If record with DateX doesn't exist in displayed table:

DoCmd.OpenQuery "qryDLRnew"

Actually, what I'm trying to do is add new records by running query but if
records with requested date exist, give a pop-up in result and display first
record on the form. Am I not confusing?
ALSO, I have another problem: query adds records into the table displayed by
form. How to refresh the form to see new records added by query?

Thanks for any help, always appreciate it.

 

[rico]

I would suggest some thing like this:

i as integer

i= Dcount("*","Tablename","[DateField] = #" & Me.datex & "#")

If i = 0 then

Docmd.openquery "qryDLRnew"
Docmd.requery

Else

MsgBox "No new records added"

End If


HTH