Date Function question :)

[armancanada]

Hi, I am new to programming/coding, can someone please help me find the coding for the following question:

I have a table with a place to put in dates (Agreement Start Date).

I need a function to have a Notfication Message (like a warning box or save promp box) pop up 75 days after the given date (Start Date) prompting the user to check for something in the record. (i.e. to check to see if the client has paid yet.)

Can someone help me please, please :)

Much thanks in advance.

[Rabbit]

There are many VBA tutorials out there. For example this one. Take a look at it, try it out and let us know if you have any questions.

[armancanada]

Thank you, I will do a thorough search and if I need more help I will notify, thanks again.

[armancanada]

Hello Rabbit, I checked everywhere, all I get is information on various MsgBoxes and their flags and captions.

After a thorough search throughout the internet I couldn't even find a sample code for what I am looking for.

Can you give me a push in the right direction with the correct code or whatnot?

[missinglinq]

Is this form in Datasheet, Continuous or Single View?

Welcome to TheScripts!

Linq ;0)>

[armancanada]

Hi, thank you.

My form is not in continuous view, instead it is a Datasheet where by scrolling up or down (with the mouse scroll ball) the user can go from one record to another (I guess that is single view..??)

Thank you,

Arman

[armancanada]

I'm looking for something along the lines of:


If DateAdd("d",+70,[Agreement Start Date]) Then
MsgBox("Check to see if they have paid", vbInformation)

or

Private Sub Command232_Click()
If "Agreement Start Date" = [Now() + 70] Then MsgBox = ("Check to see if they have paid")
End Sub

[raybettoni]

I would use the DateDiff function.

If DateDiff("d," date(),[Agreement Start Date]) >= 75 then
Enter your code
end if

[missinglinq]

Datasheet view looks like an Excel spreadsheet. Continuous view looks similar, but you can do more things with it. Single view, whcih I'm guessing is what you mean, is when one record can be viewed at a time. The view makes a difference in how you do things like this.

Ray had the right idea, but he switched the two dates around; you'd have ended up with a negative number since the [Agreement Start Date] is always going to be in the past. You need to place this code in the On Current event like this:

Private Sub Form_Current()
  If DateDiff("d", Me.[Agreement Start Date], Date) >= 75 Then
  MsgBox "Has This Account Been Paid?"
  End If
End Sub

Linq ;0)>

[armancanada]

Thank you raybettoni and missinglinq.

Your sheer brilliance knows no bounds!!!!

(ps I'm working on a database projects up until the end of my contract which is Jan 10, 2008, I may have some more questions until then. I don't usually work on Database and/or Programming contracts, so this is a first for me.)

Thank you again!

[missinglinq]

Glad we could help!

Linq ;0)>

[raybettoni]

Glad we could help. I am a contrator also. MS Access developmet. There is a good market here in my home city of Pittsburgh for IT contractors. 7 years and I have only been out of work for more then one month once.