Access VBA

Witam
Program: Access
Poszukuję jakiegoś skryptu VBA który "sprawdzi czy liczby w tabeli są parzyste i wyświetli odpowiedni komunikat"

Podmien tabela na nazwę tabeli, liczba na kolumnę ktora sprawdzasz

If dcount("liczba","tabela","liczba mod 2>0")> 0 Then
    msgbox "są nieparzyste"
else
   msgbox "tylko parzyste"
end if

Mam wprowadzone 50 liczb "od 1-50 wprowadziłem " i tylko pokazuje okno "są nieparzyste"

No zgodnie jak pisaleś w pierwszym poscie sprawdzam wszystkie i wyświetlam komunikat, co się nie zgadza?

Jeśli mam wprowadzone 50 liczb tak jak jest w załączniku wysłane zdj to mam zmienić coś tu?
↓
" If dcount("liczba","tabela","liczba mod 2>0")> 0 Then "

Pytanie co chcesz osiągnąć? sprawdzić pokolei i dla każdej wyświetlać komunikat?

tak

Pisze z palca, mogą być błędy

    Dim dbs As DAO.Database
    Dim rsTable As DAO.Recordset
    
    Set dbs = CurrentDb
    
    Set rsTable = dbs.OpenRecordset("tabela", dbOpenTable)

    Do until rsTable.EOF
          if rsTable!liczba mod 2 = 0 then
               msgbox "Parzysta"
         else
               msgbox "nieparzysta"
         end if
          rsTable.MoveNext
    loop

   rsTable.Close
  set rsTable = Nothing