+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum (/konu-acilan-kutudan-coklu-secim-yapip-tablodan-tabloya-kayit-etmek-istiyorum.html)
Sayfalar:
1
2
Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum - akses7989 - 04/12/2017
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]](https://accesstr.net/resim/do.php?imgf=15124144699331.png)
Cvp: Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum - akses7989 - 05/12/2017
sorunu çözmede yardımcı olabilir misiniz?
Cvp: Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum - akses7989 - 06/12/2017
sanırım herkes benim gibi acemi mi?lütfen yardımcı olur musunuz?
Cvp: Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum - akses7989 - 06/12/2017
yardımıcı olmanız hususunda rica ediyorum arkadaşlar sorun devam ediyor
Cvp: Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum - simendifer - 06/12/2017
(05/12/2017, 15:53)akses7989 yazdı: 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
Cvp: Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum - akses7989 - 06/12/2017
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