+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tamamlama Bilgisi (/konu-tamamlama-bilgisi.html)
Tamamlama Bilgisi - TUNCAY - 12/01/2011
Merhabalar ;
Ekli listedede belirtilen Dergi formunda Var & Yok Metin kutusunda otomatik tamamlama modülü uygulanmıştır.
Benim içinde çıkamadığım konu;
1 Otomatik tamamlama olayı bir önceki girilen metin ne ise onu aynen yazması benim istediğim metinin sabit değer VAR olması
2 metinin güncelleme sonrasına makro atadım ve makronun koşullu olması koşulunda girilen kaydın en sonuna gelindiğinde makronun çalışmaması.
Bilmem Anlatabildimmi?
Yardımcı olan Yada olmayan herkese Teşekkür Ederim...
Cvp: Tamamlama Bilgisi - C*e*l*o*y*c*e - 12/01/2011
ne yapmak istediginizi anlayamadım,biraz daha ayrıntılı açıklayı lütfen
Cvp: Tamamlama Bilgisi - TUNCAY - 12/01/2011
1 Otomatik tamamlama olayı bir önceki girilen metin ne ise onu aynen yazması benim istediğim metinin sabit değer VAR olması
modül
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
Bu modülde nerede değişiklik yapılırsa sadece sadce VAR yazılır
2 metinin güncelleme sonrasına makro atadım ve makronun koşullu olması koşulunda girilen kaydın en sonuna gelindiğinde makronun çalışmaması.
koşullu eylem makrosunda kadda git eylemi eğer kaydın ensonunda ise makronun çalışmaması olabilirmi?
Cvp: Tamamlama Bilgisi - TUNCAY - 19/01/2011
Konu ile ilgili bir bilgisi olan yokmudur acaba?
Cvp: Tamamlama Bilgisi - alpeki99 - 19/01/2011
Bence önce Hızlı Cevap Almanın Püf Noktaları konusunu okumalısınız.
Bilgileri teorik olarak değil pratik hayattan örneklendirerek anlatın. Sade, kısa, anlaşılabilir ve anlamlandırılabilir olması hızlı cevap almanızı sağlar.
Cvp: Tamamlama Bilgisi - TUNCAY - 19/01/2011
Sayın Alpeki99 Hocam
Hatırlatmanız için teşekkür ederm.