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:
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
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:
Me.ufrmLeistungenDBErfassen.Form.txtMitarbeiterUndNr.ColumnHidden = True
Hat jemand eine Idee woran das liegt?
Hallo Signore,
Siehe Antwort im MOF.
Crossposting ist i.Ü. nicht gerne gesehen.
gruss ekkehard