Beginner: If Statement Problem

[Terry]

I am new to VB and still have difficulty writing Subs. The following
Sub Automatically updates two Check Boxes, Pass & Resit, in a form
which stores data re Exam Details.

Private Sub Mark_AfterUpdate()

If IsNull(Me.Mark) Then
Me.Pass = False
Me.Resit = False
Else
Me.Pass = (Me.Mark >= 24)
Me.Resit = Not Me.Pass
End If

End Sub

This works fine with exams that have a pass mark of 24 or over.
However There is one module, module 1, which has a pass mark of 27 or
over. The data which records the module number (Module ID) is stored
as a number from 1 to 7.

Will it be possible to ammend the Sub so that it takes this into
account, for instance:

ElseIf
Me.[Module ID] = 1 And Me.Pass = (Me.Mark >=27) Then
Me.Resit = Not Me.Pass

I have tried this with no success. Can you help?
Terry

[Allen Browne]

Private Sub Mark_AfterUpdate()
Dim intPassMark As Integer

If Me.[Module ID] = 1 Then
intPassMark = 27
Else
intPassMark = 24
End If

If IsNull(Me.Mark) Then
Me.Pass = False
Me.Resit = False
Else
Me.Pass = (Me.Mark >= intPassMark)
Me.Resit = Not Me.Pass
End If

End Sub
--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Terry" <tc*****@merseymail.com> wrote in message
news:38*************************@posting.google.co m...

I am new to VB and still have difficulty writing Subs. The following
Sub Automatically updates two Check Boxes, Pass & Resit, in a form
which stores data re Exam Details.

Private Sub Mark_AfterUpdate()

If IsNull(Me.Mark) Then
Me.Pass = False
Me.Resit = False
Else
Me.Pass = (Me.Mark >= 24)
Me.Resit = Not Me.Pass
End If

End Sub

This works fine with exams that have a pass mark of 24 or over.
However There is one module, module 1, which has a pass mark of 27 or
over. The data which records the module number (Module ID) is stored
as a number from 1 to 7.

Will it be possible to ammend the Sub so that it takes this into
account, for instance:

ElseIf
Me.[Module ID] = 1 And Me.Pass = (Me.Mark >=27) Then
Me.Resit = Not Me.Pass

I have tried this with no success. Can you help?
Terry

[Terry]

Thanks for your help Allen......Works like a dream!
Terry

"Allen Browne" <Al*********@SeeSig.Invalid> wrote in message news:<3f**********************@freenews.iinet.net. au>...

Private Sub Mark_AfterUpdate()
Dim intPassMark As Integer

If Me.[Module ID] = 1 Then
intPassMark = 27
Else
intPassMark = 24
End If

If IsNull(Me.Mark) Then
Me.Pass = False
Me.Resit = False
Else
Me.Pass = (Me.Mark >= intPassMark)
Me.Resit = Not Me.Pass
End If

End Sub
--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Terry" <tc*****@merseymail.com> wrote in message
news:38*************************@posting.google.co m...

I am new to VB and still have difficulty writing Subs. The following
Sub Automatically updates two Check Boxes, Pass & Resit, in a form
which stores data re Exam Details.

Private Sub Mark_AfterUpdate()

If IsNull(Me.Mark) Then
Me.Pass = False
Me.Resit = False
Else
Me.Pass = (Me.Mark >= 24)
Me.Resit = Not Me.Pass
End If

End Sub

This works fine with exams that have a pass mark of 24 or over.
However There is one module, module 1, which has a pass mark of 27 or
over. The data which records the module number (Module ID) is stored
as a number from 1 to 7.

Will it be possible to ammend the Sub so that it takes this into
account, for instance:

ElseIf
Me.[Module ID] = 1 And Me.Pass = (Me.Mark >=27) Then
Me.Resit = Not Me.Pass

I have tried this with no success. Can you help?
Terry