Astalavista58
Altın Üye
- Katılım
- 20 Ocak 2020
- Mesajlar
- 242
- Excel Vers. ve Dili
- Office 2016 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
Öncelikle herkese merhaba, hayırlı haftasonları dilerim.
Bu kod ile ListBox1'de bir değere çift tıkladığımda, "takiplidetay.Show" formunun açılarak, Accesteki "takiplipersonel" personel tablosundan verileri textboxıma getirmeye çalışıyorum.
Ancak bu satırda "Ölçüt ifadesinde veri uyuşmazlığı hatası alıyorum.
Tabloda aramış olduğum "SİCİL" ifadesi sayısal bir değer. ListBox'ta '" & ListBox1.ListIndex & "'" olarak indexsini alınca noktalamadan dolayı metinsel ifadeye dönüştüğünü düşünüyorum o yüzden hatayı verebilir diye tahmin ediyorum ama sorunu bir türlü aşamadım yardımcı olabilir misiin
Kod:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim baglan As New Connection
Dim rs As New Recordset
Dim dbPath As String
dbPath = ThisWorkbook.Path & "\DB.accdb"
baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath
rs.Open "SELECT * FROM takiplipersonel WHERE sicil ='" & ListBox1.ListIndex & "'", baglan, adOpenKeyset, adLockPessimistic
takiplidetay.TextBox1.Text = rs.Fields(3)
takiplidetay.Show
End Sub
Ancak bu satırda "Ölçüt ifadesinde veri uyuşmazlığı hatası alıyorum.
Kod:
rs.Open "SELECT * FROM takiplipersonel WHERE sicil ='" & ListBox1.ListIndex & "'", baglan, adOpenKeyset, adLockPessimistic