PDA

Vollständige Version anzeigen : Auf Felder im UFO zugreifen !?


Xena
23.10.2001, 12:25
Hi Leute :)

Die Frage klingt jetzt vielleicht doof, ich hab genau das was ich jetzt wissen will sogar schon selber verwendet, aber trotzdem gehts bei mir aufeinmal nicht und ihr müsst mir helfen.
Also, ich hab ein Formular mit einem (eigentlich 3) Unterformular. Nun möchte ich in einer Prozedur auf ein Objekt auf dem Unterformular zugreifen. Dies habe ich bisher so gemacht :

Me.Unterformular.MeinObjekt

Nun wird so aber das Objekt, welches ich haben möchte, nicht gefunden !?

Hier zum verständnis mein Code:

Private Sub Mitarbeiter_anzeigen_Click()
On Error GoTo Err_Mitarbeiter_anzeigen_Click

Dim rs As recordset
Dim db As Database
Set db = Application.CurrentDb
Me.Mitarbeiter_Daten.Form.RecordSource = "select * from Mitarbeiter_Daten where Personalnummer=" & Me.Person_auswahl
Me.Mitarbeiter_Gehalt.Form.RecordSource = "select * from Mitarbeiter_Gehalt where Personalnummer=" & Me.Person_auswahl
Me.Mitarbeiter_Bemerkungen.Form.RecordSource = "select * from Mitarbeiter_Bemerkungen where Personalnummer=" & Me.Person_auswahl
Me.Requery
Me.Mitarbeiter_Daten.Visible = True
Me.Mitarbeiter_Gehalt.Visible = True
Me.Mitarbeiter_Bemerkungen.Visible = True
Me.Line.Visible = True


'Hier kommt der Fehler
Me.Mitarbeiter_Daten.Bild.picture = "C:\Dokumente und Einstellungen\petra\Eigene Dateien\" & Me.Mitarbeiter_Daten.Form.Personalnummer & ".jpg"

On Error GoTo 0 'Fehlerbehandlung wieder ausschalten

Exit_Mitarbeiter_anzeigen_Click:
Exit Sub

Err_Mitarbeiter_anzeigen_Click:
MsgBox Err.Description
Resume Exit_Mitarbeiter_anzeigen_Click

End Sub

Diese Routine klappt, bis zu der Zeile, wo ich dem Bild etwas zuweisen möchte. Da wird mein Steuerelement Bild einfach nicht gefunden > :(

Schonmal danke für die Hilfe :)

Xena

ceki
23.10.2001, 13:48
Ich hab das mal durchgespielt mit einem Formular, wo ich in einem ungebundenen Textfeld den Dateinamen ohne Pfad und Dateikürzel eingegeben hab.
Da hats zumindest auf die Art funktioniert, wobei "bildname" das Textfeld war.

Private Sub Befehl3_Click()

Dim bild As String
bild = "C:\WINNT\Profiles\hochmaka\Desktop\" & Me.bildname & ".jpg"
On Error Resume Next

Me![Bild0].Picture = bild

Me.Requery
Forms![Formular1].Form.Requery

End Sub

Gruß
Karl