i have a birthday reminder that show all the birthdays that the customers have in the same day.e.x if today is 14-8-2013 and the cust has a birthday in 14-8-1979 then i can see it.well it's obvious i think
now is there a way to show in a listbox the name of those customers that have birthdays and make it scroll up and down the names in the listbox.?
i use to used a listview to show the list but its ugly and used a timer for the ballons to go up.
i have a button that is named todays birthdays
this is the code i used before with a timer of 50 value . (img is the ballon picture)
and this is when i enter the form of the customer birthdays (if he has of course)
this is all the code & info i have for this form
now is there a way to show in a listbox the name of those customers that have birthdays and make it scroll up and down the names in the listbox.?
i use to used a listview to show the list but its ugly and used a timer for the ballons to go up.
i have a button that is named todays birthdays
this is the code i used before with a timer of 50 value . (img is the ballon picture)
Code:
Private Sub TmrBallons_Timer()
If img1.Top > -Me.Height Then
img1.Top = img1.Top - 100
img4.Top = img4.Top - 200
img5.Top = img5.Top - 300
img6.Top = img6.Top - 400
img7.Top = img7.Top - 500
img8.Top = img8.Top - 600
Else
img1.Top = Me.Height
img4.Top = Me.Height
img5.Top = Me.Height
img6.Top = Me.Height
img7.Top = Me.Height
img8.Top = Me.Height
End If
If img2.Top > -Me.Height Then
img2.Top = img2.Top - 200
img3.Top = img3.Top - 100
Else
img2.Top = Me.Height
img3.Top = Me.Height
End If
End SubCode:
Private Sub Form_Activate()
Me.WindowState = 2
If UseMenu Then
Set rs = CN.Execute("SELECT * FROM Customers WHERE DAY(DateBirth) = DAY(#" & MyDate(Now) & "#) " & _
"AND MONTH(DateBirth) = MONTH(#" & MyDate(Now) & "#)")
If Not rs.EOF Then
LsVw.ListItems.clear
While Not rs.EOF
Set itm = LsVw.ListItems.Add(, , LsVw.ListItems.Count + 1, , "cake")
itm.bold = True
itm.SubItems(1) = rs!FullName
rs.MoveNext
Wend
End If
End If
End Sub