UFO Constantenübergabe

[Ben.Wisch]

Hallo da Draussen,

ich hät gern mal ein Problem. Ich möchte verschiedene Formulare mit Grafiken/Bilder versehen. Nun hab'
ich, Vorbildlich, diese Bilder nicht dirket als Bild sondern als Pfad hinterlegt. Ich möchte nun über ein UFO
in den verschiedenen Formularen auf verschiedene Bilder zugreifen. Bislang habe ich mir die Zähne daran
ausgebissen, vielleicht kann mir ja jemand behilflich sein.
Die Bilder (Index) sollen, in jedem Formular als Konstante hinterlegt werden.

Private Sub frm041_Enter()

     DV_Index = "2"
     Me.Refresh

End Sub

Mit diesem Coding zeigt mir Acces zwar immer das erst Bild an, zu mehr konnte ich es noch nicht überreden.

Vielen Dank schon mal im Voraus.

Ben Wisch

[Klingon 33]

Hilf mir mal bitte auf die Sprünge:
wo hast du den Pfad hinterlegt?
Du hast ein Hauptform, in dem die Bilder angezeigt werden sollen?
Was machst du mit dem Unterform? ist da der Pfad hinterlegt oder wie kommst du auf den?
Beschribe doch mal etwas genauer wie das abläuft.

mfg

[Ben.Wisch]

Hallo Klingon 33,

Also, ich möchte auf verschiedenen Formularen Bilder/Hinweise o.Ä. hinterlegen.
Diese bilder habe ich als Pfad in eine Tabelle eingepflegt und ein UFO dafür erstellt.
Nun möchte ich dieses UFO mit einem festen Bild aus dieser Tabelle auf das Haupt-
formular bringen.
Sprich ich zeige ein UFO an und benötige nun im Prinzip eine Konstantenübergabe,
damit ich je Formular ein unterschiedliches Bild anzeigen kann.

D A N K E !!!

Ben Wisch

[DF6GL]

Hallo,

irgendwie hört sich das für mich sehr nebulös an....


Beschreib mal die betroffenen Tabelle(n), deren Felder, speziell die mit den Pfaddateinamen  und die Tabellen-Beziehungen zueinander.

[Klingon 33]

Also prinzipel folgendes:
1. Bildpfad in der Tabell suchen
also z.B

dim rs as dao.recordset
set rs = currentdb.opendynaset("deine Tabelle")
rs.findfirst("Indexfeld = " & me!Index)

nun hast du in rs!Pfad den Bildpfad den du nur noch mit

forms!HF!UF.form.picture = rs!Pfad

zuweisen und mit

forms!HF!UF.Requery

aktuallisieren must.

[Ben.Wisch]

Hallo DF6GL,

vielen dank, du hast mir schon häufiger aus der Patsche geholfen.
Ich möchte per Grafik (*.jpg) Informationen auf die formulare bringen.
(Steuerungabläufe usw. sonst hätte ich ein Textfeld genommen)
Ich habe nun eine Tabelle mit "Bilder" gefüllt (txtBild und txtPfad).
Ich habe auch ein UFO dazu erstellt (frm041) das diese Felder anzeigen kann.
Nun möchte ich zu jedem Forular, auf dem ich eine Info benötige ein
anderes Bild aus dieser Tabelle (Allgemein11) anzeigen. Sprich mit einem
konstanten Index je Formular einen unterschiedlichen Satz/Bild anzeigen.
Vielleicht konnte ich mich nun ein wenig besser audrücken.

Schönen Dank schon mal und habe ein Schönes Fest und einen guten Rutsch ins Neue Jahr.

DAS GILT ÜBRIGENS FÜR ALLE 

Ben Wisch

[DF6GL]

Hallo,


danke für die Wünsche, von mir auch frohe Weihnachten und gutes Neues Jahr..

Nun möchte ich zu jedem Forular, auf dem ich eine Info benötige ein
anderes Bild aus dieser Tabelle (Allgemein11) anzeigen.

Tabelle "tblAllgemein11":

BildID   (PK, Autowert)
Bild_Formname (Text,255)   oder wenn es unbedingt ein "Index" sein soll:   Bild_Index (Zahl,Long)
Bild_Pfadname (Text, 255)   ohne abschliessenden "\"
Bild_Dateiname (Text, 255)


in jedem betroffenen Formular (mit einem Bild-Steuerelement "picFormBild") :

Code [Auswählen] Erweitern

Sub Form_Load()
Dim strPFN as String
strPFN = Dlookup("[Bild_Pfadname] & "\" & [Bild_Dateiname]","tblAllgemein11","Bild_Formname = '" & Me.Name & "'") 
If Len(strPFN) >1  and    Dir(strPFN ) <>"" then
     Me!picFormBild.Visible = true
     Me!picFormBild.Picture 
Else
     Me!picFormBild.Visible = false
End If
End Sub


dito mit "Index":

Code [Auswählen] Erweitern

Sub Form_Load()
Dim strPFN as String
strPFN = Dlookup("[Bild_Pfadname] & "\" & [Bild_Dateiname]","tblAllgemein11","Bild_Index = 1)    ' hier die "magic Number" je nach Anforderung angeben.


If Len(strPFN) >1  and   Dir(strPFN ) <>"" then
     Me!picFormBild.Visible = true
     Me!picFormBild.Picture 
Else
    Me!picFormBild.Visible =  false
End If
End Sub