AccessTr.neT
İstediğim Bir Alanı Otomatik Tamamla Dışında Tutmak - Baskı Önizleme

+- 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ığı: İstediğim Bir Alanı Otomatik Tamamla Dışında Tutmak (/konu-istedigim-bir-alani-otomatik-tamamla-disinda-tutmak.html)



İstediğim Bir Alanı Otomatik Tamamla Dışında Tutmak - F.Ç - 02/01/2014

Merhaba,

Formumda otomatik tamamla özelliği mevcut. Benzer isimle çok kayıt yapıyorum çok işime yarıyor.

Bu özellik tüm alanlarda çalışıyor güzel de istemediğim şey şu formumda yazdırma alanı da mevcut. Ben bir kayda yazdırma sayısı girdiğimde otomatik olarak ilk girilen, çıktı sayısını otomatik yazıyor dolayısıyla başka sayılarda yazdırma yapamıyorum.

Yardımcı olacak arkadaşlara şimdiden teşekkürler.


Cvp: İstediğim Bir Alanı Otomatik Tamamla Dışında Tutmak - BigBossTurk - 02/01/2014

Değerli arkadaşım F.Ç
Konuyu yanlış bir bölümde açmış olabilirsin ?
Access Soruları ve Cevapları başlığı altında göndersen daha çabuk yardımcı olunabilir sanırım.


Cvp: İstediğim Bir Alanı Otomatik Tamamla Dışında Tutmak - ozanakkaya - 03/01/2014

Otomatik tamamlama yapılmasını istediğin metin kutularının im özelliğine 1 yaz

[Resim: do.php?img=4095]

Module1'in kodlarını aşağıdaki ile değiştir.

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.Tag = "1" Then
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
End If
Set ctl = Nothing
Set rst = Nothing
On Error GoTo 0
Once = False
End If
End If
End Function



Cvp: İstediğim Bir Alanı Otomatik Tamamla Dışında Tutmak - F.Ç - 05/01/2014

Merhaba,

Kodu kopyaladım, istediğim alanlara da im ekledim ama resimdeki [Resim: do.php?img=4099] hatayı veriyor.


Cvp: İstediğim Bir Alanı Otomatik Tamamla Dışında Tutmak - mehmetdemiral - 05/01/2014

Sanırım bir yanlışlık yaptınız. Ozan'ın söylediği biçimde hazırlanmış örneği aşağıya ekledim. Bir de onda deneyin.


Cvp: İstediğim Bir Alanı Otomatik Tamamla Dışında Tutmak - F.Ç - 06/01/2014

Merhaba Mehmet Abi,

Nasılsınız? İyinsiniz dir inşallah. Yeni yılınızı en içten dileklerimle kutlar sağlık, mutluluk, huzur ve bol kazanç dilerim. Modüle kısmına dikkat etmemişim vb kısmına yapıştırmışım kodu. şimdi düzellttim kodu modüle 1 ekledim. Sorunum çözülmüştür.

Ozan Hocama da Size de çoook teşekkür ederim Sağolun varolun saygılarımla...

İnadına Accesstr.net