Hej. Czy jest jakiś prosty sposób na przekazanie zmiennej z jednego "suba" do innego "sub
a"? Znalazłem jakieś rozwiązania, jednak żadne mnie nie satysfakcjonuje. Mój kod wygląda tak jak poniżej. Jak w łatwy sposób przekazać dalej "przypisanie"?
Sub wpr_wyborProjektu_AfterUpdate()
' Pierwsza część kodu
krotkaNazwaProjektu = wpr_wyborProjektu.Text ' Przepisanie wybranego projektu do pola - chodzi o samą nazwę.
strSql = "SELECT Ewidencje.ID_ewidencji FROM Ewidencje INNER JOIN KP_KartyProjektow on Ewidencje.ID_kartyProjektu = KP_KartyProjektow.ID_kartyProjektu WHERE KP_KartyProjektow.KP_krotkaNazwaProjektu = '" & krotkaNazwaProjektu & "' "
Set rst = CurrentDb.OpenRecordset(strSql)
przypisanie = rst!ID_ewidencji
' Dalsza część kodu
Else
End If
End Sub
Chciałbym tego użyć tutaj:
Sub wpr_okres_AfterUpdate()
Dim zmienna As String
zmienna = wpr_okres.Text
Tekst210.Value = zmienna
MsgBox przypisanie
MsgBox zmienna
zapytanko = "SELECT RAP_Raporty.RAP_zrealizowaneZadania FROM RAP_Raporty INNER JOIN Ewidencje on Ewidencje.ID_ewidencji = RAP_Raporty.ID_ewidencji WHERE Ewidencje.ID_ewidencji = " & przypisanie & " AND RAP_Raporty.RAP_okresRaportu = '" & zmienna & " ' "
End Sub