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


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Çö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ü 
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
356
Konya
Ofis 2003
06/11/2015,13:38
Çö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
  Tablo kayıtlarının başka tablolardaki kayıt durumuna göre çaprazlanması uguruygar 3 125 Dün, 02:04 ozanakkaya
  Tablo ilişkilendirme kontrolü hakkında nightashes 2 56 08/12/2016, 23:49 nightashes
  Tablo dan Açılır Kutu ya alınan verilerek Sabit Ekleme yapma ask200075 7 275 21/11/2016, 18:49 ask200075
  Access Veritabanında Tablo Şifreleme ve Formdan Tabloya Bağlanma Nasıl Yapılır?? mehami 11 318 09/11/2016, 23:35 mehami
  Devir işlemi ve tablo güncelleme ates2014 2 133 01/09/2016, 15:40 ates2014


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