Taksitli Satış
Tarih
23/03/2010 17:22
Konu Sahibi
dayko
Yorumlar
2
Okunma
1473
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



dayko
Aktif Üye
Kullanici Avatari
Aktif Üye
O.... K....
54
31/01/2009
6
Manisa
Ofis 2010 32 Bit
25/10/2016,16:40
Çö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ı: 141)
Ege Web Ajans 
Bilgi Güçtür.....
Cevapla


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Çö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
Cevapla


dayko
Aktif Üye
Kullanici Avatari
Aktif Üye
O.... K....
54
31/01/2009
6
Manisa
Ofis 2010 32 Bit
25/10/2016,16:40
Çö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.....
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  ortalama maliyet alış-satış maras321 4 122 26/11/2016, 12:13 maras321
  Ürün Satış Birimi ADET ise otomatik kaydedip bir sonraki Combobox'a geçmesini sağlama hasanak2 5 217 16/09/2016, 11:00 atoz112
Çözüldü access kitap satış programı ilişkilendirme problemi kursatpaylan 1 319 28/04/2016, 21:22 ozanakkaya
  Pastane satış ve stok veri tabanı çalışması isteği zynppln123 1 272 26/04/2016, 22:57 ozanakkaya
Çözüldü Satış ortalaması alarak bir sonraki satış miktarını belirleme fascioğlu 7 553 12/01/2016, 21:12 fascioğlu


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya