Şimdiden yardımlarınız için teşekkür edrim.
Şöyle birtablom var.
Adı Soyadı PosaMiktarı sütunları var
ismail Uysal 50
Ahmet Demir 55

Ben istiyorumki posamiktarını 15 li şekilde parçalamak

İsmail Uysal 15
İsmail Uysal 15
İsmail Uysal 15
İsmail Uysal 5
Ahmet Demir 15
Ahmet Demir 15
Ahmet Demir 15
Ahmet Demir 10

Bu şekilde Başka bir tablo veya sorgu yapmak istiyorum ama yapamadım.

kayıt değerinin mod 15 ini alın ve bölüneni bulun bölüm sonucunca döngü oluşturun
döngüsayısı+1 kadar ablonuza kayıt ekleyin kolay gelsin

ben komut düğmesine kodu yazdım istediğiniz yere taşıyabilirsiniz tablo1 ve tablo2 tablo adlarımız. iki tabloda aynı özelliklerde komut düğmesi tablo1 ile ilişkili form üzerinde bulumakta


kolay gelsin

(09-11-2014, 22:42)adnanyurdakul demiş ki: ben komut düğmesine kodu yazdım istediğiniz yere taşıyabilirsiniz tablo1 ve tablo2 tablo adlarımız. iki tabloda aynı özelliklerde komut düğmesi tablo1 ile ilişkili form üzerinde bulumakta

Visual Basic

Private Sub Komut11_Click()
Dim rs As Recordset
Dim db As Database
 
Set db = CurrentDb
Set rs = db.OpenRecordset("tablo2", dbOpenDynaset)
bölümsonucu = Fix(posamiktari / 15)
kalan = posamiktari Mod 15
 
For i = 1 To bölümsonucu
rs.AddNew
rs!adsoyad = Me.adsoyad
rs!posamiktari = 15
rs.Update
 
rs.MoveNext
 
Next
If kalan <> 0 Then
rs.AddNew
rs!adsoyad = Me.adsoyad
rs!posamiktari = kalan
rs.Update
End If
rs.Close
db.Close
 
End Sub

kolay gelsin

Dosyayı ekledim bir incelerseniz sevinirim.

Dosyayı daha önce ekleseydiniz daha kısa zamanda sonuç alırdık.Dosyanız ekte kolay gelsin

örneğiniz ekte