Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

find date, if no match - run query.

Discussion in 'Information Technology' started by realspido, Jul 28, 2006.

  1. realspido

    realspido
    Expand Collapse
    Guest

    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.
     
  2. Loading...

    Similar Threads Forum Date
    Pathfinder Joins Sikh Philosophy Network! New SPN'ers Sep 5, 2016
    The Salmon Story, Finding Home Sikh Sikhi Sikhism Jul 29, 2016
    Sikhi Guru Nanak's Methodology Of Finding Truth Sikh Sikhi Sikhism Jan 1, 2016
    Movies Ashdoc's movie review---Finding Fanny ( English version ) Theatre, Movies & Cinema Sep 15, 2014
    Leisure Can someone pls help me find this Waheguru Simran...?? Business, Lifestyle & Leisure Aug 5, 2014

  3. rico

    rico
    Expand Collapse
    Guest

    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

    "realspido" wrote:

    > 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.
     

Share This Page