Birthday Popup Box

[darryaz]

I can't quite get the VB code to work right on this.....

I have a form that has information about people.

The form stores the person's birthdate (formatted as short date).

If today is the person's birthday I want a MsgBox to come up saying "Happy Birthday" and after the user clicks "OK" SetFocus on the FName field.

Any help would be appreciated.

 

[spikepl]

Just think about this: a number of users will find such a feature cute, a number will find it annoying, and the remainder will not care one way or the other. They may be exposed to such "cute" messages in many applications they touch that day, because in each case a developer thought it would be a "cute" feature.

Do you really want to do this?

 

[darryaz]

It's to be consistent with another software package that has that function.

 

[spikepl]

Or else the users will go on strike?

What is the specific issue you are having?

 

[darryaz]

For example, if a user is on the phone with a potential donor and is reminded that it is the person's birthday, the user can score a few points with the donor (hopefully) by recognizing it's their birthday.

Here's what I've been trying and it gets an error:
Private Sub Form_Load()
If Me.Birthdate(mmdd) = Date Then MsgBox "Happy Birthday", vbOKOnly, Birthday, , Me.FName.SetFocus Else Me.FName.SetFocus
End Sub

 

[spikepl]

if that is the actual code then yes, you'll get a bunch of errors. can you please paste code in code brackets http://www.access-programmers.co.uk/forums/showthread.php?p=1009015#post1009015

 

[spikepl]

and what is Me.Birthdate(mmdd) ? I think Access will object to a field/control name containing ()

 

[vbaInet]

Basically:

If DateDiff("d", Me.[COLOR=Red]BirthDay[/COLOR], Date()) = 0 Then
    Msgbox ...
    ... set focus code here ...
End If

 

[vbaInet]

Just think about this: a number of users will find such a feature cute, a number will find it annoying, and the remainder will not care one way or the other. They may be exposed to such "cute" messages in many applications they touch that day, because in each case a developer thought it would be a "cute" feature.

I would go bunkers A birthday wish in person or a personalised message is much nicer

 

[darryaz]

Basically:

If DateDiff("d", Me.[COLOR=Red]BirthDay[/COLOR], Date()) = 0 Then
    Msgbox ...
    ... set focus code here ...
End If

Thanks vbaInet, that gets me closer, but the field is BirthDATE, so with your code it only works if their birthdate is in 2011.

I'm guessing the DateDiff coding needs to be a bit different to calculate from the birthdate.

 

[vbaInet]

so with your code it only works if their birthdate is in 2011.

The chances of a newly born baby using a database is very slim

If Format(Me.BirthDate, "ddmm") = Format(Date(), "ddmm") Then

 

[darryaz]

That did it.

Exactly what I needed.

Thanks so much!!

 

[vbaInet]

Happy to hear!