Formulardesign aus Nordwind

[tismo]

Hallo nochmal,

hat jemand eine Ahnung wo die Hintergrunddesigndateien (Formularkopf) aus der Nordwind Beispieldatenbank (Access 2010) zu finden sind un ob ich diese in meinem Formular einbauen kann?

[el_gomero]

Moinsen,

hab die Nordwind im A10 grad nicht vorrätig, da ich hier mit A03 unterwegs bin ... aber hast du mal einen Import des Forms probiert?

[tismo]

Meines erachtens nicht möglich, aber dann habe ich auch nur ein neues Formular. Ich möchte in meinen vorhandenen Formulare das Design übernehmen.

[el_gomero]

und wenn du das "umgekehrt" anstellst? Nordwind als Basis und die benötigten Objekte aus deiner db importierst?

[tismo]

guter Ansatz, aber sehr aufwendig bei einer Datenbank mit mehreren Formularen. Die Datenbank ist schon lange fertig und soll nur einen neuen 'Anstrich' bekommen.

[el_gomero]

wer schön sein will *bg*

[tismo]

wäre aber trotzdem interessant zu wissen wo MS die Bilder versteckt hat.
Oder gibt es vielleicht so eine Art Generator ? 

[el_gomero]

hab das noch nicht ergründet, aber werden wohl eingebettete Objekte sein ... die Nordwind war ja als Lernobjekt manchmal grenzwertig ....

[DF6GL]

Hallo,


vielleicht hilft   Formularentwurf/Entwurf/Designs

Beispielhaft:   http://www.access-basics.de/index.php/Designs_fuer_Steuerelemente.html

[PhilS]

...wo die Hintergrunddesigndateien (Formularkopf) aus der Nordwind Beispieldatenbank (Access 2010) zu finden sind?

Was genau meinst du überhaupt? Geht es dir darum die Bilder im Formularheader zu extrahieren?

Das ist relativ einfach. Du kannst sie einfach per VBA als Dateien speichern. Etwa mit einer solchen Funktion:

Code [Auswählen] Erweitern

Public Sub SavePictureDataToBinaryFile(ByVal data As Variant, _
                                        ByVal fileName As String)

    Dim buffer() As Byte
    Dim fileNo As Integer
   
    If Not IsNull(data) Then
        fileNo = FreeFile
        buffer = data
        Open fileName For Binary Access Write As fileNo
        Put fileNo, , buffer
        Close fileNo
    End If

End Sub
Der Aufruf erfolgt dann z.B. so:

Code [Auswählen] Erweitern

call SavePictureDataToBinaryFile(forms(0).Controls("Image281").Picturedata,"c:\temp\pic5.png")

Dies funktioniert so nur, wenn in den Datenbankoptionen eingestellt ist, dass die ursprünglichen Bildformate beibehalten werden. (Bei dem A2010 Nordwind Demo ist das der Fall.) Andernfalls musst du die ersten 8 Byte (EMR-Record) ignorieren und die Datei als EMF (Enhanced Metafile) speichern.