Private Sub Kilitle_Click()
Me.depoadi.Enabled = False
Me.depohacmi.Enabled = False
Me.depono.Enabled = False
Me.urunadi.Enabled = False
Me.baslangicstokmiktari.Enabled = False
Me.Komut24.Visible = True
End Sub
Kilitleri Açmak için;
Private Sub KilitAc_Click()
Me.depoadi.Enabled = True
Me.depohacmi.Enabled = True
Me.depono.Enabled = True
Me.urunadi.Enabled = True
Me.baslangicstokmiktari.Enabled = True
Me.Komut24.Visible = True
End Sub
Sizin Örneğiniz bende hatalı çalıştığı için yeniden örnek hazırladım.
inceleyip geri dönüş yapınız.