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
to podłączę się do wątku..
Jak można w VB w procedurze SUB zapisać select , który sprawdza czy w danej tablicy są określone rekordy( warunek że pole w rekordzie jest puste) , sumuje je i jeśli jest ich np. 100 wyświetla monit że przekroczono limit.