Metin Kutularında Otomatik Tamamlama
Tarih
18/11/2008 08:48
Konu Sahibi
esrefigit
Yorumlar
37
Okunma
15392
Konuyu Oyla:
  • Derecelendirme: 5/5 - 2 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 2 oy
esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
359
Konya
Ofis 2003
12/05/2017,17:08
herkes accessde Excel gibi bilgi daha önce girilmişse ben harf yazdıkça otomotik tamamlasın der
şimdi aranızdan bir kaç kişinin canım bunun nesi var diyenleri duyabiliyorum bir sorgu yaparım len ile mid vs vs ile harfleri aratır bulurum veya önce açılır kutu yapar sonra onu metin kutusuna dönüştürürüm gibi değişik önerileri olanlar olacaktır. peki bunun nesi var diyenlere bu kod yalnızca bir defa forma yazılıyor o içine girilen metin kutusunun denetim kaynağını araştırıyor ve ordaki bilgileri kontrol ediyor siz yazdıkça tamamlanıyor
bu kısım formunuza yalnız unutmadan tuş önizlemeyi açacaksınız

Visual Basic Code
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
 otomotiktamamla (Screen.ActiveForm.ActiveControl.ControlSource)
End Sub



buda modül

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Compare Database
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Function otomotiktamamla(kutuadi As String)
Dim ctl As Control
Dim LenOldText As Long
Static Once As Boolean
Dim rst As Object
If Once = False Then
If GetAsyncKeyState(vbKeyBack) = 0 _
And GetAsyncKeyState(vbKeyDelete) = 0 Then
Once = True
On Error Resume Next
Set ctl = Screen.ActiveForm.ActiveControl
Set rst = Screen.ActiveForm.RecordsetClone
If ctl.Text <> "" Then
rst.FindFirst kutuadi & " LIKE '" & ctl.Text & "*'"
If Not rst.NoMatch Then
LenOldText = Len(ctl.Text)
ctl.Text = rst(kutuadi)
ctl.SelStart = LenOldText
ctl.SelLength = Len(ctl.Text) - LenOldText
End If
End If
Set ctl = Nothing
Set rst = Nothing
On Error GoTo 0
Once = False
End If
End If
End Function


örnek ekte



Ek Dosyalar
.rar   otomotik tamamlama.rar (Dosya Boyutu: 18,35 KB / İndirme Sayısı: 872)
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

adnan
Aktif Üye
Kullanici Avatari
Aktif Üye
112
30/10/2008
0
Ankara
01/04/2011,21:55
Sponsor Reklam
Merhaba;

eşref hocam çok güzel örenek elinize sağlık. Teşekkürderim.

Selamlar.
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.556
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,19:15
eşref hocam anlatım ve örnek için teşekkürler
Cevapla

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.061
29/10/2008
Ordu
Ofis 2013 32 Bit
21/05/2017,22:21
Sponsor Reklam
Örnek çok güzel. Hep demişimdir Eşref Hoca istesin yeter Img-grin
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

syrup
Aktif Üye
Kullanici Avatari
Aktif Üye
196
1
30/10/2008
34
Çanakkale
Ofis 2003
08/10/2011,16:43
EŞREF SÜPER OLMUŞ.
resimresim
Cevapla

Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
24/12/2016,00:18
Sponsor Reklam
10806
Az
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Silinen Otomatik Sayının yerini doldurma mehmetdemiral 32 9.077 01/05/2017, 23:58 huzun_bulutu
  Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Örnek Uygulama mehami 1 515 14/04/2016, 23:44 ozanakkaya
  sorgu eksik metin aliyorga 2 1.180 30/08/2014, 13:29 atoz112
  otomatik sayıyı istediğiniz gibi ayarlayın accessman 5 2.646 27/12/2013, 13:55 ugurcb
  mail de metin alanının renkli olması svs007 1 1.282 10/01/2013, 20:27 Yandemir


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status