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.

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.

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



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

Merhaba,

Kodu kopyaladım, istediğim alanlara da im ekledim ama resimdeki hatayı veriyor.

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.

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