DateAdd function into VB

[Cyber_Learning]

Hello Forum Members
I would like to get some help here.
This screen shot is a form and the valid alert is =DateAdd("m",-9,[Valid])

And I have a popup reminder as follows.
When I use the Valid property, it works.
But how can I use the Valid Alert function (DateAdd("m",-9,[Valid]) into the VB?


/ code starts here. /
Private Sub Form_Timer()


Dim ID As Long


ID = Nz(DLookup("ID", "CPR_Biopsy", "Valid<=#" & Date & "#"), 0)
If ID <> 0 Then
DoCmd.OpenForm "CPR_Biopsy_Notice"
End If


ID = Nz(DLookup("ID", "CPR_Biopsy", "DateAdd("m",-9,[Valid] <=#" & Date & "#"), 0)
If ID <> 0 Then
DoCmd.OpenForm "CPR_Biopsy_Notice"
End If




End Sub

/code ends here. /

Thank you.

[June7]

In future, please place code between CODE tags to retain indentation and readability.

What do you want to happen in VBA procedure? Do you want a MsgBox popup? Do you want to apply filter to form?

[Cyber_Learning]

Hello June7

Thank you for your quick reply.
When I use the Valid property, CPR_Biopsy_Notice form opens. (yes, this is a popup form.)
But now, the Valid Alert function (DateAdd("m",-9,[Valid]) does not open CPR_Biopsy_Notice form.

Also, this CPR_Biopsy_Notice form has the following event procedure to open CPR_Biopsy form. (yes, this form is filtered.)
So, once I figure out the Valid Alert function (DateAdd("m",-9,[Valid]) in the above VB, I can simply adjust it into the VB below as well.

Is there a work-around for this problem?

Thank you.

Private Sub Open_CPR_Biopsy_Click()


    DoCmd.OpenForm "CPR_Biopsy", , , "Valid<=#" & Date & "#"
    DoCmd.Close acForm, Me.Name, asSaveYes


End Sub

[June7]

Still not sure what you want. Perhaps:

DoCmd.OpenForm "CPR_Biopsy", , , "DateAdd('m',-9,[Valid])<=Date()"

You posted code for form Timer event. Why are you using this event?

You mention a Valid Alert function but do not show any code for such a function, just an expression using DateAdd().

There is not a "Valid" property, this is a field.

[moke123]

Not really sure what your field and control names are.
Since you have Valid Alert on your form, why not use that?

DoCmd.OpenForm "CPR_Biopsy", , , "Valid <= #" & Me.ValidAlert & "#"

[Cyber_Learning]

Hello June 7 and Moke123

Thank you for your suggestions.
I simply want to use timer event as a reminder message to open a form.

    ID = Nz(DLookup("ID", "CPR_Biopsy", "DateAdd('m',-9,[Valid])<=#" & Date & "#"), 0)    If ID <> 0 Then
        DoCmd.OpenForm "CPR_Biopsy_Notice"
    End If

Then, I can open this form with a button click, and this form opens a different form with specific records.

DoCmd.OpenForm "CPR_Biopsy", , , "DateAdd('m',-9,[Valid])<=Date()"

Now, it is working as expected.
Once again, thank you so much for your help!