Formdaki Formülleri tabloya uygulama

Formdaki Formülleri tabloya uygulama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formdaki Formülleri tabloya uygulama (/konu-formdaki-formulleri-tabloya-uygulama.html)

Formdaki Formülleri tabloya uygulama - sinan55 - 25/03/2009

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.

Cvp: Formdaki Formülleri tabloya uygulama - Puletin - 25/03/2009

NOT:Hesaplamaların Tabloya kaydı önerilmez...Aklınızda olsun

Cvp: Formdaki Formülleri tabloya uygulama - sinan55 - 25/03/2009

Sayın puletin
örnekte ne yaptığını anlayamadım. anlatman mümkünmü acaba

Cvp: Formdaki Formülleri tabloya uygulama - Puletin - 25/03/2009

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

Cvp: Formdaki Formülleri tabloya uygulama - sinan55 - 26/03/2009

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