Problem beim Erstellen einer Paradox Tabelle

[haentschman]

Hallo alle...

bitte nicht gleich teeren und federn wegen Paradox....

folgender im Prinzip einfacher Code..

Delphi-Quellcode:

procedure TabWartungerzeugen;
begin
  with Form1.TabWartungsprotokoll do
    begin
      TableType := ttParadox;
      TableName := WartungPName;
      with FieldDefs do
        begin
          Clear;
          with AddFieldDef do
            begin
              Name := 'Nummer';
              DataType := ftString;
              Size := 30;
            end;
          with AddFieldDef do
            begin
              Name := 'Gruppe';
              DataType := ftString;
              Size := 30;
            end;
          with AddFieldDef do
            begin
              Name := 'Tatigkeit';
              DataType := ftString;
              Size := 100;
            end;
          with AddFieldDef do
            begin
              Name := 'IO';
              DataType := ftBoolean;
            end;
          with AddFieldDef do
            begin
              Name := 'Mangel';
              DataType := ftBoolean;
            end;
          with AddFieldDef do
            begin
              Name := 'Erledigt';
              DataType := ftBoolean;
            end;
        end;
      with IndexDefs do
        begin
          with AddIndexDef do
            begin
              Name := '';
              Fields := 'Nummer;Gruppe;Tatigkeit';
              Options := [ixPrimary];
            end;
        end;
      CreateTable;
    end;
end;

Infos:

WartungPName enthält kpl. Verzeichnis incl. Dateinamen z.B. 'C:\Test\WP2007.DB'
TabWartungsprotokoll ist Active:= False

zum Problem:

der erste Durchlauf der procedure ist ok die Tabelle wird wie gewünscht erstellt.
vor dem 2. Durchlauf wird WartungPName geändert in z.B 'C:\Test\WP2008.DB'

beim CreateTable erhalte ich folgenden Fehler:

bla..bla..bla.. Invalid Parameter....Table 'C:\Test\WP2008.DB' does not exist

ist ja klar...sie soll ja erstellt werden

Danke für eure Mithilfe...