Veri Çoğaltma
Tarih
21/02/2012 10:44
Konu Sahibi
yasarweb
Yorumlar
1
Okunma
1278
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



yasarweb
Üye
Kullanici Avatari
Üye
14
5
19/02/2012
0
Ankara
Ofis 2010
10/03/2012,20:27
Çözüldü 
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?
Cevapla


yasarweb
Üye
Kullanici Avatari
Üye
14
5
19/02/2012
0
Ankara
Ofis 2010
10/03/2012,20:27
Çözüldü 
Halettim Arkadaşlar.


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
40
41
42
43
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

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Kod ile kayıt cogaltma nacar 2 785 18/02/2015, 13:53 nacar
  bir comboboxtan veri seçince diğer comboboxlara veri getirmek alican60 4 2.130 14/10/2014, 08:59 drummers
Çözüldü Ekleme sorgusu ile kayıt çoğaltma jossihvi11 2 825 21/03/2014, 09:52 jossihvi11
Çözüldü Excelden Tabloya veri almak, Tablodan excele veri göndermek. mesutyagmur 13 4.043 26/10/2013, 09:07 alpeki99
Çözüldü Alan sayısını çoğaltma veya çözümü ercanhalic 4 1.016 06/06/2013, 20:17 sonerdursun


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya