Örnek dosya 11,6mb dosya boyutu fazla uyarısı verdiğinden yüklenemedi.
Dm'den mail adresi verirseniz veri tabanını yollayabilirim. Şimdiden teşekkürler.
Private Sub Form_Open(Cancel As Integer)
Pasifle
End Sub
Private Sub Pasifle()
Me.metin1.enable = False
me.liste2.enable = False
.
.
.
End Sub
Private Sub Aktifle()
Me.metin1.enable = True
me.liste2.enable = True
End Sub
Private Sub ButonAdı_Click()
Aktifle
End Sub