+- 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
Cvp: Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum - akses7989 - 06/12/2017
Yardımcı olacak kimse yok mu??
Cvp: Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum - akses7989 - 07/12/2017
Umarım bir çözümü vardır.
Aklıma şöyle bir çözüm geldi ama yapamadım,siz yardımcı olursanız sevinirim.
Çoklu seçim yaptığımız açılır kutuda örnek Ankra-Bursa işaretledik diyelim,bunu başka metin kutusuna Ankara,Bursa şeklinde arada virgül olacak şekilde yazdırabilirsek,bu metin kutusundan diğer tabloya tekli veriymiş gibi giriş mümkün olabilir mi??
Yardım ederseniz sevinirim.
Cvp: Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum - ozanakkaya - 07/12/2017
İnceleyip olumlu/olumsuz bildirimde bulununuz.
Dim GSorgu, GSorgu2, GSorgu3 As String
Dim GVarMi, GSayi As Integer
Dim rs As DAO.Recordset, GSonSayi As Integer
GVarMi = Nz(DCount("[id]", "tbl_begendirmeler", "[id]=" & [id]), 0)
If GVarMi > 0 Then
MsgBox (Me.id & " numaralı veri daha önce aktarılmış")
Exit Sub
Else
GSorgu = "INSERT INTO tbl_begendirmeler ( id, begenid, baslikid, alanlar, personel, ANACLAR, personel2, baslama, basla, yon, olc, ort ) " & _
"VALUES ('" & Me.id & "','" & Me.begenid & "','" & Me.baslikid & "','" & Me.alanlar & "','" & Me.personel & "','" & Me.ANACLAR & "','" & Me.personel2 & "','" & Me.baslama & "','" & Me.basla & "','" & Me.yon & "','" & Me.olc & "', '" & Me.ort & "');"
CurrentDb.Execute (GSorgu)
If UBound(Me.mat.OldValue) > 0 Then
GSorgu2 = "SELECT MAX(degerlendirid) FROM tbl_begendirmeler"
Set rs = CurrentDb.OpenRecordset(GSorgu2)
GSonSayi = rs.Fields(0)
For GSayi = LBound(Me.mat.OldValue) To UBound(Me.mat.OldValue)
GSorgu3 = "INSERT INTO tbl_begendirmeler ([mat].[Value]) VALUES ('" & Me.mat.OldValue(GSayi) & "') WHERE degerlendirid=" & GSonSayi
CurrentDb.Execute (GSorgu3)
Next GSayi
End If
MsgBox (seciciid & " Seçici Id numaralı veri aktarıldı.")Cvp: Açılan Kutudan Çoklu Seçim Yapıp, Tablodan Tabloya Kayıt Etmek İstiyorum - akses7989 - 07/12/2017
Çok teşekkür ederim istediğim tam buydu sorun kalmadı.