a Veritabanına ait verilerin girileceği formda kayıtlı bir veriyi forma eklediğim Access in standart butonlarından "kaydı çoğalt" butonuyla çoğaltıyorum.

Ancak Bu işlemi bir açılır kutudan seçtiğim sayı değeri kadar adette nasıl çoğaltabilirim?

Halettim Arkadaşlar.

Private Sub Cogalt_Click()

On Error GoTo Err_Cogalt_Click



Dim MSG As String

Dim Y As Integer

Dim Miktarx As Integer



If Me.MiktarDeger = 0 Then

MiktarDegerMsg = MsgBox("Çoğaltılacak Miktarı Giriniz!", vbOKOnly, "Kayıt Çoğaltma Hatası")



Else



If Me.MiktarDeger = 1 Then

MiktarDegerMsg = MsgBox("Mevcut Kaydınız Zaten 1 Adet; Çoğaltılacak Miktar 1'den Büyük Olmalı!", vbOKOnly, "Kayıt Çoğaltma Hatası")

Me.MiktarDeger = 0

Form.Refresh



Else

Miktarx = Me.MiktarDeger

MSG = "Mevcut Kayıt Çoğaltılacak / Mevcut Kayıt + " & Miktarx - 1 & " Adet Kayıt Oluşturulacak Onaylıyormusunuz?"

CogaltOnay = MsgBox(MSG, vbYesNo, " Kayıt Çoğaltma Onayı")

If CogaltOnay = vbYes Then

For Y = 2 To Me.MiktarDeger

Me.toplamfiyat = Me.miktar * Me.birimfiyat

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

Next

Me.toplamfiyat = Me.miktar * Me.birimfiyat

Me.MiktarDeger = 0

Form.Refresh

End If

End If

End If



Exit_Cogalt_Click:

 Exit Sub



Err_Cogalt_Click:

 MsgBox Err.Description

 Resume Exit_Cogalt_Click

 

End Sub