Madison123
Registered User.
- Local time
- Today, 14:27
- Joined
- Dec 16, 2010
- Messages
- 10
Hi There! I need help again, this is driving me insane
I have three Tabs. On the first Tab I enter information and select submit. This adds the values to a Table. Fine. The second Tab, searches this table based on a value i insert into a textbox. However, when i select search the whole tab flickers. I have looked at AllenBrownes recommendation regarding unattached labels and i dont think that is the issue. When i comment put my code and just press the buttons its fine. I have 7,700 rows that it is searching could this be it?
Private Sub Search_Click() 'Searching
Dim message
Set rst = Me.RecordsetClone ' new code
Me.Requery
Me.RecordsetClone.FindFirst "[TRCSNNumber] = '" & Me![SN] & "' or[SerialNumber2] = '" & Me![SN] & "' or[SerialNumber3] = '" & Me![SN] & "' "
If rst.NoMatch = False Then
Me.Bookmark = rst.Bookmark
FindNext.Visible = True
Else
message = MSGBOX("The Number you have entered cannot be Found", vbOKOnly)
End If
End Sub
Private Sub Search_Click() 'Searching
Dim message
Set rst = Me.RecordsetClone ' new code
Me.Requery
Me.RecordsetClone.FindFirst "[TRCSNNumber] = '" & Me![SN] & "' or[SerialNumber2] = '" & Me![SN] & "' or[SerialNumber3] = '" & Me![SN] & "' "
If rst.NoMatch = False Then
Me.Bookmark = rst.Bookmark
FindNext.Visible = True
Else
message = MSGBOX("The Number you have entered cannot be Found", vbOKOnly)
End If
End Sub