Örnek Çok güzel ve oldukça kullanışlı.. Bununla ilgili bir soru sormak istiyorum. Bu uygulamayı hiçbir denetime bağlı olmayan yani ilişiksiz bir metin kutusunda istediğimiz denetimden yada tablodan veya sorgudan seçtirerek yapabilirmiyiz..

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

Sn Esrefigit Hocam ellerine sağlık çok güzel olmuş. İşime çok yarayacak.Teşekkürler. Saygılar...

Eline sağlık hocam

merhaba arkadaşlar konu açılalı bayaa olmuş ama Access 2010 ve 2007 de hata veriyo bu kod otomotiktamamla (Screen.ActiveForm.ActiveControl.ControlSource)
ve
bu modülü formla ilişkilendirmemiz gerekiyor mu??

ofis 2010'da hata vermeden çalıştı. İlişkilendirmeden neyi kasteddiğini anlamadım ama
Modül olmadan formdaki kod çalışmaz.