Metin Kutularında Otomatik Tamamlama - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html) +--- Konu Başlığı: Metin Kutularında Otomatik Tamamlama (/konu-metin-kutularinda-otomatik-tamamlama.html) |
Cvp: Metin Kutularında Otomatik Tamamlama - akem - 24/05/2009 Ö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.. Cvp: Metin Kutularında Otomatik Tamamlama - esrefigit - 25/05/2009 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 Cvp: Metin Kutularında Otomatik Tamamlama - benremix - 28/06/2009 Sn Esrefigit Hocam ellerine sağlık çok güzel olmuş. İşime çok yarayacak.Teşekkürler. Saygılar... Cvp: Metin Kutularında Otomatik Tamamlama - meraklısıyım - 04/11/2009 Eline sağlık hocam Cvp: Metin Kutularında Otomatik Tamamlama - metehan16 - 01/12/2012 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?? Cvp: Metin Kutularında Otomatik Tamamlama - ozanakkaya - 02/12/2012 ofis 2010'da hata vermeden çalıştı. İlişkilendirmeden neyi kasteddiğini anlamadım ama Modül olmadan formdaki kod çalışmaz. |