[RESOLVED] How to use IF NOT

[AdRock952]

Can anyone tell how to use the If Not so I don't have to use an exit sub to get out of the procedure

This works but I want to remove the exit sub

Public Sub FillLabels()
    If Not (objrec.BOF = True) Or (objrec.EOF = True) Then
        Exit Sub
    End If
    txtJobDescription = objrec.Fields("Job_Description").Value & " "
    txtSubTotal.Text = Format$(objrec.Fields("Sub_Total").Value & " ", "Currency")
    lblAddVAT = Format$(objrec.Fields("VAT").Value & " ", "Currency")
    lblNewTotal = Format$(objrec.Fields("Total").Value & " ", "Currency")
End Sub

here is the code for the navigation

Public Sub Forward()
    'If the recordset is not at the end of file....
    If objrec.EOF = False Then
        '....Move to the next record
        objrec.MoveNext
            'Call the Select_Case procedure to refill the labels with the next record
            Select_Case
        If objrec.EOF Then
            'This will prevent the user from moving to
            'the EOF Marker if he or she is on the last
            'record.
            objrec.MoveLast
        End If
    Else
        If objrec.BOF Then
            Exit Sub
        Else
            objrec.MoveNext
        End If
    End If
End Sub

I have a forward and back navigation buttons on my toolbar and use it to move forward and back records. I have tried using IF NOT around the booleans but When it reaches the last record it will crash saying 'Either BOF or EOF is True.......'
I want to be able to remove the Exit Sub becuase I have been told it's lazy programming to exit a sub routine

[penagate]

Pure logic... simply reverse the process

Public Sub FillLabels()
    If (objrec.BOF = True) Or (objrec.EOF = True) Then
        txtJobDescription = objrec.Fields("Job_Description").Value & " "
        txtSubTotal.Text = Format$(objrec.Fields("Sub_Total").Value & " ", "Currency")
        lblAddVAT = Format$(objrec.Fields("VAT").Value & " ", "Currency")
        lblNewTotal = Format$(objrec.Fields("Total").Value & " ", "Currency")
    End If
End Sub

Public Sub Forward()
    'If the recordset is not at the end of file....
    If objrec.EOF = False Then
        '....Move to the next record
        objrec.MoveNext
            'Call the Select_Case procedure to refill the labels with the next record
            Select_Case
        If objrec.EOF Then
            'This will prevent the user from moving to
            'the EOF Marker if he or she is on the last
            'record.
            objrec.MoveLast
        End If
    Else
        If Not objrec.BOF Then
            objrec.MoveNext
        End If
    End If
End Sub

In the second one, you are exiting the sub anyway when the If's finish. So you don't need Exit Sub.

[ganeshmoorthy]

you can use the not like this

Public Sub FillLabels()
    If Not (objrec.BOF = True Or objrec.EOF = True) Then
        txtJobDescription = objrec.Fields("Job_Description").Value & " "
        txtSubTotal.Text = Format$(objrec.Fields("Sub_Total").Value & " ", "Currency")
        lblAddVAT = Format$(objrec.Fields("VAT").Value & " ", "Currency")
        lblNewTotal = Format$(objrec.Fields("Total").Value & " ", "Currency")
    End If
End Sub

grouping the conditions is more important

[AdRock952]

Many thanks to both of you for helping me out woth this problem.

The problem is now fixed