ואיך אם הוא לא מסומן?

If Not Nz(.Fields("גמרא").Value, False) Then

או שאפשר לבדוק את שניהם:

If Nz(.Fields("גמרא").Value, False) Then
' Do something if true
Else
' Do something else if false
End If

If Nz(.Fields("גמרא").Value, False) Then

ואיך אם הוא לא מסומן?

amount = 50 + amount * 50

לגבי השדה "המיוחד" שמוסיף 100, תבדוק אותו בסוף ואם הוא מסומן - תוסיף 100.

עבור כל רשומה, הוא בודק השדה אלעד, ואם הוא מסומן, הוא מוסיף 100 לתוצאה.
באופן דומה הוא סורק את הערך בשדה גמרא ומגדיל את התוצאה ב-50 אם הוא מסומן.

תודה!
אבל זה קצת צריך שינוי.
כי אני לא יודע האם הוא מאלעד, ירושלים , או ביתר...
יש לי 7 רשומות שכולם אותו דבר כלומר הוא יכול להיות מסומן בכולם\ חלקם ויכול לא להיות מסומן בכלל וחוץ מזה יש לי ערך שמיני שהוא מוסיף 100.

כלומר אני לא יודע מה הערך הראשון שאותו להגדיר כ100 ואת השאר כ50 . אני רוצה שעל הנתון הראשון יביא 100 , השאר 50, ועוד מישהו שמוסיף 100.

Public Sub ScanRecords()
  Dim rs As DAO.Recordset
  Dim amount As Integer
  Set rs = CurrentDb.OpenRecordset("People", dbOpenDynaset, dbSeeChanges)
  With rs
    While Not .EOF
        amount = 0
        If Nz(.Fields("אלעד").Value, False) Then
            amount = amount + 100
        End If
        If Nz(.Fields("גמרא").Value, False) Then
                    amount = amount + 50
        End If
         ' Save the value in the record
        .Edit
        .Fields("תוצאה").Value = amount
        .Update
        .MoveNext
    Wend
    .Close
  End With
End Sub

אמנם זה לא בדיוק מה שביקשת, כי התוצאה נשמרת בטבלה המקורית. אבל תן לחכם ויחכם עוד...