Biraz ilkel bir yol oldu ama işe yarıyor ya
)) Buyrun hatasız örneğiniz. Hem de otomatik tamamlama çalışıyor.
BU arada bir uyarı: Otomatik tamamlama modülündeki ilk satırdaki
Kod:
Function otomotiktamamla(kutuadi As String)
ifadesini lütfen değiştirmeyin. O zaman otomatik tamamlama olayı çalışmaz. Eğer 64bit kullanıyorsanız o zaman da en üstteki api satırını
Kod:
#if VBA7 then
Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#Else
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#end if
şeklinde düzeltin. Sanırım bir problem var ki sürekli o satırla oynuyorsunuz
)) Bunu yaparak hem 32 hem de 64 bitte çalışmasını sağlamış olursunuz.
438 nolu run time hatası.rar
(Dosya Boyutu: 1,04 MB | İndirme Sayısı: 13)
İnadına, ille de Accesstr.net...