Tablo Aktarımları Hk.
Tarih
05/07/2009 21:18
Konu Sahibi
SADIK54
Yorumlar
6
Okunma
1604
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



SADIK54
Aktif Üye
Kullanici Avatari
Aktif Üye
252
15/11/2008
0
Sakarya
Ofis 2003
09/10/2016,07:39
Çözüldü 
Sponsor Reklam
resim

Arkadaşlar Form sayfasında üst tarafdaki listekutusundan seçtiğim satırları aşağıdaki Liste kutusuna aktarmasını ayrıca aktardığımı tekrar geri almak istiyorum. bunun için ne yapabilirim yardımcı olurmusunuz.


Ek Dosyalar
.rar   vt1.rar (Dosya Boyutu: 19,39 KB / İndirme Sayısı: 11)
Cevapla

SADIK54
Aktif Üye
Kullanici Avatari
Aktif Üye
252
15/11/2008
0
Sakarya
Ofis 2003
09/10/2016,07:39
Çözüldü 
arkadaşlar konu ile ilgili yardımlarınızı bekliyorum. yardımcı olacak kimse yokmu
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.546
7
30/10/2008
804
Tekirdağ
Ofis XP
Dün,13:07
Çözüldü 
Sponsor Reklam
Örneğinizi inceleyemedim ancak foruma daha önce bu tür olaylar için göndermiş olduğum 2 örnek var. Onları gönderiyorum.

Aynı mantıkla yapabilirsiniz.


Ek Dosyalar
.rar   ListBox_TopluSecim_Seruz3.rar (Dosya Boyutu: 20,03 KB / İndirme Sayısı: 25)
.rar   Uygulama_CokluSecim.rar (Dosya Boyutu: 147,4 KB / İndirme Sayısı: 28)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

SADIK54
Aktif Üye
Kullanici Avatari
Aktif Üye
252
15/11/2008
0
Sakarya
Ofis 2003
09/10/2016,07:39
Çözüldü 
sn.seruz teşekkür ederim
Cevapla

SADIK54
Aktif Üye
Kullanici Avatari
Aktif Üye
252
15/11/2008
0
Sakarya
Ofis 2003
09/10/2016,07:39
Çözüldü 
Sponsor Reklam
sn. seruz sizin verdiğiniz örneğe göre baya bir uğraştım yapamadım yardımcı olabilirmisiniz. benim gönderdiğim örneğe uygulayabilirmisiniz.
Cevapla

esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
359
Konya
Ofis 2003
31/01/2017,13:59
Çözüldü 
örneğin ekte
yukle

arşivlerine ekleyecekler için kodlar

Option Compare Database
Public rstkayit As ADODB.Recordset
Dim strSQL As String

Private Sub btn_KALDIR_Click()
Call topluekle("Liste4", "ANATABLO")
Call toplusil("Liste4", "AKTARILAN")

End Sub

Private Sub btn_SEC_Click()
Call topluekle("Liste0", "AKTARILAN")
Call toplusil("Liste0", "ANATABLO")

End Sub
Function toplusil(liste As String, tablo As String)

Dim v As Variant

If Me(liste).ItemsSelected.Count = 0 Then
MsgBox "LÜTFEN LİSTEDEN SEÇİM YAPIN", vbExclamation, "DİKKAT"
Exit Function

Else
For Each v In Me(liste).ItemsSelected
strSQL = "SELECT * FROM " & tablo
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Not rstkayit.BOF And Not rstkayit.EOF Then
With rstkayit
'sileceğimiz kaydı bulup
.Find "[ADISOYADI]='" & Me(liste).Column(0, v) & "'"
'siliyoruz
.Delete
.Update
End With
rstkayit.Close
Else
Exit Function
End If
Next v

End If
Me.Liste0.Requery
Me.Liste4.Requery

End Function


Function topluekle(liste As String, tablo As String)

Dim v As Variant

If Me(liste).ItemsSelected.Count = 0 Then
MsgBox "LÜTFEN LİSTEDEN SEÇİM YAPIN", vbExclamation, "DİKKAT"
Exit Function

Else
For Each v In Me(liste).ItemsSelected
strSQL = "SELECT * FROM " & tablo
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit
.AddNew
.Fields("ADISOYADI") = Me(liste).Column(0, v)
.Fields("DOGUMTARIHI") = Me(liste).Column(1, v)
.Update
End With
Next v
End If
rstkayit.Close
Me.Liste0.Requery
Me.Liste4.Requery
End Function
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  ÜRETİM TAKİP PROGRAMI TABLO GİRİŞİ FAZLA YARDIM LÜTFEN cturkyilmaz 11 336 12/01/2017, 18:27 ozanakkaya
  Tablo kilitlenemedi uyarısı kemal.karadoğan 7 171 03/01/2017, 15:54 kemal.karadoğan
  iki tablo arasında girilen veriyi ikinci tabloda alan olarak oluşturma yardım bilservisci 8 288 15/12/2016, 11:49 atoz112
  Tablo kayıtlarının başka tablolardaki kayıt durumuna göre çaprazlanması uguruygar 4 242 11/12/2016, 21:03 uguruygar
  Tablo ilişkilendirme kontrolü hakkında nightashes 2 118 08/12/2016, 23:49 nightashes


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya