Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Usuwanie tabel z konkretnym składnikiem w nazwie
25 views
Skip to first unread message
Phantom
Aug 14, 2022, 7:04:52 AM8/14/22
to
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
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
LX'yrs
Aug 27, 2022, 7:58:25 AM8/27/22
to
W dniu 14.08.2022 o 13:04, Phantom pisze:
' 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
' 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
Phantom
Sep 26, 2022, 7:04:44 AM9/26/22
to
Dziękuję bardzo.
0 new messages