Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Access 2000, per VBA frage ob eine aktuelle MDB Tabelle existert dann die Tabelle Löschen
126 views
Skip to first unread message
ntoni nsimba
Mar 21, 2014, 11:29:53 AM3/21/14
to
Hallo
ich möchte frage per VBA ob eine Access Tabelle existiert wenn Ja
Dann diese Tabelle löschen.
wie kann ich diese Code realisieren ?
Danke in Voraus für Ihre Hilfe
Ntoni Nsimba
ich möchte frage per VBA ob eine Access Tabelle existiert wenn Ja
Dann diese Tabelle löschen.
wie kann ich diese Code realisieren ?
Danke in Voraus für Ihre Hilfe
Ntoni Nsimba
Peter Doering
Mar 21, 2014, 8:39:27 PM3/21/14
to
Hallo,
ntoni nsimba wrote:
> ich möchte frage per VBA ob eine Access Tabelle existiert wenn Ja
> Dann diese Tabelle löschen.
> wie kann ich diese Code realisieren ?
Mit so einer Funktion:
Public Function FieldExists(strTable As String, strField As String) _
As Boolean
Dim Db As DAO.Database
Dim Tdf As DAO.TableDef
Dim Fld As DAO.Field
FieldExists = False
Set Db = CurrentDb
Set Tdf = Db.TableDefs(strTable)
For Each Fld In Tdf.Fields
If Fld.Name = strField Then
FieldExists = True
Exit For
End If
Next Fld
Set Fld = Nothing
Set Tdf = Nothing
Set Db = Nothing
End Function
(Luftcode)
Fehlerbehandlung musst du noch einbauen, speziell, wenn die Tabelle nicht
gefunden werden kann.
Gruss - Peter
--
Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com
ntoni nsimba wrote:
> ich möchte frage per VBA ob eine Access Tabelle existiert wenn Ja
> Dann diese Tabelle löschen.
> wie kann ich diese Code realisieren ?
Public Function FieldExists(strTable As String, strField As String) _
As Boolean
Dim Db As DAO.Database
Dim Tdf As DAO.TableDef
Dim Fld As DAO.Field
FieldExists = False
Set Db = CurrentDb
Set Tdf = Db.TableDefs(strTable)
For Each Fld In Tdf.Fields
If Fld.Name = strField Then
FieldExists = True
Exit For
End If
Next Fld
Set Fld = Nothing
Set Tdf = Nothing
Set Db = Nothing
End Function
(Luftcode)
Fehlerbehandlung musst du noch einbauen, speziell, wenn die Tabelle nicht
gefunden werden kann.
Gruss - Peter
--
Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com
Karl Donaubauer
Mar 26, 2014, 6:35:44 PM3/26/14
to
ntoni nsimba wrote:
> ich möchte frage per VBA ob eine Access Tabelle existiert wenn Ja
> Dann diese Tabelle löschen.
> wie kann ich diese Code realisieren ?
Prüfen ob Tabelle vorhanden
> ich möchte frage per VBA ob eine Access Tabelle existiert wenn Ja
> Dann diese Tabelle löschen.
> wie kann ich diese Code realisieren ?
http://www.donkarl.com?FAQ3.4
Löschen geht dann per SQL mit "DROP TABLE Tabellenname"
oder mit
DoCmd.DeleteObject acTable, "Tabellenname"
--
Servus
Karl
*********
Access-FAQ: http://www.donkarl.com
0 new messages