OpenOffice.info

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!

Hi,
versuch es mal mit Gruß R

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

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

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.

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

Gruß R

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

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

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.

Formular und Makros reichen

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

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: Gruß R

Hi R,

besten Dank! Jetzt geht's.

Gruß
J.