I have a very simple form. The main form is unbound. It has one combo and 2 checkboxes, for filtering results on the subform. The VBA has the default sql, for when the form is unfiltered and conditional where clauses to append, when any of the filters is turned on or off (after update of the combo, or checking/unchecking the checkboxes). This works fine in other apps. For some reason, in this application, the app is crashing if I check or uncheck either of the 2 boxes more than once. I can do it once and then if I do another check or uncheck, the app just crashes. This is all the code on the back of the form:
Private Sub Filters()
Dim fSQL As String
Dim nCount As Integer
fSQL = "SELECT vwu.* FROM vw_UpdateFilterView vwu WHERE 1 = 1 "
If Nz(Me.cboLocation.Value, 0) <> 0 Then
fSQL = fSQL & " AND vwu.FKLocation = " & Me.cboLocation.Column(0)
End If
If Nz(Me.chkPUpdated, 0) <> 0 Then
fSQL = fSQL & " AND vwu.ID Not in (Select FKPID From tblUpdatedPAccount)"
End If
If Nz(Me.chkNoBlankProfiles, 0) <> 0 Then
fSQL = fSQL & " AND vwu.ID Not in (Select FKPID From tblUpdatedPAccount)" & " And nz(vwu.User,'')<> ''"
End If
'Debug.Print Nz(Me.cboLocation.Value, 0) & " cboLocation"
'Debug.Print Nz(Me.chkPUpdated, 0) & " chkPUpdated"
'Debug.Print Nz(Me.chkNoBlankProfiles, 0) & " chkNoAcct"
'Debug.Print fSQL
Me.frmUpdateMainPeopleAccounts_SubProfiles.Form.RecordSource = fSQL
Me.frmUpdateMainPeopleAccounts_SubProfiles.Form.Requery
With Me.frmUpdateMainPeopleAccounts_SubProfiles.Form.RecordsetClone
If .RecordCount > 0 Then .MoveLast
nCount = .RecordCount
End With
Me.txtCountProfs = nCount & " People Profiles"
End Sub
Private Sub Form_Load()
cmdReset_Click
End Sub
Private Sub cboLocation_AfterUpdate()
Filters
End Sub
Private Sub chkPUpdated_Click()
Filters
End Sub
Private Sub chkNoBlankProfiles_Click()
Filters
End Sub
Private Sub cmdReset_Click()
Me.cboLocation.Value = Null
Me.chkPUpdated.Value = Null
Me.chkNoBlankProfiles.Value = Null
Filters
End Sub
Private Sub cmdMain_Click()
OpenCloseForm "frmMain", "frmUpdatePProfiles", 0
End Sub
This is the event view error in the Windows Application log.
Faulting application name: MSACCESS.EXE, version: 14.0.7230.5000, time stamp: 0x5c6738e8
Faulting module name: ACECORE.DLL, version: 14.0.7237.5000, time stamp: 0x5d56d4bc
Exception code: 0xc0000005
Fault offset: 0x00059717
Faulting process id: 0x3810
Faulting application start time: 0x01d588e19f4ce5a1
Faulting application path: C:\Program Files (x86)\Microsoft Office\Office14\MSACCESS.EXE
Faulting module path: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\ACECORE.DLL
Report Id: 344fb181-f4d5-11e9-ad79-e8393534bdd2
I have created a new application and imported all the objects from the old one. I exported the form and subform as text, deleted the form and subform and then re-imported the text objects as forms. None of that has worked.
Any thoughts on how I can fix this?
User contributions licensed under CC BY-SA 3.0