GoldenLine
Zaloguj się
Mateusz Sobkowiak

Mateusz Sobkowiak Właściciel, Mateusz
Sobkowiak Usługi
Elektryczne

Temat: Formularz wyszukiwarka

Witam serdecznie, mam problem, mam stworzoną bazę danych w access i do tej bazy chcialbym stworzyc formularz w ktorym podajemy dane i poniżej tych pól wyboru zostanie wyswietlony rekord ktory spełnia wymagania wybranym kryterią. Dokladniej mówiąc baza tyczy sie wylaczników.
Link do wypowiedziLink
Wojciech Muszyński

Wojciech Muszyński Tworzenie aplikacji
bazodanowych
(Oracle, APEX,
Access)

Temat: Formularz wyszukiwarka

Bardzo eleganckim rozwiązaniem jest stworzenie przeglądarki w postaci listy wyboru.
U góry formularza znajdują się pola związane z kryteriami.
Głównym elementem jest lista wyboru, zawężona do rekordów spełniających kryteria.
Podwójne kliknięcie lub przycisk "szczegóły" otwiera formularz szczegółów.

Przykład wyglądu takiego formularza:


Obrazek
Link do wypowiedziLink
Mateusz Sobkowiak

Mateusz Sobkowiak Właściciel, Mateusz
Sobkowiak Usługi
Elektryczne

Temat: Formularz wyszukiwarka

tak, dokładnie o to mi chodzilo, przez jakie funkcje zrealizuje takie zadanie? czy sa dostepne w internecie bazy danych o podobnym działaniu na których mógłbym sie bazować albo podobne watki?
Link do wypowiedziLink
Wojciech Muszyński

Wojciech Muszyński Tworzenie aplikacji
bazodanowych
(Oracle, APEX,
Access)

Temat: Formularz wyszukiwarka

Aby zrobić taki zaawansowany formularz w Accessie - trzeba stworzyć listę wyboru i generować dynamicznie zapytanie z którego pobiera dane. Potrzebne jest do tego dużo kodu VBA. Nie podejmę się tłumaczyć przez internet.

Znacznie prościej jest zrobić wyszukiwarkę na bazie standardowego formularza ciągłego:


Obrazek



W takim przypadku pod przyciskiem wyszukaj należy wpisać taki kod:


  Private Sub B_WYSZUKAJ_Click()

    Dim temp As String



    Me.Pole_wyszukiwania = "*" & Me.Pole_wyszukiwania & "*"

    

    temp = "[Nazwa części] LIKE '" & Me.Pole_wyszukiwania

    temp = temp & "' OR [Nr seryjny Typ] LIKE '" & Me.Pole_wyszukiwania & "'"

   

    Me.Filter = temp

    Me.FilterOn = True

End Sub
Wojciech Muszyński edytował(a) ten post dnia 21.03.13 o godzinie 06:40
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Formatowanie wiersza Formul...




Wyślij zaproszenie do
Anuluj