evet yapılır sadece yukardaki kodun gerekli yerlerini yani curretdata olan yerlerini dao yada ado ya çevirerek yapılabilir

---

Option Compare Database
Option Explicit
Dim Rs As Recordset, tamamla As Boolean

Private Sub KONU_Change()
On Error Resume Next
Dim txtSel As String, iSel As Integer
If tamamla = 0 Then
'bir şey
Else
tamamla = 0
iSel = Len(Me!KONU.Text)
Rs.FindFirst "KONU like '" & KONU.Text & "*'"
If Not Rs.NoMatch Then
txtSel = Mid(Rs!KONU, Len(KONU.Text) + 1)
Me!KONU.SelText = txtSel
Me!KONU.SelStart = iSel
Me!KONU.SelLength = Len(txtSel)
Else
Me!KONU.SelStart = iSel
End If
End If

End Sub

Private Sub KONU_Enter()
Set Rs = CurrentDb.OpenRecordset("Sorgu1", dbOpenDynaset)
End Sub

Private Sub KONU_Exit(Cancel As Integer)
On Error Resume Next
Set Rs = Nothing

End Sub

Private Sub KONU_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 8 Then
tamamla = 0
Else
tamamla = -1
End If

End Sub


bu tamamen hiç bir tabloya bağlı olmayan form ve ilişkisz metin kutuları için yapılmıştır