OneNote "Typ" ändern

lieber Gerhard

Vielen Dank für deinen Input. Die Idee ist eigentlich super und zumindest im Word funktioniert sie :-

Nur: Wie kriege ich diesen "Schnellbaustein" in OneNote rein? Ich kann keine Möglichkeit finden, das Menuband so anzupassen, dass diese AutoText-Schnellbausteine dort verfügbar wären...

Dieser Typ
hier scheint das irgendwie drin zu haben unter "Edit", nur ich finde keine solche Option unter OneNote Desktop.

Wäre toll, wenn das ein Entwickler trotzdem noch machen würde.

Hallo,

folgender Router wird verwendet:

Speedport W724V Typ C

Im "zuhause"- Netz Synchronisiert auch OneNote nicht.

Wirklich merkwürdig.

Wie bereits geschrieben Druckerprobleme bitte im Windows Forum posten. Hersteller und Type werden trotzdem benötigt.

Warum eine Lizenz für OneNote gefordert wird dazu wird sich jemand melden.

Hallo!

Das Ändern des Datentyps ist an sich ein Einzeiler, wie am Ende von http://www.donkarl.com?FAQ3.5 beschrieben.

Ob das einfach so funktioniert, hängt davon ab, welche Werte in den Feldern stehen, d.h. ob sie für Access einfach in Datum und Ja/Nein konvertierbar sind. z.B. sollte in dem Ja/Nein-Feld 0 (für Nein) und -1 (für Ja) stehen, damit das zuverlässig klappt.
Wenn dort etwas anderes steht, kannst du eine Aktualisierungsabfrage dazwischenschieben, die die Werte auf 0 und -1 ändert.

Das Ändern des Formates ist hingegen codemäßig aufwändig, weil es keine Eigenschaft der Datenbankengine sondern von Access ist und weil sie womöglich zuerst angelegt werden muss. Der Code für die Typ- und Formatanpassung könnte ca. so aussehen:

    On Error GoTo ErrProp

    

    Dim db As DAO.Database

    Dim tdf As DAO.TableDef

    Dim prp As DAO.Property

    Dim fld As DAO.Field

    

    Set db = CurrentDb

    Set tdf = db.TableDefs!DeineTabelle

    'Typen aendern    db.Execute "ALTER TABLE DeineTabelle ALTER COLUMN DeinDatumsfeld DATE"

    db.Execute "ALTER TABLE DeineTabelle ALTER COLUMN DeinJaNeinFeld BIT"

    'Format aendern

    Set fld = tdf.Fields("DeinDatumsfeld")

    fld.Properties("Format") = "Short Date"

    

ExitProp:

    Set db = Nothing

    Exit SubErrProp:

    If Err.Number = 3270 Then

        Set prp = fld.CreateProperty("Format", dbText, "Short Date")

        fld.Properties.Append prp

        Resume ExitProp

    End If

Vielen Dank für die Antwort.

Ich habe eine einfachere Möglichkeit gefunden.

Wenn ich diesen Import aus der Excel Liste zum Ersten Mal eingebe, und diese Felder als

Typ Datum, resp. Ja/Nein definiere und diesen Import dann speichere, behält er die Feld Attribute.

Das ist glaube ich die einfachere Lösung.

Vielen Dank

Josi