====== Zähler: Neuen Zähler anlegen ======

Dieses Makro legt einen neuen, noch nicht in der Datenbank vorhandenen, Zähler an und weisst ihm dabei einen Anfangswert zu.

<code vb.net>
  DBSTRINGSET Headlines, Values;
  INT Value;
  STRING Name;

  DBStrAdd( Headlines, "Name des Zählers:" );
  DBStrAdd( Headlines, "aktuelle Nummer:" );

  IF( GetTextSetDlg( Headlines, Values, "neuen Counter anlegen", 65 ) == IDOK )
    Name = DBStrGet( Values, 1 );
    Value = StrToInt( DBStrGet( Values, 2 ) );

    IF( DBSetCounterValue( Name, Value ) )
      MessageBox( "Zähler wurde angelegt.", MB_ICONINFORMATION );
    ELSE
      MessageBox( "Fehler beim Anlegen des Zählers", MB_ICONSTOP );
    ENDIF

  ENDIF
</code>