Как скрыть и отобразить текстовое поле в доступе

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