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

#7
Yardımcı olacak kimse yok mu??
Cevapla
#8
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.
Cevapla
#9
İ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ı.")
.rar kitapçı_sld.rar (Dosya Boyutu: 33,41 KB | İndirme Sayısı: 18)
Cevapla
#10
Çok teşekkür ederim istediğim tam buydu sorun  kalmadı.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task