Need help with this form

Bears84

Registered User.
Local time
Today, 07:35
Joined
Dec 12, 2005
Messages
25
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.
 

Users who are viewing this thread

Back
Top Bottom