19/06/2009, 23:02
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 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 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.
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 SubKod:
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