19/02/2020, 15:05
(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
Sayfalar: 1 2
19/02/2020, 15:05
20/02/2020, 16:01
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.
[attachment=31537]
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.
[attachment=31537]
20/02/2020, 16:45
(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 Sub20/02/2020, 16:50
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
20/02/2020, 16:55
(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.
Sayfalar: 1 2