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
Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum
sorunu çözmede yardımcı olabilir misiniz?
sanırım herkes benim gibi acemi mi?lütfen yardımcı olur musunuz?
yardımıcı olmanız hususunda rica ediyorum arkadaşlar sorun devam ediyor
(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
Son Düzenleme: 06/12/2017, 08:06, Düzenleyen: simendifer.
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
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.
Konuyu Okuyanlar: 1 Ziyaretçi