Müssen sperren/deaktivieren-Schaltfläche in access

Muss ich deaktivieren/sperren zwei Tasten. Ich habe ein Formular, welches ein Unterformular, welches wiederum über ein weiteres Unterformular. Zwei Tasten in der Dritten Unterformular, dass ich zu deaktivieren/sperren, die abhängig von einer Bedingung in der OnCurrent() des zweiten Unterformular. Das Dritte Unterformular gesperrt ist subform3.locked=true. Alles, was in der Dritten teilformular gesperrt (txtboxes,comboboxes) mit Ausnahme der beiden Tasten habe ich Hinzugefügt.

Habe ich versucht, den code direkt unter dem code, wo das Dritte Unterformular gesperrt ist:

.subform.locked=true

Forms![subform2]![subform3].Form![buttonname].visible=false

Aber das hat nicht funktioniert.
Auch in der OnLoad von subform3 versucht eine if-Bedingung, die prüft, ob subform3 gesperrt ist und wenn Sie wahr machen button.visible=false. Das hat nicht funktioniert entweder.

Ganz neuen Zugang.
Schätzen Sie die Hilfe.

  • Versuchen Sie, die enabled=false statt locked.
  • Hi vacip ...versucht es schon...funktioniert nicht .. ich hoffe der code, den ich hav oben genannten korrekt ist
  • Gut, dann können Sie versuchen, deaktivieren Sie beide Tasten separat...
InformationsquelleAutor r.sa | 2016-01-13
  1. 1

    Ich finde diese Seite die beste Referenz: http://access.mvps.org/access/forms/frm0031.htm

    Wenn Ihr code ist in das Hauptformular dann:

    Private Sub btnOnMainForm_Click()
    Me.btnToDisableOnMainForm.Enabled = False
    Me.SubForm1.Form.btnToDisableOnSubForm1.Enabled = False
    Me.SubForm1.Form.SubForm2.Form.btnToDisableOnSubForm2.Enabled = False
End Sub

    Wenn es in der ersten Unterformular dann:

    Private Sub btnOnSubForm1_Click()
    Me.btnToDisableOnSubForm1.Enabled = False
    Me.Parent.btnToDisableOnMainForm.Enabled = False
    Me.SubForm2.Form.btnToDisableOnSubForm2.Enabled = False
End Sub

    Wenn es in der zweiten Unterformular dann:

    Private Sub btnOnSubForm2_Click()
    Me.Parent.Parent.btnToDisableOnMainForm.Enabled = False
    Me.Parent.btnToDisableOnSubForm1.Enabled = False
    Me.btnToDisableOnSubForm2.Enabled = False
End Sub

    Wenn es nicht auf die form, dann:

    Sub LockControlsFromNormalModule()
    Forms.MainForm.btnToDisableOnMainForm.Enabled = False
    Forms.MainForm.SubForm1.Form.btnToDisableOnSubForm1.Enabled = False
    Forms.MainForm.SubForm1.Form.SubForm2.Form.btnToDisableOnSubForm2.Enabled = False
End Sub

    Drehen Sie die enabled-Eigenschaft ein-und ausschalten mit dem gleichen code, den Sie verwenden können:

    Private Sub btnOnMainForm_Click()
    With Me
        With .btnToDisableOnMainForm
            .Enabled = Not .Enabled
        End With
        With .SubForm1.Form
            With .btnToDisableOnSubForm1
                .Enabled = Not .Enabled
            End With
            With .SubForm2.Form.btnToDisableOnSubForm2
                .Enabled = Not .Enabled
            End With
        End With
    End With
End Sub

    Verwenden Sie die WITH Befehl hier ist das gleiche wie das schreiben:

    Private Sub btnOnMainForm_Click()
    Me.btnToDisableOnMainForm.Enabled = Not Me.btnToDisableOnMainForm.Enabled
    Me.SubForm1.Form.btnToDisableOnSubForm1.Enabled = Not Me.SubForm1.Form.btnToDisableOnSubForm1.Enabled
    Me.SubForm1.Form.SubForm2.Form.btnToDisableOnSubForm2.Enabled = Not Me.SubForm1.Form.SubForm2.Form.btnToDisableOnSubForm2.Enabled
End Sub

    Hinweis - MainForm, SubForm1-und SubForm2 sind die Namen, die ich gerettet Formen wie.

    txtboxOnMainForm, txtboxOnSubForm1 und txtboxOnSubForm2 sind die Namen, die ich gab, um die Steuerelemente auf den Formularen.

    • Es gibt keine Locked-Eigenschaft für ein button. Enabled=False wird Grau der Taste aus und machen es unbrauchbar. Verriegelung ein Unterformular alleine nicht sperren oder verhindern, dass alle Steuerelemente, die verwendet wird, afaik?
    • Ich war so damit beschäftigt, zu erklären, wie auf die Formen, die ich die Tatsache ignoriert, es war Tasten und nicht jede andere Art von Kontrolle. Ich werde aktualisieren, meine Antwort.
    • danke u darren...es funktioniert ...der link u zur Verfügung gestellt haben, war sehr hilfreich auch..der code, den ich mit verweisen auf die Taste war falsch...danke für die Behebung ..cheers
    InformationsquelleAutor Darren Bartrup-Cook
Schreibe einen Kommentar