Tablo Aktarımları Hk.
Tarih
05/07/2009 21:18
Konu Sahibi
SADIK54
Yorumlar
6
Okunma
1632
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ü 
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ü 
Sponsor Reklam
arkadaşlar konu ile ilgili yardımlarınızı bekliyorum. yardımcı olacak kimse yokmu
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
11/05/2017,16:26
Çözüldü 
Ö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ü 
Sponsor Reklam
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ü 
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
12/05/2017,17:08
Çözüldü 
Sponsor Reklam
ö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
  Access Tablo - Sorgu Bağlanması hasan şahin 5 157 13/05/2017, 12:04 atoz112
  Tablo Birleştirme Hk. serkan1985 4 100 12/05/2017, 17:01 serkan1985
  Otomatik Tablo Bağlama Ve Güncelleme husem 7 247 02/04/2017, 14:20 atoz112
  ÜRETİM TAKİP PROGRAMI TABLO GİRİŞİ FAZLA YARDIM LÜTFEN cturkyilmaz 11 452 12/01/2017, 18:27 ozanakkaya
  Tablo kilitlenemedi uyarısı kemal.karadoğan 7 265 03/01/2017, 15:54 kemal.karadoğan


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