AccessTr.neT

Bul · 18/03/2015, 06:26

Ben örneğinizi incelediğimde, kurban tablosu isimli tabloda 105'e ait 4 hisse varsa, siz adet metin kutusuna 2 yazıp butonu tıkladığınızda 105'e ait hissenin 6 olmasını istediğinizi anlıyorum.

Bunun için ekleme sorgusu yerine güncelleştirme sorgusunu kullanmalısınız, tablo yapısı gereği 105 yazılı satır var iken tekrar tabloya 105 yazdıramazsınız.

butonun tıklandığında olayına aşağıdaki kodu ekleyip deneyiniz

Dim EskiHisse As Integer

EskiHisse = Dlookup ("Hisse_adet", "kurban tablosu", "[krbn_küpe_no]=" & Me.Açılan_Kutu53)
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [kurban tablosu] SET [kurban tablosu].Hisse_adet  = " & Me.adet + EskiHisse & " WHERE ((([kurban tablosu].krbn_küpe_no)=[Formlar]![Form1]![Açılan_Kutu53]))"
DoCmd.SetWarnings true

Hisse Çoğalt butonundaki

Dim i, e As Integer

i = Me.adet
For e = 0 To i - 2
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
   DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
   DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70
Next e

ayrıca, üstteki kodunun amacını anlayamadım.

Bul · 18/03/2015, 10:48

sayın ozanakkaya, İlginizden dolayı çok teşekkür ederim.Bu sorun da çözülmüş bulunuyor. tekrar ilginize çok teşekkür ederim. saygılarımla.

AccessTr.neT

Formda Açılan Kutudan iki Tabloya Veri Girişi

Formda Açılan Kutudan iki Tabloya Veri Girişi

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri