Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
20/03/2014 23:59
Konu Sahibi
jossihvi11
Yorumlar
2
Okunma
1047
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

jossihvi11

Aktif Üye
Kullanici Avatari
Aktif Üye
69
15/07/2010
0
Isparta
Ofis 2007
04/10/2017,09:04
Çözüldü 
Merhaba,

Ekteki dosyamda bulunan "siparislistesi" tablomda yer alan bilgileri ekle sorgusu ile çoğaltarak "kolilistesi" tabloma eklemek istiyorum. Çoğaltma sayısını "siparislistesi" tablosunda yer alan [siparis_adet] ve [koli_ici_adet] oranlayıp yukarı yuvarlayarak sorgu içerisinde belirledim. "kolilistesi" tablosunda yeralan [Kolideki_Adet] maksimum [Koli_İci] adeti kadar olmalı. Fakat kolilistesinde toplam [Kolideki_Adet] siparis adetinden daha fazla olmamalı. Düşündüğüm hali örnek tablo ekledim.
Yardımcılarınız için şimdiden teşekkürler


Ek Dosyalar
.rar   siparis_koli_listesi.rar (Dosya Boyutu: 19,47 KB / İndirme Sayısı: 8)
jossihvi11, 15-07-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.863
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,02:36
Çözüldü 
Form1'i aç, "liste aktar" butonunu tıkla.

Visual Basic Code
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
Private Sub Komut0_Click()

Dim KoliAdedi, Bolum, Kalan As Integer
DoCmd.GoToRecord , , acFirst
For x = 1 To DCount("siparis_no", "KoliEklemeSorgusu")
    Dim Rs As New ADODB.Recordset
    Rs.Open "Kolilistesi", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  
    KoliAdedi = 0
    Bolum = siparis_adeti \ Me.koli_ici_adet
    Kalan = Me.siparis_adeti - (Bolum * koli_ici_adet)
        If Kalan = "0" Then
            KoliAdedi = Bolum
        Else
            KoliAdedi = Bolum + 1
        End If
        For i = 1 To KoliAdedi Step 1
            Rs.AddNew
                  
            Rs("koli_sayısı") = 0 + i
            Rs("siparis_no") = Me.siparis_no
            Rs("Kolideki_Adet") = Me.koli_ici_adet
            Rs("koli_ici_adet") = Me.koli_ici_adet
            Rs("tarih") = Me.tarih
            Rs.Update
        Next i
    Rs.MoveLast
        If Kalan = 0 Then
            Rs("Kolideki_Adet") = koli_ici_adet
        Else
            Rs("Kolideki_Adet") = Kalan
        End If
    Rs.Update
    Set Rs = Nothing
    Set conn = Nothing
    DoCmd.GoToRecord , , acNext
Next x
DoCmd.Close
End Sub


Ek Dosyalar
.rar   siparis_koli_listesi_sld.rar (Dosya Boyutu: 25,21 KB / İndirme Sayısı: 21)
Cevapla

jossihvi11

Aktif Üye
Kullanici Avatari
Aktif Üye
69
15/07/2010
0
Isparta
Ofis 2007
04/10/2017,09:04
Çözüldü 
Hocam günaydın,

Çok teşekkürler elinize sağlık.


jossihvi11, 15-07-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 9 430 04/10/2017, 19:53 ozanakkaya
Çözüldü Sorgulama Sonrası Tabloya Mükerrer Kayıt U.ALTUN 2 116 30/09/2017, 11:27 U.ALTUN
Çözüldü Alt Tablodaki Veriyi Hesaba Ekleme (Toplama) aliyuzen 6 159 26/09/2017, 16:03 aliyuzen
Çözüldü İf İçinde İki Tarih Veya Saat Arası Sorgusu Kullanılabilirmi burhanb 4 166 25/09/2017, 08:23 burhanb
Çözüldü Kayıt Silme Hatası burhanb 6 231 08/09/2017, 14:01 burhanb

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.