AccessTr.neT

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.

arkadaşlar konu ile ilgili yardımlarınızı bekliyorum. yardımcı olacak kimse yokmu

Ö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.

sn.seruz teşekkür ederim

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.

ö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