erdem dag
Yeni Üye
- Katılım
- 23 Nis 2023
- Mesajlar
- 5
- En iyi yanıt
- 0
- Puanları
- 3
- Yaş
- 46
- Konum
- istanbul
- Ad Soyad
- erdem dag
- Office Vers.
- office 2007
Herkese merhaba 
Ecel Vba ile Accese kaydedilmiş tekrar eden; aynı ad, soyad, e posta ve tarih ile kaydedilmiş tablom var.
Sizden yardım rica ediyorum acemiyim, hevesliyim liste çekerken tekrar eden aynı kayıtlardan en sonuncusunu listelemek istiyorum*
*Acces veri tabanında Id birincil anahtar olarak atandı.
Acces veri tabanımdaki rehber adlı tablom
Yapmaya çalıştığım kodlardan:
Sub liste_cek()
Application.ScreenUpdating = False
On Error Resume Next
Sorgu = "SELECT DISTINCT ad FROM rehber;"
Call database_open
Set DataKayitlari = DataBaglan.OpenRecordset(Sorgu, dbOpenSnapshot)
Cells(6, "o").CopyFromRecordset DataKayitlari
Call database_close
Set DataKayitlari = Nothing
Set DataBaglan = Nothing
Application.ScreenUpdating = True
End Sub
Ecel Vba ile Accese kaydedilmiş tekrar eden; aynı ad, soyad, e posta ve tarih ile kaydedilmiş tablom var.
Sizden yardım rica ediyorum acemiyim, hevesliyim
liste çekerken tekrar eden aynı kayıtlardan en sonuncusunu listelemek istiyorum**Acces veri tabanında Id birincil anahtar olarak atandı.
Acces veri tabanımdaki rehber adlı tablom
| Id | Ad | Soyad | Telefon | E-posta | Kayıt tarihi |
| 1 | Erdem | DAĞ | 0536...... | erdem@erdem.com.tr | 18.05.2023 |
| 2 | Erdem | DAĞ | 0533...... | dag@dag.com.tr | 19.05.2023 |
| 3 | Erdem | DAĞ | 0532...... | dag@dag.com | 21.05.2023 |
| 4 | Ekrem | DAĞ | 0541...... | ekrem@ekrem.com | 18.05.2023 |
| 5 | Ekrem | DAĞ | 0542...... | ekrem@ekrem.com.tr | 19.05.2023 |
| 6 | Ekrem | DAĞ | 0543...... | dağ@ekrem.com | 21.05.2023 |
Yapmaya çalıştığım kodlardan:
Sub liste_cek()
Application.ScreenUpdating = False
On Error Resume Next
Sorgu = "SELECT DISTINCT ad FROM rehber;"
Call database_open
Set DataKayitlari = DataBaglan.OpenRecordset(Sorgu, dbOpenSnapshot)
Cells(6, "o").CopyFromRecordset DataKayitlari
Call database_close
Set DataKayitlari = Nothing
Set DataBaglan = Nothing
Application.ScreenUpdating = True
End Sub