Jak odwołać się do bieżącego formularza w wyrażeniu w programie Microsoft Access?

Question

Nie jestem ekspertem ds. Dostępu i mam (mam nadzieję!) Proste pytanie ...

Mam formularz z wieloma zapisami. W niektórych polach tekstowych właśnie przedstawiam wartości z bazowej tabeli - więc są one powiązane z odpowiednimi polami.

Jednak niektóre pola tekstowe powinny zawierać wartości obliczone. Niektóre obliczenia są skomplikowane i obejmują wiele pól z tabeli. Piszę obliczenia jako funkcję VBA. Mogę wprowadzić coś takiego jak "Źródło kontroli":

=MyFunction([Field1], [Field2], [Field3] ...) 

Ale nie chcę wyświetlać dziesiątek pól w wywołaniu funkcji. Zamiast tego chcę wysłać cały formularz (lub bieżący rekord) jako parametr, i niech funkcja odwoła się do pól, których potrzebuje. Mogę to zrobić tak:

=MyFunction([Forms]![MyForm]) 

Ale nie podoba mi się nazwa formularza w zaproszeniu. Czy nie ma sposobu, aby wysłać "bieżącą formę" jako argument funkcji? W języku VBA wystarczy użyć słowa kluczowego "Ja", np. "Me! [Field1]". Ale wydaje się, że "Ja" nie jest akceptowane w wyrażeniu.

Czy istnieje jakiś inny sposób odniesienia do bieżącego formularza w wyrażeniu?

(To jest pytanie kosmetyczne, wiem, ale to nie jest dobre programowanie do użycia "[Form]! [MyForm]". Później kopiujesz kontrolki do innej formy i zapominasz zmienić nazwę w wyrażeniu. .)

Wdzięczny za pomoc! :-)

/Anders

Answer 1

Można użyć:

=MyFunction([Form]) 

kodu będzie:

Function MyFunction(frm As Form) 
MsgBox frm.Name 
End Function 

Answer 2

'ja' może być wywołana tylko z wnętrza obiektu odpowiednim formularzu (tj. w procedurach obiektu, funkcjach i zdarzeniach).

Mój ulubiony sposób odnieść się do obecnej postaci jest wywołanie obiektu screen.activeForm ...

screen.activeForm.recordset.fields(myFieldname).value 
screen.activeForm.controls(myControl).value 
screen.activeForm.name 
.... 

oczywiście można wysłać obiekt formularza do niestandardowych funkcji

my Result = myCustomFunction(screen.activeForm) 

Lub możesz zbudować obiekt zdefiniowany przez użytkownika. Potrzebne pola można wówczas uznać za wewnętrzne właściwości, ustawione w podrzędnej Class_Initialize odpowiedniego obiektu.

Answer 3

Jeśli używasz kodu w formularzu, to "ja" odsyła do bieżącego formularza. Tak więc, "ja" nie może być używane w kontekście wyrażenia związanego z polem tekstowym.

W takim przypadku można pobrać bieżący ekran w procedurze za pomocą screen.activeform zgodnie z sugestią.

Często chodzę:

Dim f  as form 
Set f = screen.ActiveForm 

Answer 4

Screen.ActiveControl.Parent 
' or 
someControlVariable.Parent 

Używam tego czy chcę aktualny podformularz (lub utworzyć jeśli nie obecnie w podformularzu), ponieważ przy użyciu Screen.ActiveForm nie zapewnia bieżący podformularz, ale tylko formularz zawierający ten podformularz. Należy pamiętać o swoim kontekście, jeśli kontrola znajduje się w kontrolce zakładki, wówczas jej rodzicem jest kontrola karty, a nie formularz.

Answer 5

W ACC2013 nie mogłem użyć odpowiedzi fionnuala. Więc zmieniłem do:

obsługi zdarzeń w oknie właściciela:

=MyFunction() 

Mój kod byłoby:

Function MyFunction() 
    Dim frm As Form 
    Set frm = Screen.ActiveForm 
    MsgBox frm.Name 
End Function