Hi
I am going to solve a problem and have now idea of how,
I will that in the list1 only those people that correspond to
the date of the date is showing.
No one else than that one of the day
the word Prn is standing for birthday in format 50-04-21
in the database.
Lenny
Private Sub Birthday()
Dim myDay As String
myDay = Format$("yy-mm-dd")
Set rs = db.OpenRecordset("Phone", dbOpenTable)
Set rs = db.OpenRecordset("SELECT * FROM Phone WHERE prn LIKE '" & "'" & "& '*'") '& myDay)
List1
End Sub
Private Function List1()
Dim myDay As String
myDay = Format("now, yy-mm-dd")
If rs.RecordCount = 0 Then
Exit Function
End If
rs.MoveLast
rs.MoveFirst
max = rs.RecordCount
rs.MoveFirst
LstData.Clear
For i = 1 To max
'LstData1.AddItem rs("prn") & " " & rs("prn")
LstData1.AddItem rs("eftn") & " " & rs("prn") '& myDay
rs.MoveNext
Next i
CmdOk.Enabled = True
Label2.Visible = True
End Function