Error 3125 bei CreateTableDef

28/07/2008 - 23:27 von Oliver Erdelt | Report spam
Moin,

Habe hier ein blöden Fehler, weiß aber nicht warum...
Bei diesem Code kommt nach Append immer...
"E:\DB\Instandsetzung\InstDat.mdb ist kein gültiger Name"
Error ist 3125.
Der Pfad ist aber richtig, wird vorher mit einem Filedialog
ermittelt.
Habt ihr ne Idee wo ich suchen muß?

MfG
Olli

'Code
Function ConnectDB2(ByVal DataPath As String) As Boolean
On Error GoTo ConnectDB2Error
Dim i As Integer
Dim db As Database
Dim tdf As TableDef
Set db = CurrentDb
Set tdf = db.CreateTableDef(DataPath)

Const MAXTABLES = 2

Static Tables(MAXTABLES) As String

Tables(0) = "tblDefekte"
Tables(1) = "tblUser"
Tables(2) = ""

For i = 0 To MAXTABLES
If Len(Nz(Tables(i))) > 0 Then
On Error Resume Next
DoCmd.DeleteObject acTable, Tables(i)
On Error GoTo ConnectDB2Error
tdf.SourceTableName = Tables(i)
tdf.Connect = ";DATABASE=" & DataPath
db.TableDefs.Append tdf
End If
Next i
ConnectDB2 = True

ConnectDB2Exit:
Exit Function

ConnectDB2Error:
ConnectDB2 = False
MsgBox Err.Description & Err.Number
Resume ConnectDB2Exit

End Function
 

Lesen sie die antworten

#1 Peter Doering
29/07/2008 - 01:51 | Warnen spam
Hallo,

Oliver Erdelt wrote:

Habe hier ein blöden Fehler, weiß aber nicht warum...
Bei diesem Code kommt nach Append immer...
"E:\DB\Instandsetzung\InstDat.mdb ist kein gültiger Name"
Error ist 3125.
Der Pfad ist aber richtig, wird vorher mit einem Filedialog
ermittelt.
Habt ihr ne Idee wo ich suchen muß?
[...]
Tables(0) = "tblDefekte"
Tables(1) = "tblUser"
Tables(2) = ""

For i = 0 To MAXTABLES
If Len(Nz(Tables(i))) > 0 Then
On Error Resume Next
DoCmd.DeleteObject acTable, Tables(i)
On Error GoTo ConnectDB2Error
tdf.SourceTableName = Tables(i)
tdf.Connect = ";DATABASE=" & DataPath
db.TableDefs.Append tdf
End If
Next i
[...]



Unabhaengig vom Fehler, wenn ich deinen Code richtig lese, stellst du den
Link zu den gleichen Tabellen wieder her. Warum machst du das nicht einfach
nach FAQ 3.1, also .Append und .RefreshLink?

Gruss - Peter

Ich beantworte keine Fragen per Email.
Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen