Office: (Office 2010) Bild sichtbar aktualisierung

Hallo,

ich habe ein Problem mit dem Anzeigen von einem Bild. Und zwar ich habe ein Formular in dem wähle ich in einem Listenfeld ein "Projekt" aus. Ein Projekt wird ausgewählt, und auf einer Registerseite im Formular gibt es einige Angaben die ich zu diesem Projekt vornehmen kann. Dann habe ich 2 Schaltflächen und in Abhängigkeit welche Schaltfläche angeklickt wird, können auf der Registerseite 2 unterschiedliche Bilder erscheinen. Das funktioniert auch alles.
Wenn ich dieses Projekt jetzt abspeichere und irgendwann erneut auswähle dann sind die hierzu eingetragenen werte natürlich da, da diese in einer Tabelle gespeichert sind, doch das Bild nicht, da es ja keine Zuordnung zu dem Projekt hat, sondern nur durch den Klick auf die Schaltfläche erscheint.
Gibt es eine Möglichkeit das Bild trotzdem entsprechend der Auswahl anzuzeigen.

Danke

:)

 

Ich habe es so versucht, das ich durch das Betätigen der Schaltfläche einem extra hierzu angelegten Feld in meiner Tabelle den wert 1 oder 2 zuordne ( abhängig davon welche Schaltfläche angeklickt worden ist), um dann durch diese Zuordnung das entsprechende Bild sichtbar zu machen. Das hat jedoch nicht funktioniert.

 

Was genau "hat nicht funktioniert"?
Poste mal deinen Versuch (Code?).
maike

 

Private Sub bildnummer_AfterUpdate()

If speichernbild = 1 Then
Call Befehl10581_Click ' hier habe ich versucht den Klick auf den Button neu zu simulieren
Me.Bild.Visible = True ' hier habe ich versucht das bild sichtbar zu machen
End If
End Sub

und ich habe den Code bei Vor Aktualisierung, Nach Aktualisierung und bei geändert ausprobiert.


bildnummer.Requery ' das habe ich auch versucht um das Feld zu aktualisieren.

 

Hallo,

was bitte ist denn bildnummer und was ist speicherbild?

Auslösende Aktion sollte sein "Beim Anzeigen" des Formulars.

 

Ich vermute, dass der Code, der beim Klicken des Kopfs verwendet wird, auch im Ereignis Beim Anzeigen des Formulars (unter bestimmten Vorraussetzungen, die ich nicht kenne) ausgeführt werden muss.

 

Ups das bildnummer und speichernbild ist das selbe Feld. Das hatte ich nur zu Versuchszwecken mal umbenannt. In diesem Feld wird durch den Klick auf die Schaltfläche also auf die 2 verschiedenen Schaltflächen entweder eine 1 oder eine 2 gespeichert.

 

hab's mir schon fast gedacht. *wink.gif*

Und, hast du es ausprobiert mit dem Current-Ereignis?

Die Änderung der Bild-Anzeige und der "bildnummer" auf Knopfdruck ist ja bereits umgesetzt.
Die manuelle Änderung der Nummer sollte ja eigentlich nicht nötig sein.

 

Hallo,

also danke schon mal das hat jetzt fast geklappt. Nur irgendwo ist noch ein Fehler drin. Und zwar wenn ich einzeln den Code eingebe funktioniert alles:
If speichernbild = 1 Then
Me.Bild1.Visible = True

aber für meehrere Sachen funktioniert es nicht. Natürlich kann ich jetzt in der Else Bedingungen sofort was anderes reinschreiben. Doch ich habe hier meine Frage etwas vereinfacht dargestellt und zwar sind es nicht 2 Bilder sondern eigentlich 5. Also habe ich versucht eine verschachtelte If zu machen.

If speichernbild = 1 Then
Me.Bild1.Visible = True

If speichernbild = 2 Then
Me.Bild2.Visible = True

If speichernbild = 3 Then
Me.Bild3.Visible = True

If speichernbild = 4 Then
Me.Bild4.Visible = True

If speichernbild = 5 Then
Me.Bild5.Visible = True

End if
End if
End if
End if
End if

 

Hallo,

Code:

 

Ich gehe mal davon aus, dass du das Feld speichernbild (unsichtbar) im als Feld Formular hast und die Bilder tatsächlich Bild1, Bild2 ... heißen.
Dann liesse sich das Ganze verkürzen auf:
Code:

maike

 

Danke also das funktioniert wieder so das das erste Bild angezeigt wird aber die anderen nicht.

 

Und ja das Feld speichernbild habe ich im Formular, also im Register sogar. Und die Bilder habe ich eigentlich anderes genannt gehabt aber habe ich eben auf Bild1-5 geändert.

 

Wie sieht dein Code jetzt aus und wo steht er genau (bitte die ganze Prozedur mit Kopf posten).
Bild1 bis Bild5 sind was genau? Ich ging von Bildfeldern im Formular aus.
Ist das ein Endlosformular?
maike

 

Hallo es steht genauso,

Private Sub Form_Current()


Dim i&

For i = 1 To 5
Me("Bild" & i).Visible = Nz(Me.speichernbild, 0) = i
Next i


End Sub

Jetzt habe ich es nochmal getestet es ging mit den Bildern 2-5. Aber das erste Bild ging nicht.
Ich muss zugeben ich weis gar nicht wie es erkannt werden kann ob es ein Endlosformular ist. :-)

Es ist ein Formular auf dem ich ein Projekt auswähle und dann erschienen die Angaben dazu auf einem Registerblatt.