Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
21/02/2012 10:44
Konu Sahibi
yasarweb
Yorumlar
1
Okunma
1780
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

yasarweb

Üye
 36
 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?



Kullanici Avatari

yasarweb

Üye
 36
 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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Bir Veri Kutusunun Değerini, Başka Bir Veri Kutusuna Bağımlı Yapabilir Miyim ? A_day 10 196 18/11/2018, 22:24
Son Yorum: A_day
Çözüldü Veri Tabanındaki Kayıtlı Bilgiyi 2. Veri Tabanında Bulunan Aynı Değişkenlere Kayıt cevahir1 10 539 24/04/2018, 12:03
Son Yorum: cevahir1
Çözüldü Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma 53rize 4 501 25/10/2017, 09:31
Son Yorum: 53rize
Çözüldü Sql Serverdan Sorgu İle Yerel Veri Tabanına Veri Yazdırma ertans 1 422 24/08/2017, 11:22
Son Yorum: burhanb
Çözüldü Access Formda Veri Çoğaltma cagatay1234 6 833 27/05/2017, 15:36
Son Yorum: cagatay1234

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.