Skip to main content

AccessTr.neT


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

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

#7
(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
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Cevapla
#8
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.

.zip araç masrafları - Kopya.zip (Dosya Boyutu: 115,55 KB | İndirme Sayısı: 7)
derzulya, proud to be a member of AccessTr.neT since 09-03-2009.
Son Düzenleme: 20/02/2020, 16:07, Düzenleyen: derzulya.
Cevapla
#9
(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
Cevapla
#10
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
Cevapla
#11
(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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task