Robisz wszystko aby utrudnić pomoc.
Jaka ona, ty osadzasz kwerendę na formularzu czy faktycznie wstawiasz tam podformularz?
Moze lepiej zrób kopie tego projektu accdb, usuń wszystkie obiekty niepotrzebne do odtworzenia problemu, usuń dane z tabel i wklej jako załącznik do posta. Bo opisy problemów jakie dajesz nie przybliżają nas do rozwiązania....
Tak to wygląda. Dane częściowo zmyślone (szczególnie nazwiska osób prowadzących). Usunąłem też kolumny, gdzie były listy rozwijalne- po za powiatami, bo ona jest potrzebna w kwerendzie.
Kwerendy są dwie: jedna wyświetla wszystkie dane, a druga służy testom dla konkretnych dat. Waham się czy podformularzem na być jedna z nich, czy specjalnie stworzony formularz
PS: Nie mogę umieść tu pliku Accdb, więc wrzucam link z dysku: https://drive.google.com/file/d/1CnldXibboN8IlEJz7WvLrKf7rx6dqjFc/view?usp=sharing
Kilka rzeczy błednych:
kwerenda z datami podformularz powinno być kwerenda z datamime.Recordsource bo to się odnosi do formularza głównego. Musisz zmienić źródło na podformularzu: Me.Kwerenda_z_datami_podformularz.Form.RecordSourceCały kod:
Private Sub Polecenie33_Click()
q = " SELECT * FROM [Kwerenda z datami]"
Me.Kwerenda_z_datami_podformularz.Form.RecordSource = q
End Sub
Private Sub Polecenie36_Click()
If Me.Tekst28 <> "" And Me.Tekst30 <> "" Then
q = "SELECT * FROM [Kwerenda z datami] WHERE [Data Rozpoczęcia czynności kontrolnych] >= #" & Format(Me.Tekst28, "dd-mm-yyyy") & "# AND [Data zakończenia czynności kontrolnych] <= #" & Format(Me.Tekst30, "dd-mm-yyyy") & "# "
Me.Kwerenda_z_datami_podformularz.Form.RecordSource = q
End If
End Sub
Od siebie dodam, nie używaj spacji w nazwach obiektór. Wyrób sobie nawyk nazywania kontrolek, bo teraz pamiętasz, ale wrócisz do kodu to przez nazwy będzie to nieczytelne.
Świetnie, działa,
a jakby to wyglądało w wariancie z jedną kontrolką?
W niej wpisywałoby się dowolną datę, a w wyniku byłby wyświetlane kontrole "aktywne" w tym dniu?
Nie wiem bowiem, jaką wersję chce i ostatecznie zaakceptuje przełożona?
zmieniasz warunek where:
If Me.Tekst28 <> "" Then
q = "SELECT * FROM [Kwerenda z datami] WHERE [Data Rozpoczęcia czynności kontrolnych] = #" & Format(Me.Tekst30, "dd-mm-yyyy") & "#"
Me.Kwerenda_z_datami_podformularz.Form.RecordSource = q
End If
Podtrzymam jeszcze ten wątek dopóki szefostwo będzie zadowolone.
Oby tylko daty prawidłowo pokazywał
Przełożona zadowolona, ale że apetyt rośnie w miarę jedzenia, stwierdziła że przydałoby się jeszcze 3 data: podpisania sprawozdania. Mógłbym spróbować sam, gdyby nie to że teraz jestem zajęty innymi sprawami.
W piątek 12.11 ja pracuje, a ona nie (i w poniedziałek 15.11) również. Albo dziś, albo we wtorek mam jej przekazać
