VBA Kod penceresini açarsanız orada yapılanları görecekseniz
Yoksa yanlışmı anlaşım...Veya yanlışmı yapmışım ?
Kod:
Private Sub Kubit_AfterUpdate()
Dim A As Date
Dim B As Date
A = Me.Kubit.Value
B = Me.Kubt.Value
Me.KalipİmalatSuresi.Value = A - B
'[Kubit]-[kubt]
Me.hedef.Value = (200 - Me.KalipİmalatSuresi.Value) * 100 / Me.temringunsayisi.Value
'=200-(([KalipİmalatSuresi]*100)/[temringunsayisi])
End SubKod:
Private Sub temringunsayisi_AfterUpdate()
Dim A As Integer
Dim B As Date
A = Me.temringunsayisi.Value
B = Me.Kubt.Value
Me.Temrintarihi.Value = A + B
If Not IsNull(Me![temringunsayisi]) Then
Me.temringunsayisi.Locked = True
Else
Me.temringunsayisi.Locked = False
End If
End Sub