Display message

[josros60]

Hi,

I have customer form and a Review Rate button to open RateDisplay form so when they are looking at a company they can review the rate for this company by clicking the Review Rate button.

This is the code:

Private Sub ReviewRate_Click()
' This code created in part by Command Button Wizard.
On Error GoTo Err_ReviewRate_Click

    Dim strMsg As String, strTitle As String
    Dim intStyle As Integer
    Dim strDocName As String, strLinkCriteria As String

    ' If CompanyName control is blank, display a message.
    If IsNull(Me![Combo54]) Then
        strMsg = "Select the Company/company record whose rates you want to see, then press the Review Rate button again."
        intStyle = vbOKOnly
        strTitle = "Select a Company"
        MsgBox strMsg, intStyle, strTitle
        Me![Combo54].SetFocus
    Else
    ' Otherwise, open Rate Display form, showing products for current supplier.
        strDocName = "RateDisplay"
        strLinkCriteria = "[CompanyID] = Forms![CUSTOMERS]![COMPANYID]"
        DoCmd.OpenForm strDocName, , , strLinkCriteria
        DoCmd.MoveSize (1440 * 0.78), (1440 * 1.8)
      
    End If
    
Exit_ReviewProducts_Click:
    Exit Sub
    
Err_ReviewProducts_Click:
    MsgBox Err.Description
    Resume Exit_ReviewRate_Click
End Sub

how can i add to this code another line of code to display a message there's not rate for this company and don't open the RateDisplay form, when this company doesn't have rate yet?

thank you

 

[HiTechCoach]

The rate information is held in Rate table.

I have 2 tables related:

1. Company
2. Rate

linked with CompanyID

thank you

Then I would use the Rate table in the second parameter for the Dcount().

 

[HiTechCoach]

Thanks for the great information.its very useful to me.

Glad to hear that is was helpful.

 

[josros60]

Thank you so much, worked great, even though still opening the form but at least display message not Rate data to display.

Thank you

 

[HiTechCoach]

Thank you so much, worked great, even though still opening the form but at least display message not Rate data to display.

Thank you

Did you cleam up the code to remove the duplicate lines below?

        strDocName = "RateDisplay"
        DoCmd.OpenForm strDocName, , , strLinkCriteria
        DoCmd.MoveSize (1440 * 0.78), (1440 * 1.8)

You only want to keep the lines that are within the IF ... Then statment with the DCount().

 

[josros60]

thanks


But i tried removing the lines and will not work, would you mind pasting the whole code for me, the way it should be?

Thank you

 

[HiTechCoach]

thanks


But i tried removing the lines and will not work, would you mind pasting the whole code for me, the way it should be?

Thank you

Since you have been modifying your code,I have not seen the more current versions.

Please post your VBA code. This way I can see if I can spot the problem.