wechselnde Bilder in Formular

[Dr.N]

Für jeden Datensatz soll ein Bild, dessen Dateiname in Datensatz enthalten ist, im Formular erscheinen.
Gegeben:
V3.3 Base
Formular "Mainform" mit u.a. Textfeld (Bilddateiname) "textBild" und Grafisches Kontrollfeld "Grafisches Kontrollfeld 1"
Ereignis: z.Z. Maus über Grafischen Kontrollfeld
Makro:

Sub bildanzeigen( oEvt as Object )

dim Pfad as String
oMainForm = oEvt.Source
oImg = oMainForm.getByName("Grafisches Kontrollfeld 1")
oBildname = oMainForm.getbyName("textBild")
if oBildname.Text > "" then
Pfad = "M:\personen\"+oBildname.Text+".jpg"
oImg.ImageUrl = ConvertToURL(Pfad)
End If
End Sub

Bei den Zeilen:
oImg = oMainForm.getByName("Grafisches Kontrollfeld 1")
oBildname = oMainForm.getbyName("txtBild")
kommt Fehler: Eigenschaft oder Methode nicht gefunden: GetbyName

Das Makro lief früher mit V3.0 (andere Bezeichner). Damals mühsam ohne Basic-Kenntnisse (nur das Basic vor 20 Jahren) zusammmengesucht.

Help me!

[F3K Total]

Hi,
versuch es mal mit

Code: Alles auswählen

oMainForm = oEvt.Source.Model.Parent

Gruß R

[Dr.N]

Danke, aber anderer Fehler: NoSuchelemnetExeption bei Zeile oBildname = ....

[F3K Total]

Na, dann scheint es auf dem "Mainform" kein Textfeld mit dem Namen "txtBild" zu geben.
Gruß R

[Dr.N]

Danke,
hatte ich auch schon gedacht und den Fehler korrigiert txtBild in textBild, allerdings nicht richtig, dann mit Strg C und Strg V übertragen. Fehler jetzt in der nächsten Zeile: Eigenschaft ... nicht gefunden: text
--> oBildname.txt?
Gruß
J.

[F3K Total]

Lade die Datei am besten hoch ,
sonst ist es ein Fischen im Trüben.
siehe unten: Dateianhang hochladen

Gruß R

[Dr.N]

Welche Endungen sind denn erlaubt für die Makrodatei? xba, txt und 123 werden angewiesen.
Gruß
J.

[F3K Total]

Die Makrodatei hilft ohne das Formular nicht.
Du kannst die ganze Datenbank hochladen, ggf. verfremdet.
Gruß R

[Dr.N]

Geht nicht wirklich. Die Datei ist eine Access2000 Datei, die ich mit Oo ansehe und ändere, denn Access habe ich nicht (mehr). Eine Transformation ist nicht möglich, da ich Sie mit abcDB (WM5) synchronisiere und das Programm kann nur Access 2000 synchronisieren.
Vielleicht können wir uns zeilenweise weiterarbeiten.
Gruß
J.

[F3K Total]

Formular und Makros reichen

[Dr.N]

Formulardatei anbei, Makrodatei geht nicht oder kann ich nicht.
Vollständiges Makro s. 1. Beitrag
Gruß
J.

[F3K Total]

Hallo,
das Beschriftungsfeld links neben dem Feld "Bild" heißt auch "textBild", benenne es in "lblBild" um, dann funktioniert das Makro.
Allerdings ging es bei mir erst, nachdem ich das grafische Kontrollfeld gelöscht und neu angelegt hatte.

Siehe auch Bild:

txtBild.png (14.3 KiB) 777 mal betrachtet

Gruß R

[Dr.N]

Hi R,

besten Dank! Jetzt geht's.

Gruß
J.