123dstreet
Registered User.
- Local time
- Today, 03:03
- Joined
- Apr 14, 2010
- Messages
- 122
Hi All,
I have a continuous form based on a query (the query has 2 tables with 1 relationship, it's fairly basic).
The problem is sporadic, which means I can't figure out the trigger causing it, but after the user filters the query either by serial number, or customer, etc... the form will change to strictly read only. The only way to fix this is to close the form, and sometimes close the entire database.
Here is the code used to set the filters:
Here is the code to clear all the filters:
I can filter, clear filter, filter again, etc. and the form is fine. But then the odd time, the form will switch over to read only. If anyone can see a reason why this might be happening your input will be greatly appreciated!
Sincerely,
D
I have a continuous form based on a query (the query has 2 tables with 1 relationship, it's fairly basic).
The problem is sporadic, which means I can't figure out the trigger causing it, but after the user filters the query either by serial number, or customer, etc... the form will change to strictly read only. The only way to fix this is to close the form, and sometimes close the entire database.
Here is the code used to set the filters:
Code:
Private Sub Command75_Click()
On Error GoTo ExitError
DoCmd.ApplyFilter , "[Receive Date]Is Not Null AND [Return Date] Is Null"
ExitError:
Exit Sub
End Sub
Private Sub Command45_Click()
On Error GoTo ExitError
'-- Find RMA Numbers starting with ---
Me.Filter = "[RMA #] Like" & "'" & Me.Text43 & "*" & "'"
If IsNull([Text43]) = False Then Me.FilterOn = True Else Me.FilterOn = False
SendKeys "+{Down}"
ExitError:
Exit Sub
End Sub
Private Sub Command40_Click()
On Error GoTo ExitError
'-- Find SN Numbers starting with ---
Me.Filter = "[Serial Number] Like" & "'" & Me.Text38 & "*" & "'"
If IsNull([Text38]) = False Then Me.FilterOn = True Else Me.FilterOn = False
SendKeys "+{Down}"
ExitError:
Exit Sub
End Sub
Here is the code to clear all the filters:
Code:
Private Sub Command76_Click()
On Error GoTo ExitError
Me.FilterOn = False
Me.Text38 = ""
Me.Text43 = ""
Me.Combo60 = ""
'DoCmd.ShowAllRecords
DoCmd.GoToRecord , , acLast
ExitError:
Exit Sub
End Sub
I can filter, clear filter, filter again, etc. and the form is fine. But then the odd time, the form will switch over to read only. If anyone can see a reason why this might be happening your input will be greatly appreciated!
Sincerely,
D