Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Unterformular: Code richtig aber iwie doch falsch^^
zurück: Formular lässt sich nicht mehr bedienen weiter: bezeichnung nicht vertikal darstellbar Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
sez_gin
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Sep 2011, 13:53
Rufname:

Unterformular: Code richtig aber iwie doch falsch^^ - Unterformular: Code richtig aber iwie doch falsch^^

Nach oben
       Version: Office 2003

Hallo,

ich habe folgendes Problem:

Ich habe ein Unterformular erstellt, dessen Ansicht über ein Kontrollkästchen bestimmt werden soll.

Als Code hab ich folgendes eingegeben:

Code:
Private Sub chk_aktausakt_AfterUpdate()
  If Me!chk_aktausakt = -1 Then
    Me!subfrm_aktwkn.Visible = True
  Else
    Me!subfrm_aktwkn.Visible = False
End If
End Sub


Das Ganze klappt an sich auch, allerdings mit dem Problem, dass wenn ich mein Formular schließe und wieder öffne. mein Unterformular angezeigt wird, obwohl der Haken nicht gesetzt ist.

Setze ich dann den Haken und nehme und wieder raus, dann verschwindet das Unterformular. Ich würde es aber gerne so haben, dass wenn das Formular geöffnet wird und kein Haken gesetzt ist, dass das Unterformular auch nicht angezeigt wird.

Danke schonmal im Voraus!!
MissPh!
Office-VBA-Programmiererin


Verfasst am:
21. Sep 2011, 15:18
Rufname:
Wohnort: NRW


AW: Unterformular: Code richtig aber iwie doch falsch^^ - AW: Unterformular: Code richtig aber iwie doch falsch^^

Nach oben
       Version: Office 2003

Hallo,

dann musst du den Code auch im Formularereignis "Beim Anzeigen" ausführen.

Es geht übrigens auch kürzer:
Code:
Private Sub chk_aktausakt_AfterUpdate()
    Me!subfrm_aktwkn.Visible = Me!chk_aktausakt
End Sub

_________________
Gruß MissPh!
sez_gin
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Sep 2011, 15:36
Rufname:

AW: Unterformular: Code richtig aber iwie doch falsch^^ - AW: Unterformular: Code richtig aber iwie doch falsch^^

Nach oben
       Version: Office 2003

Perfekt!

Danke!
sez_gin
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Sep 2011, 16:00
Rufname:

AW: Unterformular: Code richtig aber iwie doch falsch^^ - AW: Unterformular: Code richtig aber iwie doch falsch^^

Nach oben
       Version: Office 2003

so...jetzt kommt doch iwie ein fehler.

als ich nur durch die datenbank stöberte hat alles super geklappt, aber als ich einen neuen datensatz hinzufügen wollte kam ein laufzeitfehler und es wurd auf meinen befehl hingewiesen den ich wie du vorgeschlagen hast als ereignis beim anzeigen geschrieben habe. Ich bin mir ziemlich sicher, dass es auch nciht so geht wie ich es getan habe deswegen brauche ich ncoh einmal kurz hilfe um das richtig zu machen.

Geschrieben hatte ich :

Code:

Private Sub Form_Current()
    Me!subfrm_aktwkn.Visible = Me!chk_aktausakt
End Sub


Allerdings habe ich so einiges an Befehlen für ereignisse beim anzeigen noch dazwischen stehen, sodass es bei mir so aussieht: Die ersten drei if-Blöcke habe ich für etwas anderes benötigt.

Code:

Private Sub Form_Current()
 If Me!chk_kaktien = -1 Then
    Me!register.Pages("pge_aktien").Visible = True
  Else
    Me!register.Pages("pge_renten").Visible = False
 End If
 
  If Me!chk_krenten = -1 Then
    Me!register.Pages("pge_renten").Visible = True
  Else
    Me!register.Pages("pge_renten").Visible = False
 End If
 
 If Me!chk_kderivate = -1 Then
    Me!register.Pages("pge_derivate").Visible = True
  Else
    Me!register.Pages("pge_derivate").Visible = False
 End If

Me!subfrm_aktwkn.Visible = Me!chk_aktausakt

End Sub



wo liegt bei mir der Fehler?
bestimmt darin dass ich den ausdruck :

Code:
Me!subfrm_aktwkn.Visible = Me!chk_aktausakt


einfach so zwischen die zeilen gequetscht habe oder? aber was muss ich da noch vor und hinter schreiben?
MissPh!
Office-VBA-Programmiererin


Verfasst am:
21. Sep 2011, 16:15
Rufname:
Wohnort: NRW

AW: Unterformular: Code richtig aber iwie doch falsch^^ - AW: Unterformular: Code richtig aber iwie doch falsch^^

Nach oben
       Version: Office 2003

Die vereinfachte Schreibweise, die du übernommen hattest, kannst du natürlich auch auf die anderen Fälle übertragen.
Um das Problem beim neuen Datensatz zu umgehen, kannst du den Code folgendermaßen ändern:
Code:
Private Sub Form_Current()
    Me!register.Pages("pge_aktien").Visible = NZ(Me!chk_kaktien,0)
    Me!register.Pages("pge_renten").Visible = NZ(Me!chk_krenten,0)
    Me!register.Pages("pge_derivate").Visible = NZ(Me!chk_kderivate,0)
    Me!subfrm_aktwkn.Visible = NZ(Me!chk_aktausakt,0)
End Sub

_________________
Gruß MissPh!
sez_gin
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Sep 2011, 16:32
Rufname:


AW: Unterformular: Code richtig aber iwie doch falsch^^ - AW: Unterformular: Code richtig aber iwie doch falsch^^

Nach oben
       Version: Office 2003

Danke! Läuft super!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: beziehungen falsch? 4 ginkai 469 19. Jun 2007, 11:21
ginkai beziehungen falsch?
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehungen richtig erstellen 3 Haag 676 10. Mai 2007, 08:32
stpimi Beziehungen richtig erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnung ist falsch 3 tschawat 484 03. Mai 2007, 23:10
KlausMz Berechnung ist falsch
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Kriterien richtig erstellen? 9 IV 2811 22. März 2007, 10:50
IV Abfrage mit Kriterien richtig erstellen?
Keine neuen Beiträge Access Tabellen & Abfragen: Textfeld an Unterformular binden 1 RobiMaverick 2392 13. März 2007, 17:20
Thomas2007 Textfeld an Unterformular binden
Keine neuen Beiträge Access Tabellen & Abfragen: ACCESS Splash - INSERT INTO Abfrage Code 0 Joppel 698 21. Dez 2006, 21:38
Joppel ACCESS Splash - INSERT INTO Abfrage Code
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellenverknüpfungsmanager per code aufrufen 2 blicki 1392 19. Dez 2006, 12:06
blicki Tabellenverknüpfungsmanager per code aufrufen
Keine neuen Beiträge Access Tabellen & Abfragen: was soll hier falsch sein (SQL Abfrage)??? 3 Gast 5038 24. Okt 2006, 17:10
Willi Wipp was soll hier falsch sein (SQL Abfrage)???
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehung wird nicht richtig übernommen 2 Twister-3101 791 11. Sep 2006, 11:27
jens05 Beziehung wird nicht richtig übernommen
Keine neuen Beiträge Access Tabellen & Abfragen: Problem: Parameter-Abfrage aus einem Unterformular ausführen 3 bettina_vt 3427 12. Mai 2006, 15:44
bettina_vt Problem: Parameter-Abfrage aus einem Unterformular ausführen
Keine neuen Beiträge Access Tabellen & Abfragen: Datenmodell richtig? 6 Dietmar_Plf 785 10. Mai 2006, 23:10
Dietmar_Plf Datenmodell richtig?
Keine neuen Beiträge Access Tabellen & Abfragen: Mitglieder wahr / falsch abfrage 5 Kuddel_HH 873 05. Jan 2006, 21:37
Kuddel_HH Mitglieder  wahr / falsch abfrage
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme