Fehler beim Kompilieren - Objekt erforderlich

[Rüdiger Gram]

Hallo Ng,


Dim Ufrm As String

Set Ufrm = Forms!Allgemein!UFoGesprPartn.Form
Set Ufrm = "Allgemein.[UFoGesprPartn vorne].Form"
MsgBox Ufrm

Beide Set-Anweisungen bringen die Fehlermeldung "Fehler beim Kompilieren -
Objekt erforderlich.
Was fehlt Access denn da?

Gruß

Rüdiger Gram

[Stefan Hoffmann]

hallo Rüdiger,

Post by Rüdiger Gram
Beide Set-Anweisungen bringen die Fehlermeldung "Fehler beim Kompilieren -
Objekt erforderlich.
Was fehlt Access denn da?

Set benötigst du nur für Objektvariablen. String ist kein Objekt, also

Dim Ufrm As String

Ufrm = "Allgemein.[UFoGesprPartn vorne].Form"
MsgBox Ufrm

oder

Dim Ufrm As Access.form

Set Ufrm = Forms!Allgemein!UFoGesprPartn.Form
MsgBox Ufrm.Name



mfG
--> stefan <--

[Rüdiger Gram]

Post by Stefan Hoffmann
Set benötigst du nur für Objektvariablen. String ist kein Objekt, also
Dim Ufrm As String
Ufrm = "Allgemein.[UFoGesprPartn vorne].Form"
MsgBox Ufrm
oder
Dim Ufrm As Access.form
Set Ufrm = Forms!Allgemein!UFoGesprPartn.Form
MsgBox Ufrm.Name

Vielen Dank an Stefan und Dietmar.

Beides funktioniert, aber leider ist immer noch der Wurm drin:

Dim Ufrm As Access.Form

Set Ufrm = Forms!Allgemein![UFoGesprPartn vorne].Form
MsgBox Ufrm.Name

If Len(Forms!Allgemein![UFoGesprPartn vorne].Form![Abteilung]) < 1 Then
Ufrm!Abteilung = "Test"

Diese letzte Anweisung wird nicht ausgeführt - vermutlich ist die Syntax
nicht in Ordnung.
Es kommt allerdings auch keine Fehlermeldung.

Wer weiß Rat?

Gruß - Rüdiger

[Sascha Trowitzsch]

Hi Rüdiger,

Post by Rüdiger Gram

Post by Stefan Hoffmann
Set benötigst du nur für Objektvariablen. String ist kein Objekt, also
Dim Ufrm As String
Ufrm = "Allgemein.[UFoGesprPartn vorne].Form"
MsgBox Ufrm
oder
Dim Ufrm As Access.form
Set Ufrm = Forms!Allgemein!UFoGesprPartn.Form
MsgBox Ufrm.Name

Vielen Dank an Stefan und Dietmar.
Dim Ufrm As Access.Form
Set Ufrm = Forms!Allgemein![UFoGesprPartn vorne].Form
MsgBox Ufrm.Name
If Len(Forms!Allgemein![UFoGesprPartn vorne].Form![Abteilung]) < 1 Then
Ufrm!Abteilung = "Test"
Diese letzte Anweisung wird nicht ausgeführt - vermutlich ist die Syntax nicht
in Ordnung.
Es kommt allerdings auch keine Fehlermeldung.

Wahrscheinlich kommt als Len() 4 raus?
Was der Funktion Len() übergeben wird, ist wahrscheinlich das
Steuerelementobjekt selbst, nicht dessen Inhalt.
Besser wäre:
Forms!Allgemein![UFoGesprPartn vorne]![Abteilung].Value

Ciao, Sascha

[Rüdiger Gram]

Post by Sascha Trowitzsch
Wahrscheinlich kommt als Len() 4 raus?
Was der Funktion Len() übergeben wird, ist wahrscheinlich das
Steuerelementobjekt selbst, nicht dessen Inhalt.

durchaus denkbar

Post by Sascha Trowitzsch
Forms!Allgemein![UFoGesprPartn vorne]![Abteilung].Value

Jawohl!!! Das war die richtige Lösung. Funktioniert auch mit dieser
Gestaltung:

If IsNull(Ufrm!Abteilung) = True Then Ufrm!Abteilung = "Test"

Besten Dank für die Hilfe (seit 2 Tagen doktere ich schon an dieser Sache
herum)

Gruß

Rüdiger

[Sascha Trowitzsch]

Hi Rüdiger,

Post by Rüdiger Gram

Post by Sascha Trowitzsch
Wahrscheinlich kommt als Len() 4 raus?
Was der Funktion Len() übergeben wird, ist wahrscheinlich das
Steuerelementobjekt selbst, nicht dessen Inhalt.

durchaus denkbar

Post by Sascha Trowitzsch
Forms!Allgemein![UFoGesprPartn vorne]![Abteilung].Value

Jawohl!!! Das war die richtige Lösung. Funktioniert auch mit dieser
If IsNull(Ufrm!Abteilung) = True Then Ufrm!Abteilung = "Test"

Trotzdem:
Wenn ich einfach den Wert eines Steuerelements in eine Variable einlesen will,
dann verlasse ich ich mich auf die Default-Eigenschaft des Objekts (Value).
Sobald ich den Wert aber an eine Funktion übergebe, dann setze ich inzwischen
immer explizit .Value hintendran - ist nur eine Sache der Gewohnheit, die die
Bugsuche vereinfacht.
Ähnlicher Fall:
Recordset!FieldXY <> Recordset!FieldXY.Value
Ist besonders bei ACE (A2007) sinnvoll, weil dort ein Field2.Value selbst wieder
ein Objekt (Recordset) sein kann.

Ciao, Sascha

[Stefan Hoffmann]

hallo Sascha,

Post by Sascha Trowitzsch
Sobald ich den Wert aber an eine Funktion übergebe, dann setze ich inzwischen
immer explizit .Value hintendran - ist nur eine Sache der Gewohnheit, die die
Bugsuche vereinfacht.

Nieder mit den Standardeigenschaften .)

Ich mag sie überhaupt nicht... ich wünschte es gäbe ein Option
DefaultProperty Off.


mfG
--> stefan <--

[Peter Doering]

Hallo Stefan,

Post by Stefan Hoffmann

Post by Sascha Trowitzsch
Sobald ich den Wert aber an eine Funktion übergebe, dann setze ich inzwischen
immer explizit .Value hintendran - ist nur eine Sache der Gewohnheit, die die
Bugsuche vereinfacht.

Nieder mit den Standardeigenschaften .)
Ich mag sie überhaupt nicht... ich wünschte es gäbe ein Option
DefaultProperty Off.

Wie sieht's mit Call vor Prozedurnamen aus? Wie mit Let for
Variablenzuweisungen? ;-)

Gruss - Peter (der auch immer .Value ausschreibt ;-)

[Stefan Hoffmann]

hallo Peter,

Post by Peter Doering

Post by Stefan Hoffmann
Ich mag sie überhaupt nicht... ich wünschte es gäbe ein Option
DefaultProperty Off.

Wie sieht's mit Call vor Prozedurnamen aus?

Autsch, erwischt.

Da halte ich es ähnlich gemischt wie Sascha. Call benutze ich zum Aufruf
von Ereignisprozeduren (Call Form_Current), ansonsten verziechte ich
darauf...


mfG
--> stefan <--

[Dietmar Thesing]

Hallo Rüdiger,

"Rüdiger Gram" schrieb

Post by Rüdiger Gram
Hallo Ng,
Dim Ufrm As String
Set Ufrm = Forms!Allgemein!UFoGesprPartn.Form
Set Ufrm = "Allgemein.[UFoGesprPartn vorne].Form"

Ergänzend zu Stefans Antwort -
Unterformular-Steuerelement-Name und Herkunftsobjekt solltest Du
unterscheiden. Dann tut Access das auch. Also wenn das UFo im
Datenbankfenster "UfoGesprPartn" heißt, den Steuerelement-Namen z.B.
ctrUfoGesprPartn umbenennen.

HTH
Dietmar