Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Karışık Ölçüt Yardımı

andarc
andarc
Access Cevaplanmış Soruları
10
893

Karışık Ölçüt Yardımı

#8
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:51
Yorumları: 8.548
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
anladığım kadarıyla aşağıdaki gibi bir yapı işinize yarayacaktır
1 - Frm_ekipman formuna aşağıdaki yordamı ekleyin
Function xSonuc()
xSonuc = ""
Set rsA = Me.tbl_kalinlik_alt_formu.Form.Recordset.Clone

If rsA.RecordCount > 1 Then
    rsA.MoveFirst: xYilSon = Year(rsA(2)): xDgr1 = rsA(3)
    rsA.MoveLast: xYilOnceki = Year(rsA(2)): xDgr2 = rsA(3)
    xSonuc = (xDgr1 - xDgr2) / (xYilSon - xYilOnceki)
End If
End Function
2 - form geçerli olduğunda yordamına aşağıdaki kodu ekleyin
kh_shell = xSonuc
dilerim işinize yarar.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Karışık Ölçüt Yardımı - Yazar: andarc - 13/10/2024, 14:12
RE: Karışık Ölçüt Yardımı - Yazar: berduş - 13/10/2024, 14:29
Re: Karışık Ölçüt Yardımı - Yazar: andarc - 14/10/2024, 09:18
RE: Karışık Ölçüt Yardımı - Yazar: atoykan - 14/10/2024, 12:54
RE: Karışık Ölçüt Yardımı - Yazar: andarc - 14/10/2024, 13:21
RE: Karışık Ölçüt Yardımı - Yazar: atoykan - 14/10/2024, 18:21
RE: Karışık Ölçüt Yardımı - Yazar: andarc - 14/10/2024, 19:13
RE: Karışık Ölçüt Yardımı - Yazar: berduş - 14/10/2024, 19:46
RE: Karışık Ölçüt Yardımı - Yazar: berduş - 14/10/2024, 20:31
RE: Karışık Ölçüt Yardımı - Yazar: andarc - 14/10/2024, 20:52
RE: Karışık Ölçüt Yardımı - Yazar: berduş - 14/10/2024, 20:53
Task