🚀 go-pugleaf

W dniu środa, 1 sierpnia 2018 11:09:54 UTC+2 użytkownik Jan Koc napisał:
> Witam !!!
> Dziękuję za podpowiedź, już to przerabiałem. 
> Zaktualizować wersję w ten sposób oczywiście można, ale gdyby nazwa nowej bazy pozostawała taka sama (a nie da się tego zrobić, tzn. mnie się nie udało) to ok wszystkie stare skróty chodzą poprawnie i jest miodzio. Niestety przy zmianie nazwy trzeba pobawić się skrótami, co udało mi się dzięki zasobom internetu zrobić.  Ale nie do końca – problemy jak powyżej
> A tak dodatkowo, jak podejrzeć kod źródłowy używanej w tym przykładzie bazy ver.adp ?
Proszę bardzo :)

Napisałbym do autora - Krzysztofa Pozorka.
Tylko nie mam pojęcia - jak go namierzyć.

Zawartość projektu ver.adp :

'Ms Access - sztuczki i chwyty
'http://www.access.vis.pl/
'(c) Krzysztof Pozorek
'-----------------------------
'Uwaga możesz korzystać z prezentowanego rozwiązania,
'wyłącznie pod warunkiem pozostawienia powyższego nagłówka.

Private Sub Form_Timer()
On Error Resume Next
Dim OldPath As String   'ścieżka do starego pliku bazy
Dim CpyPath As String   'tu skopiujemy nowy plik (zanim zmienimy mu nazwę na właściwą)
Dim BakPath As String   'tu zrobimy backup starego pliku (na wszelki wypadek)
    OldPath = Me.OpenArgs
    If OldPath = "" Then
        DoCmd.Quit acQuitSaveNone
        'Nic nie robimy - zabezpieczenie przed pomyłkowym wykonaniem procedury.
        '(w OpenArgs musi być ścieżka do starego pliku bazy)
    Else
        BakPath = CurrentProject.Path & "\OldVer.bak"
        Kill BakPath    'usuwamy starą kopię
        'zachowujemy na wszelki wypadek starą wersję pod zmienioną nazwą
        Err = 0
        Name OldPath As BakPath
        If Err <> 0 Then
            'Aplikacja macierzysta jeszcze się nie zamknęła - czekamy daleja
        Else
            'finalne zapisanie nowej wersji pod starą nazwą pliku
            Kill OldPath
            Name CurrentProject.Path & "\NewVer.mdb" As OldPath
            DoCmd.Quit acQuitSaveNone
        End If
    End If
End Sub