D
Dennis Michaud
I made this form that has a calander, now I want to use
this form to filter a table how do I do this? I'm new to
this and playing with Northwind DB. I'm trying to use
the created form to filter (orders date) from customer
orders table.
I guess I need the created form (Calender) to connect to
Customers orders table and filter the date from what date
the person selects from calender form created. Below is
code for calender form:
Private Sub calanderaug_Click()
RequiredDate.Value = calanderaug.Value
RequiredDate.SetFocus
calanderaug.Visible = False
End Sub
Private Sub calanderaug_Updated(Code As Integer)
End Sub
Private Sub RequiredDate_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub RequiredDate_MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single)
calanderaug.Visible = True
calanderaug.SetFocus
If Not IsNull(RequiredDate) Then
calanderaug.Value = RequiredDate.Value
Else
calanderaug.Value = Date
End If
End Sub
this form to filter a table how do I do this? I'm new to
this and playing with Northwind DB. I'm trying to use
the created form to filter (orders date) from customer
orders table.
I guess I need the created form (Calender) to connect to
Customers orders table and filter the date from what date
the person selects from calender form created. Below is
code for calender form:
Private Sub calanderaug_Click()
RequiredDate.Value = calanderaug.Value
RequiredDate.SetFocus
calanderaug.Visible = False
End Sub
Private Sub calanderaug_Updated(Code As Integer)
End Sub
Private Sub RequiredDate_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub RequiredDate_MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single)
calanderaug.Visible = True
calanderaug.SetFocus
If Not IsNull(RequiredDate) Then
calanderaug.Value = RequiredDate.Value
Else
calanderaug.Value = Date
End If
End Sub