PDA

Vollständige Version anzeigen : VBA Code zeigt nichts an!!


Simon
02.07.2001, 09:21
Hallo,

habe 3 Kontrollkästchen die es mir mit dem VAB Code nicht anzeigt!!!:

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
Dim myLong As Long
myLong = [Reports]![reqKostenstellenGeteilt]![WaNr]
Select Case (myLong)
Case 1
Reports![reqKostenstellenGeteilt]!Einzelauftrag.Visible = True
Reports![reqKostenstellenGeteilt]!Quartalsauftrag.Visible = False
Reports![reqKostenstellenGeteilt]!Projekt.Vissible = False
Case 2
Reports![reqKostenstellenGeteilt]!Einzelauftrag.Visible = False
Reports![reqKostenstellenGeteilt]!Quartalsauftrag.Visible = True
Reports![reqKostenstellenGeteilt]!Projekt.Visible = False
Case 3
Reports![reqKostenstellenGeteilt]!Einzelauftrag.Visible = False
Reports![reqKostenstellenGeteilt]!Quartalsauftrag.Visible = False
Reports![reqKostenstellenGeteilt]!Projekt.Visible = True
Case Else
Reports![reqKostenstellenGeteilt]!Einzelauftrag.Visible = False
Reports![reqKostenstellenGeteilt]!Quartalsauftrag.Visible = False
Reports![reqKostenstellenGeteilt]!Projekte.Visible = False
End Select

End Sub

es sollte mir jedoch immer das kontrollkästchen anzeigen das auf Ja gestellt ist!!

Habe ich ein überlegungsfehler oder was?!?!

Gruss Simon

A.S.
02.07.2001, 10:21
Hallo Simon,

AFAIK ist eine Änderung an einem Steuerelemt des Detailbereichs, immer für alle Ausprägungen des Detailberichs gültig. Soll heißen, wenn Du im letzten Satz (bzw. Detailbereich) ein Steuerelement ein- bzw. ausschaltest, gilt dies für alle Detailbereiche.

In Deinem letzten Satz wird mit Sicherheit die letzte Alternative, in welcher keines der entsprechenden Steuerelemente angezeigt wird, zutreffen. Das heißt automatisch, das in keinem Detailbereich eines der Steuerelemente angezeigt wird.

Um dort eine Adäquate anzeige hinzubekommen, die allerdings nicht mehr auf Kontrollkästchen beruht, erstelle ein Ungebundenes Textfeldes mit dem Inhalt:

=Wenn([Reports]![reqKostenstellenGeteilt]![WaNr]=1;"Einzelauftrag"; _
Wenn([Reports]![reqKostenstellenGeteilt]![WaNr]=2;"Quartalsauftrag"; _
Wenn([Reports]![reqKostenstellenGeteilt]![WaNr]=3;"Projekt";"")))

Alternativ kannst Du an der Stelle 3 Spalten "EA", "QA", "PJ" mit den entsprechenden Kontrollkästchen im Detailbereich anbringen. Als Steuerelementinhalt des Controls

EA setzt Du =Wenn([Reports]![reqKostenstellenGeteilt]![WaNr]=1;Wahr;Falsch)

QA setzt Du =Wenn([Reports]![reqKostenstellenGeteilt]![WaNr]=2;Wahr;Falsch)

PJ setzt Du =Wenn([Reports]![reqKostenstellenGeteilt]![WaNr]=3;Wahr;Falsch)

Unter den Bericht, mach ich öfters so, setzt Du eine Legende "EA = Einzelauftrag, QA = Quartalsauftrag, PJ = Projekt".

Eine von beiden Möglichkeiten steht Dir offen. Das gesteuerte Abschalten der Controls jedoch - MS sei dank - nicht.


------------------
HTH

Arno