Konu Araçları | Seçenekler: | Gösterim Stili

Taksitli Satış

Tarih
23/03/2010 17:22
Konu Sahibi
dayko
Yorumlar
2
Okunma
1564
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....
62
31/01/2009
6
Manisa
Bilgisayar Mühendisi
Ofis 2010 32 Bit
24/06/2017,10:56
Çö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ı: 144)
Ege Web Ajans
Bilgi Güçtür.....
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
05/06/2017,19:40
Çözüldü 
Sponsor Reklam
Ö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....
62
31/01/2009
6
Manisa
Bilgisayar Mühendisi
Ofis 2010 32 Bit
24/06/2017,10:56
Çö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
Çözüldü Çoklu Satış Hakkında cazcaz678 3 164 04/03/2017, 15:26 cazcaz678
Çözüldü ortalama maliyet alış-satış maras321 4 312 26/11/2016, 12:13 maras321
Çözüldü Ürün Satış Birimi ADET ise otomatik kaydedip bir sonraki Combobox'a geçmesini sağlama hasanak2 5 421 16/09/2016, 11:00 atoz112
Çözüldü access kitap satış programı ilişkilendirme problemi kursatpaylan 1 440 28/04/2016, 21:22 ozanakkaya
Çözüldü Pastane satış ve stok veri tabanı çalışması isteği zynppln123 1 451 26/04/2016, 22:57 ozanakkaya

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