如何隐藏和取消隐藏访问中的文本框

Question

如何在访问中隐藏和取消隐藏文本框 vba，但在转到下一条记录时不会改变。请帮助我

我试过这段代码：

Private Sub cboserdos_AfterUpdate()
If cboserdos.Value = "Lulus Sertifikasi" Then
            Me.txt1.Visible = False
            Me.lbl1.Visible = False
            Me.txt2.Visible = False
            Me.lbl2.Visible = False
            Me.txt3.Visible = False
            Me.lbl3.Visible = False
            Me.txt4.Visible = False
            Me.lbl4.Visible = False
            Me.Frameserdos.Visible = False
            Me.Label824.Visible = False
 Else
            Me.txt1.Visible = True
            Me.lbl1.Visible = True
            Me.txt2.Visible = True
            Me.lbl2.Visible = True
            Me.txt3.Visible = True
            Me.lbl3.Visible = True
            Me.txt4.Visible = True
            Me.lbl4.Visible = True
            Me.Frameserdos.Visible = True
            Me.Label824.Visible = True

 End If

If cboserdos.Value = "Belum Sertifikasi" Then
             Me.txt1.Visible = False
            Me.lbl1.Visible = False
            Me.txt2.Visible = False
            Me.lbl2.Visible = False
            Me.txt3.Visible = False
            Me.lbl3.Visible = False
            Me.txt4.Visible = False
            Me.lbl4.Visible = False
            Me.Frameserdos.Visible = False
            Me.Label824.Visible = False
 Else
            Me.txt1.Visible = True
            Me.lbl1.Visible = True
            Me.txt2.Visible = True
            Me.lbl2.Visible = True
            Me.txt3.Visible = True
            Me.lbl3.Visible = True
            Me.txt4.Visible = True
            Me.lbl4.Visible = True
            Me.Frameserdos.Visible = True
            Me.Label824.Visible = True
 End If

End Sub

问题是当我单击下一条记录时，文本框更改的数据不同。

Answer 1

使用 OnCurrent 事件 - 将您的代码缩减四分之一：

Private Sub Form_Current()

    Dim Visible As Boolean

    Select cboserdos.Value 
        Case "Lulus Sertifikasi", "Belum Sertifikasi"
            Visible = False
        Case Else
            Visible = True
    End Select

    Me.txt1.Visible = Visible 
    Me.lbl1.Visible = Visible 
    Me.txt2.Visible = Visible 
    Me.lbl2.Visible = Visible 
    Me.txt3.Visible = Visible 
    Me.lbl3.Visible = Visible 
    Me.txt4.Visible = Visible 
    Me.lbl4.Visible = Visible 
    Me.Frameserdos.Visible =Visible 
    Me.Label824.Visible = Visible 

End If

如何隐藏和取消隐藏访问中的文本框

How to hide and unhide textbox in access

forms

ms-access

vba

ms-access-2010