[VBA] Stały adres do folderu... Opcje

[Dsmian]

Witam,
Tworzę szkolny projekt w Accessie. Jest to gra "jednoręki bandyta". W kodzie mam określoną lokalizację obrazków, które są losowane. Problem jest wtedy gdy przeniesiemy folder z projektem.
Chciałbym się dowiedzieć czy jest możliwość podania lokalizacji folderu który znajduję się równolegle wraz z bazą w jednym katalogu (bez konieczności podawania całego adresu) lub czy można jakoś "wyciągnąć" aktualną pozycję bazy. Był jeszcze pomysł, żeby przed uruchomieniem gry access nas zapytał o adres folderu. Jestem początkujący w VBA dlatego chciałbym się od was dowiedzieć jak można by to rozwiązać.

Kod

sws1 = Int((6 * Rnd) + 1)
    P1 = "J" & sws1 & ".BMP"
        Obraz1.Picture = "H:\Szkoła\Oprogramowanie biurowe\Projekty - MS Access\Jednoręki bandyta\Obrazki\" + P1

Część kodu o której piszę jest powyżej. Do zmiennej sws1 jest przyporządkowywana liczba od 1 do 6. P1 to nazwa obrazka (np. J1.BMP)
Obraz1.Picture - lokalizacja o której wspomniałem we wstępie.

Ten post edytował Dsmian 30.05.2013, 15:13:05

[Azek]

Aktualna pozycja bazy:

[PHP] pobierz, plaintext 
CurrentProject.Path
[PHP] pobierz, plaintext 

Link do obrazka:

[PHP] pobierz, plaintext 
CurrentProject.Path & "\Obrazki\" & P1
[PHP] pobierz, plaintext 

Jeśli nie zadziała to zmień na:

[PHP] pobierz, plaintext 
CurrentProject.Path & "/Obrazki/" & P1
[PHP] pobierz, plaintext 

Pisałem z pamięci ale powinno zadziałać.

Ten post edytował Azek 20.08.2013, 19:23:13