error in the database struture. The error(1190 in module 19)

abnainas wrote:

When i want to take a backup from dynamics NAV, this error appaers:
"There is an error in the database struture. The error (1190 in module 19)
may have been caused by the computer or a program.
Table: Item
Compny:
Key Fields: No."

Please advice

tbfield.SETRANGE(TableNo,[b]23[/b]);
tbfield.SETRANGE(Type,tbfield.Type::Code);
RRRec.GETTABLE([b]tbvendor[/b]);
dlgwindow.OPEN(txcwindow);
IF tbfield.('-') THEN BEGIN
  REPEAT
    dlgwindow.UPDATE(1,tbfield.FieldName);
    IF RRRec.('-') THEN BEGIN
      REPEAT
        FRField := RRRec.FIELD(tbfield."No.");
        IF FORMAT(FRField.VALUE) <> (UPPERCASE(FORMAT(FRField.VALUE))) THEN BEGIN
          FRField.VALUE := (UPPERCASE(FORMAT(FRField.VALUE)));
          RRRec.MODIFY;
        END;
      UNTIL RRRec.NEXT = 0;
    END;
  UNTIL tbfield.NEXT = 0;
END;
dlgwindow.CLOSE

OBJECT Codeunit 99999 Correct lowcase Codes
{
  OBJECT-PROPERTIES
  {
    Date=23/01/08;
    Time=15.25.41;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    OnRun=BEGIN
            //In this instruction: "TBField.SETRANGE(TableNo,3)" the tableno must match the table no of the variable TBTableToFix
            //I put Code "3" because is the first table. Replace it with whatever you want
            TBField.SETRANGE(TableNo,3);
            TBField.SETRANGE(Type,TBField.Type::Code);
            RRRec.GETTABLE(TBTableToFix);
            DLGWindow.OPEN(TXCWindow);
            IF TBField.FINDSET THEN BEGIN
              REPEAT
                DLGWindow.UPDATE(1,TBField.FieldName);
                IF RRRec.FINDSET THEN BEGIN
                  REPEAT
                    FRField := RRRec.FIELD(TBField."No.");
                    IF FORMAT(FRField.VALUE) <> (UPPERCASE(FORMAT(FRField.VALUE))) THEN BEGIN
                      FRField.VALUE := (UPPERCASE(FORMAT(FRField.VALUE)));
                      RRRec.MODIFY;
                    END;
                  UNTIL RRRec.NEXT = 0;
                END;
              UNTIL TBField.NEXT = 0;
            END;
            DLGWindow.CLOSE
          END;

  }
  CODE
  {
    VAR
      TBField@1130000 : Record 2000000041;
      RRRec@1130001 : RecordRef;
      FRField@1130002 : FieldRef;
      TBTableToFix@1130003 : Record 3;
      DLGWindow@1130004 : Dialog;
      TXCWindow@1130005 : TextConst 'ENU=Field #1##################################;ITA=Campo #1##################################';

    BEGIN
    END.
  }
}