Skip to main content

AccessTr.neT


Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum

Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum

Çözüldü #1
merhaba arkadaşlar örnek ekliyorum bu sorunu nasıl atlatırım?sorunu resimle de anlatmaya çalıştım umarım anlaşılır,yalnız aktarma işi buton ile yapılması gerekiyor bu kısım önemli.
yardımınızı bekliyorum

[Resim: do.php?imgf=15124144699331.png]
.rar kitapçı.rar (Dosya Boyutu: 29,49 KB | İndirme Sayısı: 5)
Cevapla
#2
sorunu çözmede yardımcı olabilir misiniz?
Cevapla
#3
sanırım herkes benim gibi acemi mi?lütfen yardımcı olur musunuz?
Cevapla
#4
yardımıcı olmanız hususunda rica ediyorum arkadaşlar sorun devam ediyor
Cevapla
#5
(05/12/2017 15:53)akses7989 Adlı Kullanıcıdan Alıntı: sorunu çözmede yardımcı olabilir misiniz?

aktar butonunun olay yordamına yazılan kod 
Formunuzdaki aktar düğmesine bu prosedürü yazınız..
 VBA Kodu
Private Sub Komut86_Click() 'Butonun tıklandıgı olay yordamı

Dim rs As New ADODB.Recordset

rs.Open "tbl_begendirmeler ", CurrentProject.Connection, 1, 3

rs.AddNew

rs(1) = Me.id 'kaydedilecek alan adı sıra no su

rs(2) = Me.begenid

rs(3) = Me.baslikid

rs(4) = Me.alanlar

rs(5) = Me.personel

rs(6) = Me.ANACLAR

rs.Update

rs.Close

Set rs = Nothing
End Sub

Prosedürün çalışması için yine Vba editörü menüsüne bulunan Tools / References penceresinden Microsoft ActiveX Data Objects 6.0 Library onay kutusunu seçmeyi unutmayınız..
düzenlenmiş şekli ektedir
.rar kitapçı.rar (Dosya Boyutu: 34,57 KB | İndirme Sayısı: 7)
Son Düzenleme: 06/12/2017, 08:06, Düzenleyen: simendifer.
Cevapla
#6
merhaba simendifer kardeş verdiğiniz kodda eksik alanları ekledim ve çalıştırdım ancak hata veriyor,bir de siz deneyebilir misiniz?

Koddaki  rs(11)=Me.mat satırında tür uyumsuzluğu şeklinde hata verdi,tablolarda tür olarak her ikisi tabloda da METİN olarak ayarlı.

teşekkürler



Kod
Private Sub Komut86_Click() 'Butonun tıklandıgı olay yordamı
Dim rs As New ADODB.Recordset
rs.Open "tbl_begendirmeler ", CurrentProject.Connection, 1, 3
rs.AddNew
rs(1) = Me.id 'kaydedilecek alan adı sıra no su
rs(2) = Me.begenid
rs(3) = Me.baslikid
rs(4) = Me.alanlar
rs(5) = Me.personel
rs(6) = Me.ANACLAR
rs(7) = Me.personel2
rs(8) = Me.baslama
rs(9) = Me.basla
rs(10) = Me.yon
rs(11) = Me.mat
rs(12) = Me.ort
rs.Update
rs.Close
Set rs = Nothing
End Sub
Son Düzenleme: 06/12/2017, 09:10, Düzenleyen: akses7989.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task