Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
18/11/2008 08:48
Konu Sahibi
esrefigit
Yorumlar
40
Okunma
20151
Konuyu Oyla:
  • Derecelendirme: 5/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
esrefigit

esrefigit

Aktif Üye
32
 Belirtilmemiş
 59
 599
 30/10/2008
359
 Konya
 
 Ofis 2003
 20/09/2018,16:01
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

Kod:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
 otomotiktamamla (Screen.ActiveForm.ActiveControl.ControlSource)
End Sub



buda modül

Kod:
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

64 bit için  buraya tıklayınız.



meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz

adnan

adnan

Aktif Üye
41
 56
 13
 119
 30/10/2008
0
 Ankara
 
 
 21/08/2019,23:33
Merhaba;

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

Selamlar.



...........
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.142
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,18:14
eşref hocam anlatım ve örnek için teşekkürler


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

alpeki99

alpeki99

Uzman
6
Ol....
 39
 162
 6.134
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 24/08/2019,19:08
Ö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.

...........
syrup

syrup

Kıdemli Üye
19
 1
 196
 30/10/2008
34
 Çanakkale
 
 Ofis 2003
 08/10/2011,16:43
EŞREF SÜPER OLMUŞ.


[Resim: image.php?s=df028e861d094075be82dfc55ca1...1225646923][Resim: mousey.gif]

Puletin

Puletin

Onursal Üye
100
 Belirtilmemiş
 40
 1.717
 01/11/2008
416
 -
 
 Ofis 2003
 24/12/2016,00:18
10806
Az


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Access makro uyarısını otomatik kapatan uygulama (Access ile) mehmetdemiral 30 16.825 09/01/2019, 10:09
Son Yorum: cozum
  form üzerindeki metin kutusunun boyutunu otomatik ayarlama mehmetdemiral 7 5.402 08/04/2018, 20:58
Son Yorum: Mali06
  Form Üzerindeki Buton İle Otomatik Mail Gönderme fguveli 1 963 15/07/2017, 19:32
Son Yorum: fguveli
  Silinen Otomatik Sayının yerini doldurma mehmetdemiral 34 11.798 08/06/2017, 17:50
Son Yorum: access acemisi
  Accesste Resimlerin Otomatik Geçişi (Slayt Şeklinde) Örnek Uygulama mehami 1 1.115 14/04/2016, 23:44
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.