Kod:
If answer_adj = DLookup("word", "adjectives", "Kimlik=" & adj_id) Then
result_adj.Value = "C O R R E C T"
result_adj.ForeColor = vbGreen
true_ans = Nz(true_ans, 0) + 1
Else: result_adj.Value = "F A L S E"
result_adj.ForeColor = vbRed
false_ans = Nz(false_ans, 0) + 1
End If