Kod:
Private Sub DANA_Click()
If DANA = 0 Then ' Eğer DANA KİLO kutusu etkin değilse...
[DANA KİLO].Enabled = False ' Tıklanınca etkin olsun
Else
[DANA KİLO].Enabled = True
End If
End Sub
Tavsiye istemişsiniz program ile ilgili Hemen 2 şey söyleyebilirim:
- Asla ama asla alan adlarında Türkçe karakter kullanmayın
- Asla ama kesinlikle ve çok ciddi derecede ciddiyetle söylüyorum -> Alan adlarına iki kelimelik bir isim verecekseniz arada boşluk yerine _ alt çizgi kullanın