Ustawienie pola w formularzu na podstawie nazwy pola jako string

Ustawienie pola w formularzu na podstawie nazwy pola jako string
ZK
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 3
0

Witam;

Mam problem z kodem. Sprawa wydaje się banalna, ale nie jestem w stanie tego ogarnąć. Program, w dużym uproszczeniu, wygląda następująco:

  • Formularz o nazwie KOSZTY posiada dwa pola o nazwach: TEKST4 i TEKST6.
  • W zależności od wartości parametru PARAM jednemu z tych pól nadawana jest wartość 123.

Skrypt wykłada się na poleceniu Forms![KOSZTY].pole = 123. Chodzi o nieprawidłową składnię polecenia.

Kopiuj
Sub ccc(param)
Dim pole As String
    If param = 1 Then
        pole = "Tekst6"
    ElseIf param = 2 Then
        pole = "Tekst4"
    End If
Forms![KOSZTY].pole = 123
End Sub

Formularz nie jest skojarzony z żadną tabelą więc operowanie na danych (za pomocą np. polecenia RecordSet) nie wchodzi w grę.

Wiem, że można polecenie Forms![KOSZTY].nazwapola umieścić w każdym segmencie polecenia IF..ENDIF, ale to jest ostateczność - w rzeczywistości formularz posiada około 600 pól.

Z góry dziękuję za pomoc.

ZK
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 3
0

VBA for MS Access

Riddle
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 10230
ZK
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 3
0

BINGO !!!

Polecenie Controls załatwiło problem. Poprawna składnia to Forms![KOSZTY].Controls(pole) = 123

Bardzo dziękuję za pomoc.

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.