Formun vb sayfasında en alta aşağıdaki kodu ekle.

Sub MunferitAcenta()



If Me.Rezyapan.Value = "-1" Then



Me.Metin265 = ""

    Me.Metin265.Visible = True

    Me.MÜNFERİT.Visible = True

    Me.ACENTA.Visible = False

    Me.Metin267.Visible = False

    Me.Metin265 = "MÜNFERİT"

    Me.Tckimlikno.Visible = True

    Me.Adisoyadi.Visible = True

    Me.Tel2.Visible = True

    Me.sehir1.Visible = True

Me.firmaacentaadı.Visible = False

Me.yetkılıkısı.Visible = False

Me.tel.Visible = False

Me.tel1.Visible = False

Me.adresi.Visible = False

Me.sehir.Visible = False

Me.odasayısı.Visible = False

Else

 

 Me.Metin267 = ""

    Me.Metin267.Visible = True

    Me.MÜNFERİT.Visible = False

    Me.ACENTA.Visible = True

    Me.Metin265.Visible = False

    Me.Metin267 = "ACENTA"

    Me.firmaacentaadı.Visible = True

    Me.yetkılıkısı.Visible = True

    Me.tel.Visible = True

    Me.tel1.Visible = True

    Me.adresi.Visible = True

    Me.sehir.Visible = True

    Me.odasayısı.Visible = True

Me.Tckimlikno.Visible = False

Me.Adisoyadi.Visible = False

Me.Tel2.Visible = False

Me.sehir1.Visible = False

End If

End Sub

Onay Kutusunun güncelleştirme sonrasında olayına yazılan tüm kodu sil, yerine

call MunferitAcenta

kodu ekle,

formun geçerli olduğunda olayınada aşağıdaki kodu ekle

call MunferitAcenta