Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
23/03/2010 17:22
Konu Sahibi
dayko
Yorumlar
2
Okunma
1778
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

dayko

Aktif Üye
Aktif Üye
ON.... KA....
 37
 62
 14
 31/01/2009
12
 Manisa
 Bilgisayar Mühendisi
 Ofis 2010 32 Bit
 20/09/2018,20:06
Çözüldü 
merhaba arkjadaşlar biliyorum aranızda yeniyim buradan bir şeyler öğrenmeye çalıştım kendimce bişeyler yaptım fakat otomatik taksitlendirme işlemini yapamadım örneği göndersem bir arkadaşdan yardımcı olmasını rica etsem çok şey istemiş olmam inşallah


Ek Dosyalar
.rar   Veritabanı1.rar(Dosya Boyutu: 140,65 KB / İndirme Sayısı: 146)
Ege Web Ajans
Bilgi Güçtür.....

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 Dün,08:38
Çözüldü 
Öncelikle kod sayfasında iken, Araçlar-Referanslar menüsünden,
"Microsoft Activex Data Object 2.? Library" referansını ekleyin.
(2.? olanlardan sizde görünen en büyüğünü işaretleyin)

Komut22 adlı butonun kodlarını aşağıdaki şekilde değiştirin.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Komut22_Click()
    tar1 = Başlangıç_Tarihi.Value
    par = Taksit_Miktarı.Value / Taksit_Sayısı.Value
    
    Dim Rs As New ADODB.Recordset
    
    Rs.Open "Taksit", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If Rs.EOF <> True Then
        Do
            If Rs("Adı") = Me.Adı.Value And Rs("Soyadı") = Me.Soyadı.Value Then
                Rs.Delete
            End If
            Rs.MoveNext
        Loop Until Rs.EOF
    End If
    
    asd = 0
    z = Taksit_Sayısı.Value
    For i = 1 To z Step 1
        asd = asd + Round(par, 0)
        tar = DateAdd("m", i, tar1)
        Rs.AddNew
            Rs("Adı") = Me.Adı.Value
            Rs("Soyadı") = Me.Soyadı.Value
            Rs("Miktarı") = Round(par, 0)
            Rs("Taksit Tarihi") = tar
        Rs.Update
    Next i
    Rs.MoveLast
    
    Rs("Miktarı") = Rs("Miktarı") + (Taksit_Miktarı.Value - asd)
    Rs.Update
    Set Rs = Nothing
    Set conn = Nothing
    
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Komut22_Click:
    Exit Sub

Err_Komut17_Click:
    MsgBox "taksit alanlarından biri boş bu alanları boş geçemezsinizi"
    Resume Exit_Komut22_Click
End Sub


Bütün bağlantıları Adı, Soyadı şeklinde yapmışsınız, bu doğru değil, Kimlik ile yapmalısınız.


Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

dayko

Aktif Üye
Aktif Üye
ON.... KA....
 37
 62
 14
 31/01/2009
12
 Manisa
 Bilgisayar Mühendisi
 Ofis 2010 32 Bit
 20/09/2018,20:06
Çözüldü 
üstadım çok saolasın 2 gündür kafayı yedirtmişti bu banaImg-grin allah razı olsun


Ege Web Ajans
Bilgi Güçtür.....


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Form Üzerinden Tablodaki Satış Koduna Ait Verileri İskonta Oranına Göre Güncelle husem 2 320 30/08/2017, 15:51
Son Yorum: husem
Çözüldü Çoklu Satış Hakkında cazcaz678 3 437 04/03/2017, 15:26
Son Yorum: cazcaz678
Çözüldü ortalama maliyet alış-satış maras321 4 646 26/11/2016, 12:13
Son Yorum: maras321
Çözüldü Ürün Satış Birimi ADET ise otomatik kaydedip bir sonraki Combobox'a geçmesini sağlama hasanak2 5 913 16/09/2016, 11:00
Son Yorum: atoz112
Çözüldü access kitap satış programı ilişkilendirme problemi kursatpaylan 1 665 28/04/2016, 21:22
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.