Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim baglan As New Connection 'veri tabanına bağlanma Dim rs As New Recordset 'veri tabanına yeni kayıt 'baglan.Open "Provider=Microsoft.Ace.Oledb.12.0 veri tabanına bağlanma referans kod 'data source=C:\Users\SAVAS\Desktop\master.accdb;" işlenecek veri taban bağlantısı baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\SAVAS\Desktop\master.accdb;" 'rs.Open "select firmaadi from firmalar where firmaadi LIKE '" & ComboBox1.Text & "%'", veri tabanında yer alan kolon isimleri aynen alduğu gibi yazılmalı 'rs.Open "select firmaadi from firmalar where firmaadi LIKE '" & ComboBox1.Text & "%'", bu alanda combobox1 alanı içine veri tabanında yer alan metinleri yüzdelik % sayesinde metinleri girmeye başladığım anda ifadeleri içeren tüm kayıtları getirmeye başlar 'rs.Open "se...