Araç Masraflarının Muhasebe Kaydını Yapmak

Araç Masraflarının Muhasebe Kaydını Yapmak - 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ığı: Araç Masraflarının Muhasebe Kaydını Yapmak (/konu-arac-masraflarinin-muhasebe-kaydini-yapmak.html)

Sayfalar: 1 2

Cvp: Araç Masraflarının Muhasebe Kaydını Yapmak - derzulya - 19/02/2020

(19/02/2020, 14:32)adnan yazdı: Merhaba,
Sn.derzulya, akşam bende bir şeyler yapmıştım boşa gitmesin en azından bir fikir verebilir.
Sayılarımla

teşekkür ederim

Cvp: Araç Masraflarının Muhasebe Kaydını Yapmak - derzulya - 20/02/2020

Merhaba.

Uygulamayı biraz değiştirdim satırları çoğalttım hesaplama kodlarını düzenledim. Ancak 2 sorunu çözemedim bir türlü.

Birincisi;

Uygulama şuan beni bütün satırları doldurma zorunda bırakıyor. doldurmazsam alacak bölümünde toplam almıyor. Tüm satırları doldurursam sorunsuz çalışıyor.

İkincisi;

Alt formda satılar boşta olsa doluda olsa satırları getiriyor. Sadece dolu satırları getirmesini sağlayamadım.

Arama yaptım ama bulamadım. Ya da ben anlayamadım. Dün gece dişimi çektirdiğim için ağrı içerisindeyim şuan anlayışınıza sığınıyorum.

yardımcı olabilirseniz sevinirim.

araç masrafları - Kopya.zip (Dosya Boyutu: 115,55 KB | İndirme Sayısı: 7)

Cvp: Araç Masraflarının Muhasebe Kaydını Yapmak - tekinuygun - 20/02/2020

(20/02/2020, 16:01)derzulya yazdı: Merhaba.

Uygulamayı biraz değiştirdim satırları çoğalttım hesaplama kodlarını düzenledim. Ancak 2 sorunu çözemedim bir türlü.

Birincisi;

Uygulama şuan beni bütün satırları doldurma zorunda bırakıyor. doldurmazsam alacak bölümünde toplam almıyor. Tüm satırları doldurursam sorunsuz çalışıyor.

İkincisi;

Alt formda satılar boşta olsa doluda olsa satırları getiriyor. Sadece dolu satırları getirmesini sağlayamadım.

Arama yaptım ama bulamadım. Ya da ben anlayamadım. Dün gece dişimi çektirdiğim için ağrı içerisindeyim şuan anlayışınıza sığınıyorum.

yardımcı olabilirseniz sevinirim.

Kodu denermisiniz.

Private Sub Komut45_Click()





' 1 satır '



If IsNull(Me.masraf_turu) Or IsNull(Me.masraftutari) Or IsNull(Me.kdv_orani) Then



'MsgBox "ilk satır boş"



Else



Dim Rs As New ADODB.Recordset

    Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = Me.masraf_turu.Column(1)

    Rs("Borc") = Me.masraftutari / 100 * 70

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = Me.kdv_orani.Column(1)

    Rs("Borc") = Me.masraftutari / 100 * 70 / 100 * Me.kdv_orani.Column(2)

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = "Kanunen Kabul Edilmeyen Giderler"

    Rs("Borc") = (Me.masraftutari / 100 * Me.kdv_orani.Column(2) + Me.masraftutari) / 100 * 30

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = "Kanunen Kabul Edilmeyen Gider KDV si"

    Rs("Borc") = (Me.masraftutari / 100 * Me.kdv_orani.Column(2) + Me.masraftutari) / 100 * 30 / Me.kdv_orani.Column(2)

    Rs.Update

Set Rs = Nothing



End If



If IsNull(Me.masraf_turu2) Or IsNull(Me.tutar2) Or IsNull(Me.kdv_orani2) Then



'MsgBox "ikinci satır boş"



Else



' 2. satır '

Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = Me.masraf_turu2.Column(1)

    Rs("Borc") = Me.tutar2 / 100 * 70

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = Me.kdv_orani2.Column(1)

    Rs("Borc") = Me.tutar2 / 100 * 70 / 100 * Me.kdv_orani2.Column(2)

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = "Kanunen Kabul Edilmeyen Giderler"

    Rs("Borc") = (Me.tutar2 / 100 * Me.kdv_orani2.Column(2) + Me.tutar2) / 100 * 30

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = "Kanunen Kabul Edilmeyen Gider KDV si"

    Rs("Borc") = (Me.tutar2 / 100 * Me.kdv_orani2.Column(2) + Me.tutar2) / 100 * 30 / Me.kdv_orani2.Column(2)

    Rs.Update

Set Rs = Nothing



End If



' 3. satır '



If IsNull(Me.masraf_turu3) Or IsNull(Me.tutar3) Or IsNull(Me.kdv_orani3) Then



'MsgBox "üçüncü satır boş"



Else



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = Me.masraf_turu3.Column(1)

    Rs("Borc") = Me.tutar3 / 100 * 70

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = Me.kdv_orani3.Column(1)

    Rs("Borc") = Me.tutar3 / 100 * 70 / 100 * Me.kdv_orani3.Column(2)

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = "Kanunen Kabul Edilmeyen Giderler"

    Rs("Borc") = (Me.tutar3 / 100 * Me.kdv_orani3.Column(2) + Me.tutar3) / 100 * 30

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = "Kanunen Kabul Edilmeyen Gider KDV si"

    Rs("Borc") = (Me.tutar3 / 100 * Me.kdv_orani3.Column(2) + Me.tutar3) / 100 * 30 / Me.kdv_orani3.Column(2)

    Rs.Update

Set Rs = Nothing



End If



' 4. satır '



If IsNull(Me.masraf_turu4) Or IsNull(Me.tutar4) Or IsNull(Me.kdv_orani4) Then



'MsgBox "dördüncü satır boş"



Else



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = Me.masraf_turu4.Column(1)

    Rs("Borc") = Me.tutar4 / 100 * 70

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = Me.kdv_orani4.Column(1)

    Rs("Borc") = Me.tutar4 / 100 * 70 / 100 * Me.kdv_orani4.Column(2)

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = "Kanunen Kabul Edilmeyen Giderler"

    Rs("Borc") = (Me.tutar4 / 100 * Me.kdv_orani4.Column(2) + Me.tutar4) / 100 * 30

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = "Kanunen Kabul Edilmeyen Gider KDV si"

    Rs("Borc") = (Me.tutar4 / 100 * Me.kdv_orani4.Column(2) + Me.tutar3) / 100 * 30 / Me.kdv_orani4.Column(2)

    Rs.Update

Set Rs = Nothing



End If



' 5. satır '

If IsNull(Me.masraf_turu5) Or IsNull(Me.tutar5) Or IsNull(Me.kdv_orani5) Then



'MsgBox "beşinci satır boş"



Else



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = Me.masraf_turu5.Column(1)

    Rs("Borc") = Me.tutar4 / 100 * 70

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = Me.kdv_orani5.Column(1)

    Rs("Borc") = Me.tutar5 / 100 * 70 / 100 * Me.kdv_orani5.Column(2)

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = "Kanunen Kabul Edilmeyen Giderler"

    Rs("Borc") = (Me.tutar5 / 100 * Me.kdv_orani5.Column(2) + Me.tutar5) / 100 * 30

    Rs.Update

Set Rs = Nothing



Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = "Kanunen Kabul Edilmeyen Gider KDV si"

    Rs("Borc") = (Me.tutar5 / 100 * Me.kdv_orani5.Column(2) + Me.tutar5) / 100 * 30 / Me.kdv_orani5.Column(2)

    Rs.Update

Set Rs = Nothing



End If



' ALACAK SATIRI



If (Nz((Me.masraftutari / 100 * Me.kdv_orani.Column(2) + Me.masraftutari), 0) + Nz((Me.tutar2 / 100 * Me.kdv_orani2.Column(2) + Me.tutar2), 0) + Nz((Me.tutar3 / 100 * Me.kdv_orani3.Column(2) + Me.tutar3), 0) + Nz((Me.tutar4 / 100 * Me.kdv_orani4.Column(2) + Me.tutar4), 0) + Nz((Me.tutar5 / 100 * Me.kdv_orani5.Column(2) + Me.tutar5), 0)) > 0 Then





Rs.Open "Tablo4", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Rs.AddNew

    Rs("HesapID") = Me.odeme_sekli.Column(1)

    Rs("Alacak") = Nz((Me.masraftutari / 100 * Me.kdv_orani.Column(2) + Me.masraftutari), 0) + Nz((Me.tutar2 / 100 * Me.kdv_orani2.Column(2) + Me.tutar2), 0) + Nz((Me.tutar3 / 100 * Me.kdv_orani3.Column(2) + Me.tutar3), 0) + Nz((Me.tutar4 / 100 * Me.kdv_orani4.Column(2) + Me.tutar4), 0) + Nz((Me.tutar5 / 100 * Me.kdv_orani5.Column(2) + Me.tutar5), 0)

    

    Rs.Update

Set Rs = Nothing



End If





Me.Tablo4_alt_formu1.Requery



End Sub

Cvp: Araç Masraflarının Muhasebe Kaydını Yapmak - derzulya - 20/02/2020

Hmm. if isNull u bende denemiştim. Ancak alacak hesaplamasından önce toplu şekilde denemiştim o yüzden olmadı demekki. Teşekkür ederim zahmet verdim

Cvp: Araç Masraflarının Muhasebe Kaydını Yapmak - tekinuygun - 20/02/2020

(20/02/2020, 16:50)derzulya yazdı: Hmm. if isNull u bende denemiştim. Ancak alacak hesaplamasından önce toplu şekilde denemiştim o yüzden olmadı demekki. Teşekkür ederim zahmet verdim

Rica ederim, iyi çalışmalar.