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
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
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
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.
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.
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 :) ;) :D
Ben Wisch
Hallo,
danke für die Wünsche, von mir auch frohe Weihnachten und gutes Neues Jahr..
ZitatNun 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") :
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 Subdito mit "Index":
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