Im Unterformular ein neues Textfeld erstellen-Ziel zuweisen von Einzelbildern

[MaggieMay]

Heißt, du würdest das Datenfeld Flaggen aus dem UFo entfernen?

In erster Linie würde ich das Datenfeld "Flaggenpfad" in der "tblBildPfad" entfernen - ja und dann natürlich auch das nach langen Suchen gefundene Steuerelement namens "Flaggenpfad" im Unterformular "frmErfassungUfoQuart" - und, naja, natürlich auch jeglichen Bezug darauf.

Was die Reihenfolge betrifft, so hätte ich ein besseres Gefühl, wenn sie explizit angegeben würde, aber darüber lass uns mal ruhig noch eine Nacht schlafen. ;-)
Ich verstehe grad nur nicht, dass du "Experimente" mit "/1" oder "a" etc. gemacht hast, wenn diese Bezeichnung kein Bestandteil der Karte ist. Warum dann nicht gleich "1-4" oder "a-d" eintragen?

Ebenfalls gute n8!

PS:
Habe mir eben noch die Kartenbeispiele angesehen, und verstehe das mit der (teilw. vorhandenen) Nummerierung nun besser.

[derilzemer]

Hi und guten Morgen,
wünsche wohl geruht zu haben .

Was die Reihenfolge betrifft, so hätte ich ein besseres Gefühl, wenn sie explizit angegeben würde, aber darüber lass uns mal ruhig noch eine Nacht schlafen. ;-)
Ich verstehe grad nur nicht, dass du "Experimente" mit "/1" oder "a" etc. gemacht hast, wenn diese Bezeichnung kein Bestandteil der Karte ist. Warum dann nicht gleich "1-4" oder "a-d" eintragen?

Okay, in der DB habe ich das nur experimentell gemacht, weil ich die Anfrage zu diesem Feature gestellt habe und damit zeigen wollte, dass ich da entgegenkommen kann, wenn notwendig.
Aber, grundsätzlich will ich es so nicht haben was die Doku in der DB angeht, eben nur wenn unbedingt nötig, dann würde ich es machen.
Auch hier muss ich ja wieder davon ausgehen, dass jemand es so dokumentiert, wie es in der Realität auch ist (wenn ich die DB Millionfach veräußert habe ). Deshalb sollte/muss die Logik "Wenn lstQuartettAuswahl oberster Eintrag (gleich 1 oder A oder I oder Anker) --> und KartenKZ (gleich Rangordnung A oder Zeile1) --> dann Bild (Verzeichnisname_1a.png) eben als Ansatz ziehen.
Das sind schon Ansprüche, ich weiss .

PS:
Habe mir eben noch die Kartenbeispiele angesehen, und verstehe das mit der (teilw. vorhandenen) Nummerierung nun besser.

Das ist doch schon mal gut.

Ich werde jetzt auch mal ein paar Menschen glücklich machen und denen Löcher in unsere Firewalls bohren, damit die Arbeiten können.
Ich wünsch dir trotz all meinen komplexen Wünschen, wir mir auch, einen schönen Tag auf der Arbeit  .

Gruß aus dem Büro
Andreas

[MaggieMay]

Hallo,

natürlich kann man sowohl bei der Quartettliste als auch bei den Karten für die Bestimmung des Namens der Bilddatei allein nach der Reihenfolge der Anzeige gehen, wenn die Eingabe vollständig und mit entsprechender Sorgfalt vorgenommen wird - und wenn du das gerne so möchtest.

Das könnte dann folgendermaßen aussehen:

Code [Auswählen] Erweitern

Me.Parent.Parent.BilderPfad & Me.Parent.Parent.SpielVerzeichnis & "_" & _
         Me.Parent.lstQuartettAuswahl.ListIndex +1 & _
         Choose(Me.CurrentRecord, "a", "b", "c", "d")

[derilzemer]

Hi Maggie,

- und wenn du das gerne so möchtest.
Das könnte dann folgendermaßen aussehen:

Code [Auswählen] Erweitern

Me.Parent.Parent.BilderPfad & Me.Parent.Parent.SpielVerzeichnis & "_" & _
         Me.Parent.lstQuartettAuswahl.ListIndex +1 & _
         Choose(Me.CurrentRecord, "a", "b", "c", "d")

Wenn es machbar ist, dann hätte ich das gerne so . Ich habe es jetzt mal als Doppelklick-Aktion auf dem Feld KartenKZ hinterlegt. Da ich ja will, dass er es in einem Formular öffnet (genauso wie wenn man in der Demo-DB links das Bild/Deckblatt doppelt klickt), dachte ich, es muss aktuell dann so aussehen:

Code [Auswählen] Erweitern

Private Sub KartenKZ_DblClick(Cancel As Integer)
    DoCmd.OpenForm "frmDeckblatt", acNormal, , , , acDialog, Me.Parent.Parent.BilderPfad & Me.Parent.Parent.SpielVerzeichnis & "_" & _
         Me.Parent.lstQuartettAuswahl.ListIndex 1 & _
         Choose(Me.CurrentRecord, "a", "b", "c", "d")
End Sub
Dann springt er aber sofort an

Code [Auswählen] Erweitern

ListIndex 1 & _ und markiert die 1 und bringt die Fehlermeldung Anweisungsende (siehe Bild).
Das mit dem DoCmd passt ja so, oder?

Gruß Andreas

[MaggieMay]

Hi,

Code [Auswählen] Erweitern

Me.Parent.lstQuartettAuswahl.ListIndex [b][color=red]+ [/color][/b]1 & _

da ist das Plus-Zeichen verloren gegangen, vmtl. weil ich ein Leerzeichen vergessen hatte.

(+ 1 weil der Index bei 0 beginnt)

[derilzemer]

Hi,

Code [Auswählen] Erweitern

Me.Parent.lstQuartettAuswahl.ListIndex [b][color=red]+ [/color][/b]1 & _

da ist das Plus-Zeichen verloren gegangen, vmtl. weil ich ein Leerzeichen vergessen hatte.
(+ 1 weil der Index bei 0 beginnt)

Komisch, weil im Post von dir ist es ja da. Dann ist das mir wohl beim kopieren abhanden gekommen, mal wieder typisch für mich  . Ich habe das jetzt geändert und hab trotzdem noch ein Prob, dass es nicht geht. Du hast offensichtlich keines in der Demo-DB, in welcher ich es auch gerade teste und verprobe.
Ich habe die Doppelklick-Aktion auf das Feld KartenKZ gelegt. Wenn ich dann den Doppelklick durchführe, startet er den Debugger mit der Meldung
Laufzeitfehler 2465:
Anwendungs- oder objektdefinierter Fehler. Wenn ich auf Debuggen gehe, dann springt er zum Code und markiert ihn komplett gelb, mit Pfeil auf die letzte Zeile weisend, also  auf

Code [Auswählen] Erweitern

Choose(Me.CurrentRecord, "a", "b", "c", "d").
Bedeutet, er findet die a b c d nicht? Bilderpfad kennt er, Spielverzeichnis ist da, lstQuartettauswahl Index hat er  . Was meldet der bei dir in der Demo-DB??

Gruß Andreas

[MaggieMay]

Hi,

weil im Post von dir ist es ja da. Dann ist das mir wohl beim kopieren abhanden gekommen

ich vermute eher, dass bei "+1" das Plus als (vermeintlich überflüssiges) Vorzeichen einfach entfernt wird und erst bei " + 1" die Additionsabsicht erkannt wird.

Den Doppelklick hatte ich noch nicht getestet, musste auch erstmal das Textfeld dafür aktivieren. Dann stellte sich heraus dass ein Feldname nicht stimmte.

So sollte es nun eigentlich funktionieren:

Code [Auswählen] Erweitern

Private Sub KartenKZ_DblClick(Cancel As Integer)
    Dim strPfad As String
    strPfad = Me.Parent.Parent.Form!BilderPfad & _
                        Me.Parent.Parent.Form![b]txtVerzeichnisname [/b]& "_" & _
                        Me.Parent.Form!lstQuartettAuswahl.ListIndex + 1 & _
                        Choose(Me.CurrentRecord, "a", "b", "c", "d")
    DoCmd.OpenForm "frmDeckblatt", acNormal, , , , acDialog, strPfad
End Sub

wenn es bei dir nicht noch das "Zwischen-Verzeichnis" als separaten Ordner gäbe.
Demnach muss der Pfad folgendermaßen zusammengesetzt werden:

Code [Auswählen] Erweitern

    strPfad = Me.Parent.Parent.Form!BilderPfad & _
                        Me.Parent.Parent.Form![b]txtVerzeichnisname [/b]& "\" & _
                        Me.Parent.Parent.Form![b]txtVerzeichnisname [/b]& "_" & _
                        Me.Parent.Form!lstQuartettAuswahl.ListIndex + 1 & _
                        Choose(Me.CurrentRecord, "a", "b", "c", "d")

Zuallerletzt fehlt dann noch der Dateityp, der an den Pfad anzuhängen wäre, in deinem Fall wohl ".png":

Code [Auswählen] Erweitern

    strPfad = Me.Parent.Parent.Form!BilderPfad & _
                        Me.Parent.Parent.Form![b]txtVerzeichnisname [/b]& "\" & _
                        Me.Parent.Parent.Form![b]txtVerzeichnisname [/b]& "_" & _
                        Me.Parent.Form!lstQuartettAuswahl.ListIndex + 1 & _
                        Choose(Me.CurrentRecord, "a", "b", "c", "d") & ".png"

[derilzemer]

Hi,
wow, das ist mal eine Codeschnipsel. Ich erinnere mich noch an deine Aussage zu mitte des Threads....Ich weiss eigentlich nicht, woran es noch hängt, es sind doch alle Vorgaben dazu da .

So sollte es nun eigentlich funktionieren:

Code [Auswählen] Erweitern

Private Sub KartenKZ_DblClick(Cancel As Integer)
    Dim strPfad As String
    strPfad = Me.Parent.Parent.Form!BilderPfad & _
                        Me.Parent.Parent.Form![b]txtVerzeichnisname [/b]& "\" & _
                        Me.Parent.Parent.Form![b]txtVerzeichnisname [/b]& "_" & _
                        Me.Parent.Form!lstQuartettAuswahl.ListIndex + 1 & _
                        Choose(Me.CurrentRecord, "a", "b", "c", "d")
    DoCmd.OpenForm "frmDeckblatt", acNormal, , , , acDialog, strPfad
End Sub[/code]
Es kommt leider noch ein Fehler. Es öffnet sich wieder das Debugfenster, Laufzeitfehler 2220:
Microsoft Access kann die Datei W:\AccessDB\ass\647_1969\647_1969_1a nicht öffnen.
Wenn ich Debuggen starte, dann springt er zu Form_frmDeckblatt

Code [Auswählen] Erweitern

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)
    Me.imgqryDeckblatt.Picture = Me.OpenArgs
End Sub
wobei er die Zeile Me.imgqry... gelb markiert.
Wenn ich es richtig deute, dann fehlt ihm die Endung, kann das sein? Er kann die Datei 647_1969_1a nicht öffnen.
Zum einen, weil es keine Dateienduzng hat und somit keiner Bilddatei entspricht und es gibt ja auch nur die Datei II86_1961_1a.png. Muss man da bei dem 2. Eintrag

Code [Auswählen] Erweitern

Me.Parent.Parent.Form![b]txtVerzeichnisname [/b]& "_" & _ die Dateiendung .png noch mitgeben? Das Ziel vor Augen und doch noch mal hart eingebremst

Gruß Andreas

[MaggieMay]

Hallo Andreas,

wenn du deinen letzten Beitrag noch einmal überarbeiten könntest, wäre er evtl. leichter zu verstehen, da stimmt etwas nicht mit den Code/Quote-Tags.

Vielleicht hilft es auch, meinen letzten Beitrag noch einmal komplett zu lesen, da ich ihn (wie so oft, leider) nachträglich mehrfach überarbeitet/ergänzt hatte.

Apropos:

Microsoft Access kann die Datei W:AccessDBass647_1969647_1969_1a nicht öffnen.

Die fehlenden "\" sollten eigentlich in den Teilstrings enthalten sein.
Was ist denn da wieder geändert worden?

[derilzemer]

Hi,

Vielleicht hilft es auch, meinen letzten Beitrag noch einmal komplett zu lesen, da ich ihn (wie so oft, leider) nachträglich mehrfach überarbeitet/ergänzt hatte.

Jo, hab erst jetzt gesehen, dass du um 21:30 den Zusatz/Änderung mit  & ".png"  gesehen. Jetzt geht es auch, danke.

Microsoft Access kann die Datei W:AccessDBass647_1969647_1969_1a nicht öffnen.

Die fehlenden "\" sollten eigentlich in den Teilstrings enthalten sein.
Was ist denn da wieder geändert worden?
[/quote]
Von mir nichts, ich hatte nur  & ".png" vergessen, thats it. Vielen Dank Maggie.

Gruß Andreas