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

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.

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.