Kod:
Private Sub Onay6_Click()
Dim A As Currency
A = Me.Fiyat.Value
If Me.Onay6.Value = True Then
Me.Fiyat.Value = (-1) * A
Else
End If
End Sub
Onay Kutunuzun Click olayına bu şekilde kod yazarsanız dediğiniz gibi değeri değiştirecektir...
Private Sub Onay6_Click()
Dim A As Currency
A = Me.Fiyat.Value
If Me.Onay6.Value = True Then
Me.Fiyat.Value = (-1) * A
Else
End If
End Sub
Bu Konudaki Yorumlar |
Onay Kutusundan Metin Kutusuna Veri Aktarımı - Yazar: hyavuz - 03/06/2009, 13:57
Cvp: Onay Kutusundan Metin Kutusuna Veri Aktarımı - Yazar: Puletin - 03/06/2009, 14:10
Cvp: Onay Kutusundan Metin Kutusuna Veri Aktarımı - Yazar: C*e*l*o*y*c*e - 03/06/2009, 14:16
Cvp: Onay Kutusundan Metin Kutusuna Veri Aktarımı - Yazar: hyavuz - 03/06/2009, 14:52
Cvp: Onay Kutusundan Metin Kutusuna Veri Aktarımı - Yazar: mesudi - 03/06/2009, 14:20
Cvp: Onay Kutusundan Metin Kutusuna Veri Aktarımı - Yazar: Puletin - 08/06/2009, 17:54
|