Create Table-Anweisung

[Jana]

Hallo,

ich habe eine Frage: Im Visual Basic-Code habe ich es schon mit der Create Table Anweisung (von SQL) hinbekommen, neue Tabellen zu erstellen. Das Problem ist aber, wenn eine Tabelle bereits besteht, dass lediglich vom System eine Fehlermeldung erscheint und das Programm abgebrochen wird. Ich möchte das Programm aber gerne so gestalten, dass, nachdem der Benutzer einen doppelten Tabellennamen angegeben hat, er sofort per MSG-Box eine Mitteilung bekommt und den Tabellennamen abändern muss. Wie kann ich das programmiertechnisch erreichen?

Habt ihr eine Idee bzw. könnt ihr mir weiter helfen?

Den VBA-/SQL-Code habe ich mal in einer Word-Datei (frmTabellenerstellung.doc) angehängt.

Vielen lieben Dank im Voraus für eure Mithilfe!

Gruß, Jana

[steffenk]

Du kannst der Create-Anweisung eine Lösch-Anweisung voranstellen:

sql_string = "DROP TABLE IF EXISTS `" + tabnam + "`;" +vbnewline;

Ansonsten müsstest Du überprüfen, ob die Tabelle bereits existiert.
Dafür kannst Du folgende Funktion benutzen:

Public Function RecordSetExistiert(NameRecordSet As String, Optional DatenBank As String = "") As Boolean
    Dim RecordSet As Object, DB As DAO.Database
    On Error GoTo ExistiertNicht
    If DatenBank = "" Then
        Set DB = CurrentDb
    Else
        ' Existiert die Datenbank-Datei ?
        If Dir$(DatenBank, vbHidden + vbReadOnly + vbSystem) = "" Then GoTo ExistiertNicht
        Set DB = OpenDatabase(DatenBank)
    End If
    
    RecordSetExistiert = True
    ' Namen aller Tabellen überprüfen
    For Each RecordSet In DB.TableDefs
        If RecordSet.Name = NameRecordSet Then Exit Function
    Next RecordSet
    ' Namen aller Abfragen durchsuchen
    For Each RecordSet In DB.QueryDefs
        If RecordSet.Name = NameRecordSet Then Exit Function
    Next RecordSet
    
ExistiertNicht:
    RecordSetExistiert = False
End Function

[Jana]

Hallo St@eff.en!

Danke für deine Hilfe! Das ist sehr nett von dir gewesen!
Leider hatte deine Lösung bei mir irgendwie nicht funktioniert.
Dennoch habe ich die Lösung herausbekommen und für alle, die es interessiert, als Word-Datei angehängt!

Gruß, Jana

[steffenk]

Ja, ich hab da auch ne falsche Funktion für Dein Problem gepostet.

hier die richtige (auch wenn Du es schon hast)

Public Function FnbTableExists(TableName As String) As Boolean 
' Checks for the existence of a query (named as QueryName) 
' and returns true if query exists. 
    Dim db  As DAO.Database 
    Dim tdf As DAO.TableDef 

    FnbTableExists = False 
    Set db = CurrentDb 
    For Each tdf In db.TableDefs 
        If tdf.Name = TableName Then 
            FnbTableExists = True 
            Exit Function 
        End If 
    Next tdf 
    Set tdf = Nothing 
    db.Close 
    Set db = Nothing 
End Function

PS es wäre einfacher, wenn Du Code auch in die Codeboxen platzierst als Worddokumente - nicht jeder kann sie lesen und es ist umständlich