Znalezienie wystąpień funkcji własnej (użycia) we wszystkich kwerendach danego projektu

Thread View: pl.comp.bazy-danych.msaccess

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by MaciejF Tue, 17 Mar 2015 08:14

#136841

Author: MaciejF
Date: Tue, 17 Mar 2015 08:14

8 lines
1471 bytes

Witam,
Czy może ktoś wie jak znaleźć wszystkie przypadki użycia funkcji własnej,
na przykład w zbiorze kwerend danego projektu?
Czy coś takiego jest w ogóle możliwe bez uniknięcia sprawdzenia po kolei każdej zapisanej kwerendy?

Z góry dziękuję za odpowiedzi!
/
MF

Re: Znalezienie wystąpień funkcji własnej (użycia) we wszystkich kwerendach danego projektu

#136842

Author: Jacek
Date: Tue, 17 Mar 2015 09:54

12 lines
1403 bytes

Dnia Tue, 17 Mar 2015 01:14:37 -0700 (PDT), MaciejF napisał(a):

> Witam,
> Czy może ktoś wie jak znaleźć wszystkie przypadki użycia funkcji własnej,
> na przykład w zbiorze kwerend danego projektu?
> Czy coś takiego jest w ogóle możliwe bez uniknięcia sprawdzenia po kolei każdej zapisanej kwerendy?
> 
> Z góry dziękuję za odpowiedzi!
> /
> MF

Dokumentator-Eksportuj do TXT, a potem Ctrl+f.

Re: Znalezienie wystąpień funkcji własnej (użycia) we wszystkich kwerendach danego projektu

#136843

Author: Zbigniew Bratko
Date: Tue, 17 Mar 2015 10:59

36 lines
1905 bytes

W dniu 17-03-2015 09:14, MaciejF pisze:
> Witam,
> Czy może ktoś wie jak znaleźć wszystkie przypadki użycia funkcji własnej,
> na przykład w zbiorze kwerend danego projektu?
> Czy coś takiego jest w ogóle możliwe bez uniknięcia sprawdzenia po kolei każdej zapisanej kwerendy?
>
> Z góry dziękuję za odpowiedzi!
[...]

A może coś takiego:

Private Sub btnTest_Click()
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim sMyFunction As String

    sMyFunction = "MojaFunkcja"

    Set dbs = CurrentDb
       For Each qdf In dbs.QueryDefs
          With qdf
             If InStr(1, .SQL, "MojaFunkcja", vbTextCompare) > 0 Then
                Debug.Print .Name & vbNewLine & .SQL
             End If
          End With
       Next
    Set dbs = Nothing

End Sub


-- 
Pozdrowienia
BraZby
www.faq.accdb.pl/
www.acc97.accdb.pl/

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads