Fehler "StrDatei"

[DF6GL]

Hallo,


das geht alles...,


Nimm die Prozedur "Sub Form_Current()"  zum Anzeigen des Bildes und hinterlege bei den Schaltflächen den entspr. Cpde für den DS-Wechsel.

Das Formular muss an die Tabelle gebunden sein.


Statt die Form_Current-Prozedur zu benutzen kannst Du auch Folgendes machen:


--zunächst "Bild" in der Tabelle in z. B. "Produktbild" umbenennen

--In den Steuerelementinhalt des Bild-Steuerelementes schreiben:
=Currentproject.Path & [ProduktBild]

[Mirrortears]

Danke meine "Datenbank" nimmt langsam Form an
Hab noch ein kleines Problem wenn ich die Daten welche ich in einem Formular auswähle in einem Bericht anzeigen möchte.
Sprich wenn ich auf Drucken gehe soll er mir eine Berichtvorschau anzeigen.
Habe folgenden Code:

Code [Auswählen] Erweitern

Private Sub cmddrucken_Click()

On Error GoTo Zu_Fehler
    Dim stDocName As String
    stDocName = "berProduktvariante"
    DoCmd.OpenReport stDocName, acPreview

Exit_Fehler:
    Exit Sub
Zu_Fehler:
    MsgBox Err.Description, vbInformation, "Fehler"
    Resume Exit_Fehler
End Sub

Fehlt mir da noch eine Deklaration die speziell auf den Inhalt der Felder zugreift??

LG Kathrin

[Mirrortears]

Achso ich hab jetzt mal versucht meine Galerie zu machen komme allerdings bei deinem Ausdruck

entspr. Cpde für den DS-Wechsel.

nicht weiter. Was meinst du genau damit? 

[DF6GL]

Hallo,

Anzeige des im Formular aktuellen Datensatzes:

DoCmd.OpenReport stDocName, acPreview,,"Produktid=" & Me!produktid

entspr. Code für den DS-Wechsel.

(sorry für den Tippfehler...)

Code für den Datensatzwechsel..:

Docmd.GotoRecord,,acPrevious

Docmd.GotoRececord,, acNext

[Mirrortears]

Genau so hab ich das auch aber ich glaub ich hab da wieder irgendwas nicht richtig eingegeben 

Code [Auswählen] Erweitern

Sub Form_Current()

If Dir(Me!Bildatei) <> "" Then
Me!Bild.Visible = True
Me!Bild.Picture = Me!Bilddatei
Else
Me!Bild.Visible = False
End If

End Sub

Also Me!Bild.Picture ist ja das Bild aber ich habe in diesem Fall ja keine Bilddatei, oder steh ich auf dem Schlauch 
Ach und für die Pfeile hab ich das jetzt so deklariert

Code [Auswählen] Erweitern


Private Sub cmdLinks_Click()
DoCmd.GoToRecord , , acPrevious
End Sub

Private Sub cmdrechts_Click()
  DoCmd.GoToRecord , , acNext
End Sub

[DF6GL]

Hallo,

im Code fehlt die Berücksichtigung des aktuelle DB-Verzeichnisses (CurrentProject.Path)..

Aber nimm doch mal die Lösung mit der Zuweisung zum Steuerelementinhalt des Bild-St.-El.


--In den Steuerelementinhalt des Bild-Steuerelementes schreiben:

Code [Auswählen] Erweitern

=Currentproject.Path & [ProduktBild]

[Mirrortears]

Wenn ich das mache - passiert: nix 
Das aber auch kompliziert 
Da kommt am Bild dann ein Ausrufezeichen mit dem Hinweiß "Zirkelbezug" und "Ungültige Eigenschaft des Steuerelementes"

[DF6GL]

Hallo,

lad mal die DB hier hoch, und zwar das Verzeichnis , in der die DB sich befindet und ein/zwei Bilder dazu. Die DB vorher reparieren/komprimieren und das Ganze zippen..

[Mirrortears]

Kann ich auch ne E-Mail senden ?  Gezippt hab ich Datei aber die Datei ist ja so groß und ich weiß grad nicht wie ich das mit dem Verzeichnis machen soll  Bin nicht so bewandert auf dem Gebiet 

[DF6GL]

Hi,

naja, ausnahmsweise:

http://www.access-o-mania.de/forum/index.php?topic=6969.0

[Mirrortears]

Ich kann zwar nicht "programmieren" aber ich kann super Kekse backen  ich schick dir gerne paar rum, als Dank für die tolle Hilfe 

Mail ist Unterwegs. "frmProduktgalerie" und "tblProduktgalerie" gehören zusammen

[DF6GL]

Hallo,


Da komm ich glatt darauf zurück 

Mail ist beantwortet..