Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
05/07/2009 21:18
Konu Sahibi
SADIK54
Yorumlar
6
Okunma
1981
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.550
7
30/10/2008
814
Tekirdağ
Ofis XP
13/09/2017,17:08
Çö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

Aktif Üye
Kullanici Avatari
Aktif Üye
598
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
Çö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
Çözüldü Tablo İlişkilendirme tolgooo17 3 177 07/09/2017, 00:05 ozanakkaya
Çözüldü Pivot Tablo Hk. serkan1985 5 348 07/08/2017, 22:35 serkan1985
Çözüldü Farklı Tablo Verilerini Tek Bir Formda Gösterme damacanasu 2 193 23/07/2017, 21:31 damacanasu
Çözüldü Access Word Bağlantısında 2 Tablo İle İlişkilendirme tiryaki_44 3 227 06/06/2017, 03:36 ozanakkaya
Çözüldü Tablo Değerini Belirli Sayılar Arasına Almak lanetdas 2 232 28/05/2017, 17:18 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.