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