🚀 go-pugleaf

W dniu 28-02-2015 23:07, piotr1011 pisze:
> Ad 1 - nie ma takiej funkcji
> Ad 2 - zawsze taka sama zmienia się tylko data - plik jest dodawany codziennie  ( plik jest zawsze spakowany - nie spotkałem się jeszcze z importem do access ze "spakowanego " pliku - czy to możliwe ? jeżeli tak to też barzdo pomocna sprawa.

Ale możesz pobrać spakowany plik *.zip do jakiegoś folderu, rozpakować 
go, pobrać dane i skasować wszystko.

Pierwszy link zwrócony przez wujka Google na frazę: "access unzip":

https://accessexperts.com/blog/2012/02/06/zipandunzipfrommicrosoftvba/

> Ad 3 - pliki zapisywane są na dysku sieciowym wpisując na stałe daty od 01 do 31 w zależnosci jaki miesiąc , bede musiał "strzelać " czy dana data jest juz czy nie , jeżeli kod "wygeneruje "daty z dysku onmijam ten problenm i widze tylko daty aktualnie wprowadzonych plików na dysk.


Spróbuj coś takiego:
'_________________________________
' wypełnia kolumny combi1 danymi:
Private Sub Form_Load()
Dim sFileName As String
Dim sComboSource As String
Dim lLenSufix As Long
Dim lLenFileExt As Long
Const cFolder = "c:\der\fr\" ' <= koniecznie backslash na końcu
Const cFileSufix As String = "panorama " '<= spacja na końcu
Const cFileExt As String = "xls"
Const cMaskDir As String = "*."

    lLenSufix = Len(cFileSufix)
    lLenFileExt = Len(cFileExt)
    sFileName = Dir(cFolder & cFileSufix & cMaskDir & cFileExt)

    Do Until sFileName = ""
       ' By nie komplikować i tworzyć zmienne publiczne
       ' combi1 posiada 2 kolumny, 1-sza widoczna,
       ' 2-ga ukryta przechowuje pełne ścieżki do pliku
       sComboSource = sComboSource & _
                      Mid$(sFileName, lLenSufix, _
                      Len(sFileName) - (lLenSufix + 4)) & ";" & _
                      cFolder & sFileName & ";"
       sFileName = Dir
    Loop

    Me.combi1.ColumnCount = 2
    Me.combi1.BoundColumn = 1
    Me.combi1.ColumnWidths = Me.combi1.Width & ";0"
    Me.combi1.RowSourceType = "Value List"
    Me.combi1.RowSource = sComboSource

End Sub
'_____________________________________________________________
' po wybraniu pozycji z listy pobiera dane do tabeli cDstTable
Private Sub combi1_AfterUpdate()
Const cDstTable As String = "JakasTwojaTabela"

   DoCmd.TransferSpreadsheet acImport, , cDstTable, _
           Me.combi1.Column(1), True, _
           "TwojaNazwaZakladki!a1:r25"

End Sub


-- 
Pozdrowienia
BraZby
www.faq.accdb.pl/
www.acc97.accdb.pl/