Supportnet / Forum / Datenbanken

Hallo zusammen, mal wieder jemand der keinen Plan hat, aber dafür Fragen. Ich will Texte, Buttons usw. mit Hilfe von Radiotuttons einbleden die erst einmal ausgeblendet sind (unsichtbar) Ich habe ein Formular, eine tabelle und einen Plan :-) Ich stelle mir das so vor: frmJaNein-->setzt auf einen tblJaNein auf die ein Feld "f1" hat. In diesem Feld soll der Status der Radiobuttons gesetzt werden (entweder 1 oder 2, 1 = Ja, 2 = Nein) Dann sind auf dem frmJaNein noch zwei Textfelder, die auf "invisible" gesetzt sind. Die sollen, abhängig vom Wert in der tbl sichtbar sein oder halt nicht. Textfelder sind "JA" und "NEIN" Kann mir jemand den Code nennen? Ich schaffe es nicht alleine. Das ist nur ein Test, den Ernstfall würde ich dann selbst machen, sobald ich es verstanden habe! Vielen Dank Bastian

Hallo Bastin,
ich hab dazu auch ein paar Fragen.
Das Formular ist das Excel (welche Versinon) erstellt?
Was meinst du mit einem Radiobotton?

Gruß
fedjo

Hallo Bastian,

ich habe hier etwas Code als Anregung zu bieten. Es ist nicht perfekt, weil das Umschalten beim 1. Mal nicht sauber klappt.

Ich habe also die Textfelder JA und NEIN, einen Befehlsknopf und eine Optionsgruppe mit den Optionen Ja sichtbar und Nein sichtbar.

Der Code sieht so aus:

Zum Speichern der Einstellungen in der Tabelle:

Private Sub Form_Close()
Dim c As Integer
CurrentDb.Execute ( _
     "UPDATE Tabelle1 SET f1 = " & OptionJA.OptionValue & " WHERE ID=1;")
CurrentDb.Execute ( _
     "UPDATE Tabelle1 SET f1 = " & OptionNEIN.OptionValue & " WHERE ID=2;")
End Sub

Hier wird die Tabelle ausgelesen und die variablen gesetzt. Das "lbl" sind die Bezeichnungen der textfelder, die ja auch verschwinden sollen.

Private Sub Form_Open(Cancel As Integer)
    Dim varJA, varNEIN As Variant
    varJA = DLookup("f1", "Tabelle1", "ID = 1")
    varNEIN = DLookup("f1", "Tabelle1", "ID = 2")
    Ja.Visible = varJA = 1
    lblJa.Visible = varJA = 1
    Nein.Visible = varNEIN = 1
    lblNein.Visible = varNEIN = 1
    OptionJA.OptionValue = varJA
    OptionNEIN.OptionValue = varNEIN
End Sub

Hier darf jeder Optionsbutton wirken, wenn er dran ist:

Private Sub OptionNEIN_GotFocus()
    Wechsel_Click
End Sub

Private Sub OptionJA_GotFocus()
    Wechsel_Click
End Sub

Hier war eigentlich nur der Befehlsknopf am Werken:

Private Sub Wechsel_Click()

    Ja.Visible = Not Ja.Visible
    lblJa.Visible = Not lblJa.Visible
    Nein.Visible = Not Nein.Visible
    lblNein.Visible = Not lblNein.Visible
    
    If lblJa.Visible Then
    OptionJA.OptionValue = 1
    OptionNEIN.OptionValue = 2
    End If
    
    If lblNein.Visible Then
    OptionNEIN.OptionValue = 1
    OptionJA.OptionValue = 2
    End If
    
End Sub

Wie gesagt, es ist nicht perfekt, aber als Anregung vielleicht nicht schlecht.

Gruß
lorf

• Access - Kombi-Felder synchronisieren nicht
• zu viele felder definiert
• summe in accessbericht aus felder mit formeln
• Access Felder in einer Abfrage berechnen
• Leere Felder - sehr merkwürdig