title image


Smiley oder so
Hallo,

ich glaube Du meinst sowas:







Sub DB_erstellen()

Dim DB As DAO.Database  

Dim Datei As String  



On Error GoTo Fehler    



Datei = ThisWorkbook.Path & "\Datenbank.mdb"



'MsgBox Datei



'prüfen ob Datei schon vorhanden ist

If Dir(Datei) <> "" Then  

   MsgBox "Datei ist schon vorhanden!", , _

          "keine Änderung durchgeführt"

Else

   Set DB = CreateDatabase(Datei, dbLangGeneral)

   Set DB = Nothing  

End If  



Exit Sub  



Fehler:

Set DB = Nothing  

MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _

        & "Beschreibung: " & Err.Description _

       , vbCritical, "Fehler aufgetreten"

End Sub  













Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: