Private Sub HotelInquiry_Click()
On Error GoTo Err_HotelInquiry_Click

    Dim stDocName As String
    
    If Me![ContractExp] =  0  Then
        stDocName =  "Hotelinquiry" 
    ElseIf Me![ContractExp] >  0  Then
        stDocName =  "Hotelinquiry" 
    Else
        stDocName =  "HotelinquiryNew" 
    End If
    
    Dim stLinkCriteria As String
    stLinkCriteria =  "[HID]="  & Me![HID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria


Exit_HotelInquiry_Click:
    Exit Sub

Err_HotelInquiry_Click:
    MsgBox Err.Description
    Resume Exit_HotelInquiry_Click
    
End Sub