GoldenLine
Zaloguj się
Robert Wołgajew

Robert Wołgajew

Temat: Usuwanie rekordów na formularzu ciągłym?

Witajcie
Mam formularz ciągły z którego chciałbym mieć możliwość usuwania wyłącznie wybranych rekordów, a dokładnie tych, dla których pole Data jest różne od bieżącej daty systemowej. Jak to najłatwiej zrobić? Pomyślałem o umieszczeniu na tym formularzu przycisku i oprogramowaniu go w VBA. Nie wiem jednak, jakiego kodu użyć. Prośba o pomoc. Pozdrawiam... R
Link do wypowiedziLink
Krzysztof Bednarz

Krzysztof Bednarz .

Temat: Usuwanie rekordów na formularzu ciągłym?



public function pUsunRekordyInneNizDzisiaj as boolean

dim strSQL as String



on error goto err_handler

strsql="DELETE FROM NazwaTabeli WHERE PoleDaty<>#" & DateSerial(Year(now), Month(now), Day(now)) & "#;"

DOcmd.setwarnings false

docmd.runSQL strsql



pUsunRekordyInneNizDzisiaj =true



err_handler:

Docmd.setwarnings true

on error goto 0



end function

Pamiętaj żeby formularz ciągły był do odczytu. Inaczej będziesz dostawał błąd.

Zawsze możesz jeszcze po wykonaniu się funkcji odświeżyć dane (instrukcja dla przycisku):
if pUsunRekordyInneNizDzisiaj then me.fsub.form.requery

Pozdrawiam

Edit:
Zgubiłem jeden nawias.Ten post został edytowany przez Autora dnia 05.09.21 o godzinie 22:59
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj