Formdaki Formülleri tabloya uygulama

25/03/2009, 16:44

sinan55

Arkadaşlar
Ben yapmak istediğim formülleri form üzerinde uyguladım.
fakat tablolarda kayıt altına aldıramıyorum. bunu nasıl yapmam gerekiyor.
bana bir yol gösterirmisiniz.
gönderdiğim örnekte form üzerinde temrin gün sayısını ve kalıp üretim bitiş tarihini girdiğinizde bana temrin tarihini , kalıp süresini ve kalıp hedefini veriyor. bu formülleri nereye yazmam gerekiyorki tablolarda kayıt altına alsın.
şimdiden teşekkür ederim.
25/03/2009, 18:31

Puletin

NOT:Hesaplamaların Tabloya kaydı önerilmez...Aklınızda olsun
25/03/2009, 18:40

sinan55

Sayın puletin
örnekte ne yaptığını anlayamadım. anlatman mümkünmü acaba
25/03/2009, 18:50

Puletin

Hesaplamaların Tabloya işlenmesini istemediniz mi sayın Sinan55 Sizin yazdığınız kodları Vba da kendimce biraz düzenledim.
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 Sub
Kod:
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
26/03/2009, 09:21

sinan55

Sayın Puletin
Kodları görmemiştim. şimdi gördüm
emeğine ve yüreğine sağlık.
sorun çözülmüştür