View Rate Pop Up Form

[josros60]

Hi,

i have a view rate form, so when they select a company that doesn't have a rate to display a custom message it works fine the only problem is that when i open the form it display the message first because i know the first company has not rate but it hasn't even open the form after works fine only display message if company has no rate,

how can make it not to display the message when the forms open, just to display after they have select a company if has not rate.

here it's the code:

Private Sub Form_Current()
 Call sShowToolTip(Me)
 With Me![Rate].Form
       .Visible = (.RecordsetClone.RecordCount > 0)
     
                 End With
           FindRate = Company
              Call sShowToolTip(Me)
   If Me![Rate].Form.Visible = False Then
      Me!lblRate.Visible = False
       strMsg = "This Company has no rates to display. Please select another Company "
        intStyle = vbOKOnly
        strTitle = "Looking at rates"
        MsgBox strMsg, intStyle, strTi
   Else
   Me!lblRate.Visible = True
   
End If
End Sub

thank you

 

[revans]

If the only way to select a new record is some record selector (combo box or something) you could move this code to the After Update event of that record selector. That won't work if you allow the user to scroll through the records with the form's Navigation Buttons set to True. So, it really depends on how you have your record navigation set up.

hth,

Rich

 

[josros60]

Thank you very much.

I moved it to after update event and it works perfectly.

thanks again.