Dropdownfeld ausblenden?

[wuffwuff2003]

Der Code ist der gleiche wie oben habe nur den MAN durch die Ziffer des Nachschlagefeldes gewechselt:

Private Sub ServiceAttache_AfterUpdate()
If ServiceAttache = "8" Then
   Me.ServiceManoeuvre.Visible = False
Else
   Me.ServiceManoeuvre.Visible = True
End If
End Sub

[MzKlMu]

Hallo,
das habe ich befürchtet.   Eine Ziffer ist ja kein Text.

Code [Auswählen] Erweitern

Private Sub ServiceAttache_AfterUpdate()
  Me.ServiceManoeuvre.Visible = Not Me.ServiceAttache = 8
End Sub

Die eine Zeile deckt alles ab, If... Then ist nicht notwendig.

[wuffwuff2003]

Danke, aber auch damit bekomme ich es nicht hin. Welchen Namen nehme ich für die Zeile , nicht dass hier der Fehler liegt. Ist es der Name der im Dropdownfeld angezeigt wird, oder ist es der Name den ich diesem Feld unter dem Eigenschaftsblatt - Andere - Name angegeben habe.

[MzKlMu]

Hallo,
erstelle eine Beispieldb mit den von Dir verwendeten Namen und lade diese hier hoch.

[wuffwuff2003]

Ich kriege meine Datenbank nicht klein genug um sie hierhin zu setzen, ich komme nicht unter 350kB

[wuffwuff2003]

Ich versuche das Problem nochmals zu schildern

Ich habe ein Dropdownfeld oben dort stehen meine Arbeiter. Da drunter kommt das Feld ServiceAttache wo verschiedenes angezeigt wird eben auch MAN. Daneben ist dann das Dropdownfeld das ausgeblendet werden soll.
Wenn ich nun einen namen aussuche dann zeigt er mir im Service Attache dierses an eben halt auch MAN. Aber das Feld daneben bleibt immer sichtbar. Wenn ich jetzt aber das Service Attache selber auf MAN setze oder eine andere Option dann verschwindet das Feld nebenan. Nicht aber wenn ich in meinem Dropdownfeld einen Namen aussuche, da bleibt das Feld immer sichtbar egal ob MAN angezeigt wird oder nicht.

[MzKlMu]

Hallo,

Ich kriege meine Datenbank nicht klein genug um sie hierhin zu setzen, ich komme nicht unter 350kB

Hast Du die DB schon komprimiert (Access Dienstprogramm)?
Außerdem würde es genügen nur die für das Problem relevanten Objekte in die Beispieldb zu übertragen.



 

[wuffwuff2003]

Ja hatte ich gemacht. Ich denke meine Vorgehensweise ist falsch. Ich ändere ja den Namen im Dropdown, diesem müsste ich wahrscheinlich diese Zeile AfterUpdate hinzufügen, dann müsste es klappen denke ich, weil die anderen Dropdowns passen sich ja dem Namen an, der an 1. Stelle steht. Ich krieg hier die Zeile aber nicht hinein, da dieses Dropdownfeld ein integriertes Makro enthällt was von Access gesetzt wurde, was ich nicht in VBA konvertiert kriege. Ich habe dafür soeben extra in Unterforum PROGRAMMIERUNG ein Thread eröffnet. Ich denke dann wäre das Problem gelöst

[DF6GL]

Hallo,

auch die Konvertierung in VBA wird das "Problem" so es denn eines ist, nicht lösen.

Vorzuziehen wäre das Hochladen Deiner DB. Ich weiß jetzt nicht, ob Du die Datei vor dem Hochlade-Versuch auch gezippt hast...

[wuffwuff2003]

Doch gezippt komme ich immer noch auf diese 290kB obwohl ich die Datenbank so klein wie möglich gemacht habe, aber ein paar Sachen muß ich ja drin stehen lassen damit meine Funktion so bleibt wie sie in meiner Datenbank ist, und das reicht leider nicht :/

[MzKlMu]

Hallo,
hast Du die DB auch komprimiert, wie weiter oben vorgeschlagen?
Komprimieren ist nicht das Gleiche als Zippen?

Hast Du Bilder, Logos oder ähnliches in der DB?

[bahasu]

Hi,

wenn ich das recht verstanden habe, hast Du DREI Felder:
1. wo die Arbeiter drin stehen
2. ServiceAttache
3. das auszublendende

Vielleicht erreichst Du Dein Ziel, wenn Du in Deinem ersten Feld im Ereignis "nach Aktualisierung" eine Zeile in der Art hinzufügst:

call ServiceAttache_AfterUpdate

Ich setze jetzt voraus, dass dort steht:
Private Sub ServiceAttache_AfterUpdate()
   Me.ServiceManoeuvre.Visible = Not Me.ServiceAttache = 8
End Sub

Harald

[wuffwuff2003]

Hallo ja genau das wollte ich versuchen, da aber unter der Funktion AfterUpdate im Namensdropdown hier ein Makro drin steht was Access hinzugefügt hat, kann ich keinen VBA Code hinzufügen, da hänge ich momentan. Ich kriege das Makro auch nicht in VBA umgewandelt. Sonst hätt ich den Befehl unter das Arbeiterdropdown hinzugefügt.

[wuffwuff2003]

Ich kriege das Ding nicht unter 290kB beim allerbesten Willen, ich habe es aufs maximal geschrumpft, repariert und komprimiert, und gezip't. Nichts zu machen. Dass man nur 200kB hochladen kann ist wirklich extrem extrem wenig.

[DF6GL]

Hallo,

schick mir mal (ausnahmsweise) die gezippte Datei an

de ef sechs ge el ät ge em ix . de eh 


sechs =6