LFZ 2455 - Ungültiger Verweis auf Form-Eigenschaft

[Signore]

Hi,

ich habe das Problem, dass beim Start meines Formulars der LFZ 2455 (Sie haben einen Ausdruck eingegeben der einen ungültigen VErweis auf eine Form-Eigenschaft enthält). Ich verweise aus meinem HFO auf ein Feld des UFO.

Hier die Codes:

Form Load des HFO:

Code [Auswählen] Erweitern

Private Sub Form_Load()
    Dim Mandant As Integer
    Dim Mitarbeiter As Integer
    Dim Leistungsart As Integer
   
    Mandant = DLookup("frmErfassenOptMandanten", "Einstellungen", "ID=1")
    Mitarbeiter = DLookup("frmErfassenOptMitarbeiter", "Einstellungen", "ID=1")
    Leistungsart = DLookup("frmErfassenOptLeistungsart", "Einstellungen", "ID=1")
   
    Me.optGruppeMandant = Mandant
    Me.optGruppeMitarbeiter = Mitarbeiter
    Me.optGruppeLeistung = Leistungsart
   
    AnzeigeOptionen
   
End Sub

Code [Auswählen] Erweitern

Public Sub AnzeigeOptionen()
    If Me.optGruppeMitarbeiter.Value = 1 Then
      Me.ufrmLeistungenDBErfassen.Form.txtMitarbeiterUndNr.ColumnHidden = True
      Me.ufrmLeistungenDBErfassen.Form.txtMitarbeiterKurzname.ColumnHidden = True
      Me.ufrmLeistungenDBErfassen.Form.txtMitarbeiterNr.ColumnHidden = False
    ElseIf Me.optGruppeMitarbeiter.Value = 2 Then
      Me.ufrmLeistungenDBErfassen.Form.txtMitarbeiterUndNr.ColumnHidden = True
      Me.ufrmLeistungenDBErfassen.Form.txtMitarbeiterKurzname.ColumnHidden = False
      Me.ufrmLeistungenDBErfassen.Form.txtMitarbeiterNr.ColumnHidden = True
    ElseIf Me.optGruppeMitarbeiter.Value = 3 Then
      Me.ufrmLeistungenDBErfassen.Form.txtMitarbeiterUndNr.ColumnHidden = False
      Me.ufrmLeistungenDBErfassen.Form.txtMitarbeiterKurzname.ColumnHidden = True
      Me.ufrmLeistungenDBErfassen.Form.txtMitarbeiterNr.ColumnHidden = True
    End If
   
    If Me.optGruppeMandant.Value = 1 Then
      Me.ufrmLeistungenDBErfassen.Form.txtMandantUndNr.ColumnHidden = True
      Me.ufrmLeistungenDBErfassen.Form.txtMandanten_Name.ColumnHidden = True
      Me.ufrmLeistungenDBErfassen.Form.txtMandanten_Nr.ColumnHidden = False
    ElseIf Me.optGruppeMandant.Value = 2 Then
      Me.ufrmLeistungenDBErfassen.Form.txtMandantUndNr.ColumnHidden = True
      Me.ufrmLeistungenDBErfassen.Form.txtMandanten_Name.ColumnHidden = False
      Me.ufrmLeistungenDBErfassen.Form.txtMandanten_Nr.ColumnHidden = True
    ElseIf Me.optGruppeMandant.Value = 3 Then
      Me.ufrmLeistungenDBErfassen.Form.txtMandantUndNr.ColumnHidden = False
      Me.ufrmLeistungenDBErfassen.Form.txtMandanten_Name.ColumnHidden = True
      Me.ufrmLeistungenDBErfassen.Form.txtMandanten_Nr.ColumnHidden = True
    End If
   
    If Me.optGruppeLeistung.Value = 1 Then
      Me.ufrmLeistungenDBErfassen.Form.txtLeistungUndNr.ColumnHidden = True
      Me.ufrmLeistungenDBErfassen.Form.txtLeistungsart_Name.ColumnHidden = True
      Me.ufrmLeistungenDBErfassen.Form.txtLeistungsart_Nr.ColumnHidden = False
    ElseIf Me.optGruppeLeistung.Value = 2 Then
      Me.ufrmLeistungenDBErfassen.Form.txtLeistungUndNr.ColumnHidden = True
      Me.ufrmLeistungenDBErfassen.Form.txtLeistungsart_Name.ColumnHidden = False
      Me.ufrmLeistungenDBErfassen.Form.txtLeistungsart_Nr.ColumnHidden = True
    ElseIf Me.optGruppeLeistung.Value = 3 Then
      Me.ufrmLeistungenDBErfassen.Form.txtLeistungUndNr.ColumnHidden = False
      Me.ufrmLeistungenDBErfassen.Form.txtLeistungsart_Name.ColumnHidden = True
      Me.ufrmLeistungenDBErfassen.Form.txtLeistungsart_Nr.ColumnHidden = True
    End If
End Sub

Im Debugger nach Auftritt des Fehlers wird immer eine dieser Zeilen (je nach ausgelesenem Wert) des Public Sub gelb markiert:

Code [Auswählen] Erweitern

Me.ufrmLeistungenDBErfassen.Form.txtMitarbeiterUndNr.ColumnHidden = True

Hat jemand eine Idee woran das liegt?

[Beaker s.a.]

Hallo Signore,
Siehe Antwort im MOF.
Crossposting ist i.Ü. nicht gerne gesehen.
gruss ekkehard