Skip to main content

AccessTr.neT

Kayıt Ol

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

Sekmeyi sürekli yeni kayda yollama

altangüven
altangüven
Access Cevaplanmış Soruları
8
4470

Sekmeyi sürekli yeni kayda yollama

Çözüldü #7
altangüven
altansoft
altangüven
Bul
Aktif Üye
Adı Soyadı:
Konum: Bursa
Ofis Versiyonu: Ofis 2007
Son Oturumu: 15/08/2011,15:04
Yorumları: 61
Konuları: 8
Kayıt Tarihi: 08/03/2009
Teşekkür Puanı: 4
benim yapmak istediğim analitik muhasebeyle ilgili projemde fişgiriş formunda yansıtma tuşuna bastığımda FGALT formumda yer alan verileri kontrol edecek içlerinde mesela 600 hesap kodu varsa 800 hesapkodu ile bunu yansıtarak FGALT formunun en altına ilave edecek
Kod:
Private Sub YANSITMA_Click()

If Me.[FGALT10]![HESAPNO].Value = "600" Then

Me![FGALT]![HESAPNO] = "800"
Me![FGALT]![Y1] = Me![FGALT10]![Y1]
Me![FGALT]![Y2] = Me![FGALT10]![Y2]
Me![FGALT]![Y3] = Me![FGALT10]![Y3]
Me![FGALT]![Y4] = Me![FGALT10]![Y4]
Me![FGALT]![Y5] = Me![FGALT10]![Y5]
Me![FGALT]![HESABINADI] = Me![FGALT10]![HESABINADI]
Me![FGALT]![BORÇ] = Me![FGALT10]![BORÇ]
Me![FGALT]![ALACAK] = Me![FGALT10]![ALACAK]
End If


End Sub
yansıtılacak hesap tek olnca problem yaşamıyorum mesela iki adet hesap yansıtılacaksa yansıtma butonuna bastığımda iki ayrı hesap kodunuda kontrol edecek ve yansıtmalarını alt alta FGALT formuna iki kayıt olarak ilave edecek
Kod:
Private Sub YANSITMA_Click()

If Me.[FGALT10]![HESAPNO].Value = "600" Then

Me![FGALT]![HESAPNO] = "800"
Me![FGALT]![Y1] = Me![FGALT10]![Y1]
Me![FGALT]![Y2] = Me![FGALT10]![Y2]
Me![FGALT]![Y3] = Me![FGALT10]![Y3]
Me![FGALT]![Y4] = Me![FGALT10]![Y4]
Me![FGALT]![Y5] = Me![FGALT10]![Y5]
Me![FGALT]![HESABINADI] = Me![FGALT10]![HESABINADI]
Me![FGALT]![BORÇ] = Me![FGALT10]![BORÇ]
Me![FGALT]![ALACAK] = Me![FGALT10]![ALACAK]
End If

If Me.[FGALT10]![HESAPNO].Value = "630" Then

Me![FGALT]![HESAPNO] = "830"
Me![FGALT]![Y1] = Me![FGALT10]![Y1]
Me![FGALT]![Y2] = Me![FGALT10]![Y2]
Me![FGALT]![Y3] = Me![FGALT10]![Y3]
Me![FGALT]![Y4] = Me![FGALT10]![Y4]
Me![FGALT]![Y5] = Me![FGALT10]![Y5]
Me![FGALT]![HESABINADI] = Me![FGALT10]![HESABINADI]
Me![FGALT]![BORÇ] = Me![FGALT10]![BORÇ]
Me![FGALT]![ALACAK] = Me![FGALT10]![ALACAK]
End If
End Sub
o zaman kodu bu şekilde düşündüm ama sorun ikisinide aynı satıra sıra ile yazıyor sonuçta son 830 yansıtma hesabı kalıyor sadece sorunum bundan ibaret. Yansıt dediğimde FGALT10 formunu kontrol edip sırasıyla yansıtılacak hesapları FGALT formuna girmesini istiyorum.
altansoft 08-03-2009.
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
Cvp: Sekmeyi sürekli yeni kayda yollama - Yazar: altangüven - 19/06/2009, 23:02
Task