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