I have a form that is populated by the following SQL Statement attached to a form with drop down boxes
Public Function Makefilter() As String
Dim UnitStore As String
Dim checkbox As Boolean
If Me.cbxUnit = "" Or IsNull(Me.cbxUnit) Then UnitStore = "*" Else UnitStore = Me.cbxUnit
Dim DisiplineStore As String
If Me.cbxDisipline = "" Or IsNull(Me.cbxDisipline) Then DisiplineStore = "*" Else DisiplineStore = Me.cbxDisipline
Dim TechnicianStore As String
If Me.cbxTechnician = "" Or IsNull(Me.cbxTechnician) Then TechnicianStore = "*" Else TechnicianStore = Me.cbxTechnician
Makefilter = "pdnumber='" & Me.cbxPDNumber & "' and unit like('" & UnitStore & "') and disipline like('" & DisiplineStore & "') and Technician like('" & TechnicianStore & "')"
End Function
Private Sub cbxPDNumber_AfterUpdate()
Me.cbxUnit.RowSource = "SELECT distinct Table1LineInformation.Unit FROM Table1LineInformation WHERE pdnumber='" & Me.cbxPDNumber & "'; "
Me.cbxDisipline.RowSource = "SELECT distinct Table1LineInformation.Disipline FROM Table1LineInformation WHERE pdnumber='" & Me.cbxPDNumber & "'; "
Me.cbxTechnician.RowSource = "SELECT distinct Table1LineInformation.Technician FROM Table1LineInformation WHERE pdnumber='" & Me.cbxPDNumber & "'; "
End Sub
The problem is after I have personal update the information I would like to show and print only those records that have been updated
the update is shown in a Text Box as Approved I have been working on this for two weeks and have found nothing close that will allow me to attach a button to the opened record form and sort by approved and keeping the sort all ready in place that is applied to the open the form in the and adding the Approved Sort.
Public Function Makefilter() As String
Dim UnitStore As String
Dim checkbox As Boolean
If Me.cbxUnit = "" Or IsNull(Me.cbxUnit) Then UnitStore = "*" Else UnitStore = Me.cbxUnit
Dim DisiplineStore As String
If Me.cbxDisipline = "" Or IsNull(Me.cbxDisipline) Then DisiplineStore = "*" Else DisiplineStore = Me.cbxDisipline
Dim TechnicianStore As String
If Me.cbxTechnician = "" Or IsNull(Me.cbxTechnician) Then TechnicianStore = "*" Else TechnicianStore = Me.cbxTechnician
Makefilter = "pdnumber='" & Me.cbxPDNumber & "' and unit like('" & UnitStore & "') and disipline like('" & DisiplineStore & "') and Technician like('" & TechnicianStore & "')"
End Function
Private Sub cbxPDNumber_AfterUpdate()
Me.cbxUnit.RowSource = "SELECT distinct Table1LineInformation.Unit FROM Table1LineInformation WHERE pdnumber='" & Me.cbxPDNumber & "'; "
Me.cbxDisipline.RowSource = "SELECT distinct Table1LineInformation.Disipline FROM Table1LineInformation WHERE pdnumber='" & Me.cbxPDNumber & "'; "
Me.cbxTechnician.RowSource = "SELECT distinct Table1LineInformation.Technician FROM Table1LineInformation WHERE pdnumber='" & Me.cbxPDNumber & "'; "
End Sub
The problem is after I have personal update the information I would like to show and print only those records that have been updated
the update is shown in a Text Box as Approved I have been working on this for two weeks and have found nothing close that will allow me to attach a button to the opened record form and sort by approved and keeping the sort all ready in place that is applied to the open the form in the and adding the Approved Sort.