(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