🚀 go-pugleaf

W dniu 14.08.2022 o 13:04, Phantom pisze:
> Dzień dobry
> Dotyczy: MSAccess2000
> 
> Proszę o pomoc.
> Potrzebuję usuwać hurtowo (za pośrednictwem kodu) tabele lokalne mające w  swojej nazwie składnik "tymcz", czyli np.:
> Zestawieniatymcz
> Fakturytymcz
> Okresytymcz
> ....
> ....
> 
> 
> 
> Z góry dziękuję za pomoc
> Pozdrawiam
> Tomek


' Wywołanie:
' wydruk tabel - UsuwajTabeleTymcz()
' usuwanie tabel - - UsuwajTabeleTymcz(True)
'-------------------------------------------------------------------
Public Function UsuwajTabeleTymcz(Optional blnKasuj As Boolean = False)
Dim db As DAO.Database
Dim strNazwaTabeli As String
Dim i As Integer

Const conTYMCZ As String = "tymcz"

   'On Error Resume Next
   Set db = CurrentDb
     For i = 0 To db.TableDefs.Count - 1
       strNazwaTabeli = db.TableDefs(i).Name
       If Left$(strNazwaTabeli, 4) <> "MSys" Then
         'Jeżeli składnik "tymcz" zawsze występuje na końcu
         'to użyj ewentualnie: If Right$ (strNazwaTabeli,5) = conTYMCZ
         If InStr(1, strNazwaTabeli, conTYMCZ, vbTextCompare) > 0 Then
           If blnKasuj = True Then
             db.TableDefs.Delete strNazwaTabeli
           Else
             Debug.Print i, strNazwaTabeli
           End If
         End If
       End If
     Next
   Set db = Nothing

End Function

-- 
Pozdrawiam
LX'yrs