Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: accessy am Juli 10, 2013, 21:52:17

Titel: ComboBox ausblenden geht nicht
Beitrag von: accessy am Juli 10, 2013, 21:52:17
Mit einem Doppelklick im Feld Resultat des UF Besuchsberichte erscheint im HF die Combobox.
Das funktioniert.

Private Sub Resultat_DblClick(Cancel As Integer)
   Form_Kunden.Textbaustein.Visible = True 'Zeigt das Kombinationsfeld für Textbausteine an
End Sub


Das HF Kunden hat mehrere Kartenreiter, also Unterformulare.
Jetzt möchte ich, dass diese Combobox im HF beim Wechsel in ein anderes UF wieder ausgeblendet wird.
Das hier funktioniert nicht.
Beispiel:
Ich aktiviere das UF Partner

Private Sub Form_Activate()
   Form_Kunden.Textbaustein.Visible = False
End Sub


Dann setzte ich das mal ins Ereignis OPEN.
Aber auch das geht nicht.

Was muss ich tun, damit das geht?
Gruß Achim
Titel: Re: ComboBox ausblenden geht nicht
Beitrag von: daolix am Juli 10, 2013, 22:16:48
im Change - event des Kartenreiter könntest du die Sichtbarkeit setzen
private sub NameDeinesKartenreiter_Change()
Textbaustein.Visible = False
end sub

Titel: Re: ComboBox ausblenden geht nicht
Beitrag von: accessy am Juli 10, 2013, 22:28:24
Es gibt kein Change Ereignis für das UF.
Titel: Re: ComboBox ausblenden geht nicht
Beitrag von: daolix am Juli 10, 2013, 22:36:27
Okay dann hast du ne Version > Acc2003. Da kann ich dann nicht mehr mit ( hab nicht mal nen Plan was Kartenreiter inn > 2003 ist), Kartenreiter ist in Acc 2003 für mich das Registersteuerelement.
Titel: Re: ComboBox ausblenden geht nicht
Beitrag von: accessy am Juli 10, 2013, 23:03:05
Ich habe Access 2002.
Ja, stimmt. Diese Kartenreiter sind diese Registersteuerelemente.
Klicke ich mit rechts auf
Form_Kunden (HF), dann gibt es auch ein Change Ereignis.

Klicke ich mit rechts auf
Form_Besuchsberichte (UF), dann gibt es kein Change Ereignis.
Titel: Re: ComboBox ausblenden geht nicht
Beitrag von: daolix am Juli 10, 2013, 23:28:08
Du musst das Registersteuerelement markieren, nicht irgendeine Seite des Registers. Das Register hat einen eigene Namen z.b. RegisterStr0. Hier gibt es ein Ereignis Bei Änderung (Change im Code) und in diesem schreibst du z.B.
Private Sub RegisterStr0_Change()
    Me.Textbaustein.Visible = False
end Sub
Titel: Re: ComboBox ausblenden geht nicht
Beitrag von: accessy am Juli 11, 2013, 08:17:52
Aaaaaaaa...... Jetzt funktioniert es. 
Danke für den Hinweis dazu.
Gruß Achim