🚀 go-pugleaf

Witam wszystkich forumowiczów
Dobrych kilka lat temu stworzyłem na potrzeby własnej pracy bazę danych nieruchomości z formularzami wprowadzającymi dane oraz formularzami wyszukującymi.
Baza powstała przy pomocy wielu uprzejmych forumowiczów z tej grupy. Na wstępie chciałbym zaznaczyć, iż nie jestem programistą, ani informatykiem, a jedynie zaawansowanym użytkownikiem komputerów i oprogramowania, który potrafił zaimplementować fragmenty kodu z Waszych (forumowiczów) podpowiedzi do Bazy Danych, aby działała.  Jako, że na paru komputerach firmowych mam zainstalowanego starego Office'a 2000 (który do dzisiaj w zupełności mi wystarcza do mojej pracy) pod Windows XP :-), baza danych powstawała pod Access 2000. Niestety do bazy danych dołączyło parę nowych osób, które posiadają nowsze Accessy i Windowsy i baza nie jest w pełni kompatybilna. Dużo funkcji i komend działa, niestety pewne fragmenty kodu nie działaj. Proszę o pomoc w modyfikacji kodu, aby stał się on kompatybilny pomiędzy Accessami (2000 i nowszymi). Kod ten jest odpowiedzialny za automatyczne powielanie wpisów w nowym formularzu(w pewnych listach wyborów) z poprzedniego formularza. Kod (makro) wygląda następująco:

Private Sub Polecenie233_Click()
Dim rs As Object
        Set rs = Me.Recordset.Clone
    If rs.EOF Or Not Me.NewRecord Then
    Else
        With rs
            
            .MoveLast
                       
            Me![KombiWojewodztwo] = .Fields("Wojewodztwo")
            Me![SpisPowiatow] = .Fields("Powiat")
            Me![JednostkaEwid] = .Fields("JednostkaEwid")
            Me![Obreb] = .Fields("Obreb")
            Me![Kombi156] = .Fields("JednostkaEwid")
            Me![Kombi190] = .Fields("Obreb")
            Me![RodzajNieruch] = .Fields("RodzajNieruch")
            Me![SpecyfikacjaNieruchomosci] = .Fields("SpecyfikacjaNieruch")
            Me!SpecyfikacjaNieruchomosci.SetFocus
            
            Me![Sprzedajacy] = .Fields("Sprzedajacy")
            Me![Kupujacy] = .Fields("Kupujacy")
            Me![ZrodloDanych] = .Fields("ZrodloDanych")
            Me![StanPrawny] = .Fields("StanPrawny")
            Me![WprowadzajacyDane] = .Fields("WprowadzajacyDane")
                        
        End With

    End If
    
End Sub

Niestety powyższy kod nie działa na Accessach wyższych niż Access 2000

Dodam, że w moim Access 2000 mam zaznaczone następujące biblioteki w Referencjach:
Visual Basic For Applications
Microsoft Access 9.0 Object Library
OLE Automation
Microsoft ActiveX data Objects 2.1 Library
Microsoft DAO 3.6 Object Library
Microsoft Office Web Components 9.0
Microsoft ADO Ext. 2.8 for DDL and Security

niestety nie we wszystkich nowych Accessach występują te biblioteki i to chyba jest przyczyną braku kompatybilności. Czy można powyższy kod zmodyfikować, aby był kompatybilny pomiędzy platformami Accessa, czy może w jakiś sposób zaimplementować biblioteki z powyższej listy do nowszych Accessów (i gdzie je ewentualnie znaleźć ? - biblioteki)

Dziękuję za wszelkie sugestie i ewentualną pomoc.
Marek Idźkowski