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