small Ms access problem

[arnold]

Hi all,

I have created a form which gives the user the ability to search for specific data. Number of records in my database exceed one million records therefore in some occasion the searching takes an approximately a long time. Hence I have decided to show a hint message to inform the user that searching is going on and he has to wait. So in this regard I have created a label which is invisible at the beginning when the user presses the find button it becomes visible and when the searching is over it becomes invisible again. My big problem is that the label is not being showed or displayed when the user press the find button. The following codes might illustrate my problem. I would be much grateful if somebody can provide me with a hint or solution for my problem.

Note: even if I removed the lines which make my label invisible the label is only displayed when the search is over.

my code goes here
[
Private Sub cmd_find_Click()
Select Case og_search_elements
Case 1
strCriteria = "[phone_no] Like '" & txt_search & "'"
Case 2
strCriteria = "[name] Like '" & txt_search & "'"
Case 3
strCriteria = "[address] Like '" & txt_search & "'"
Case 4
strCriteria = "[phone_no] Like '" & txt_search & "'" _
& "or [name] Like '" & txt_search & "'" _
& "or [address] Like '" & txt_search & "'"

End Select

'display the searching label
Me.lbl_searching_msg.Visible = True

Set rst = [Forms]![frm_client_details].RecordsetClone


rst.FindFirst strCriteria

If rst.NoMatch Then

'Hide the searching label
Me.lbl_searching_msg.Visible = False
msgbox "No data has been found"
Else
[Forms]![frm_client_details].Bookmark = rst.Bookmark

'Hide the searching label
Me.lbl_searching_msg.Visible = False

End If

Set rst = Nothing
End Sub

]

[MMcCarthy]

Try this ...

Private Sub cmd_find_Click()
 
   'display the searching label
    Me.lbl_searching_msg.Visible = True
 
   Select Case og_search_elements
        Case 1
            strCriteria = "[phone_no] Like '" & txt_search & "'"
        Case 2
            strCriteria = "[name] Like '" & txt_search & "'"
        Case 3
           strCriteria = "[address] Like '" & txt_search & "'"
        Case 4
           strCriteria = "[phone_no] Like '" & txt_search & "'" _
                 & "or [name] Like '" & txt_search & "'" _
                 & "or [address] Like '" & txt_search & "'"
 
    End Select
 
   Set rst = [Forms]![frm_client_details].RecordsetClone
 
   rst.FindFirst strCriteria 
 
   If rst.NoMatch Then
      msgbox "No data has been found"
   Else
        [Forms]![frm_client_details].Bookmark = rst.Bookmark
 
   End If
 
   'Hide the searching label
   Me.lbl_searching_msg.Visible = False
 
    Set rst = Nothing
End Sub