Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
25/03/2009 16:44
Konu Sahibi
sinan55
Yorumlar
4
Okunma
1513
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

sinan55

Aktif Üye
Kullanici Avatari
Aktif Üye
134
07/02/2009
0
Samsun
Ofis 2013 Tr. 64 Bit
16/01/2015,09:40
Çözüldü 
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.


Ek Dosyalar
.rar   örnek.rar (Dosya Boyutu: 127,93 KB / İndirme Sayısı: 27)
Cevapla

Puletin


Kullanici Avatari
Altın Üye
1.715
01/11/2008
416
-
Ofis 2003
24/12/2016,00:18
Çözüldü 
NOT:Hesaplamaların Tabloya kaydı önerilmez...Aklınızda olsun


Ek Dosyalar
.rar   örnek.PLTN.rar (Dosya Boyutu: 130,02 KB / İndirme Sayısı: 33)
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

sinan55

Aktif Üye
Kullanici Avatari
Aktif Üye
134
07/02/2009
0
Samsun
Ofis 2013 Tr. 64 Bit
16/01/2015,09:40
Çözüldü 
Sayın puletin
örnekte ne yaptığını anlayamadım. anlatman mümkünmü acaba


Cevapla

Puletin


Kullanici Avatari
Altın Üye
1.715
01/11/2008
416
-
Ofis 2003
24/12/2016,00:18
Çözüldü 
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:
1
2
3
4
5
6
7
8
9
10
11
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

sinan55

Aktif Üye
Kullanici Avatari
Aktif Üye
134
07/02/2009
0
Samsun
Ofis 2013 Tr. 64 Bit
16/01/2015,09:40
Çözüldü 
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


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 11 391 19/10/2017, 17:29 U.ALTUN
Çözüldü Tik Uygulama Hk. serkan1985 4 124 18/10/2017, 13:28 serkan1985
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 9 441 04/10/2017, 19:53 ozanakkaya
Çözüldü Formdaki Değerlere Göre Raporu Listeleme husem 7 256 01/10/2017, 21:44 ozanakkaya
Çözüldü Sorgulama Sonrası Tabloya Mükerrer Kayıt U.ALTUN 2 119 30/09/2017, 11:27 U.ALTUN

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.