AccessTr.neT

Sn Horozufuk,

Gönderdiğiniz örnek işe yarıyor ama ben başka Formlarda deniyorum olmuyor
(Örn:Alış Faturası, Hemen hemen satış faturasının aynısı)
Gönderdiğiniz modülü yükledim (busmauseHook). Alışfatura Formunun Özellikller bölümünden OLAY kısmındaki "Açıldığında" [Olay Yordamı] gönderdiğiniz vb.kodunu giriyorum. Denediğimde olmuyor. Gönderdiğiniz örneğin her yerini inceledim ama farkı bir türlü bulamadım. Başka ne işlem yapmam gerektiğini lütfen gösterirmisiniz...

6. mesajı okudunuz mu?

Sn Slegeap,

Söylediğiniz kodu Modül kısmına mı ekleyeceğim. yoksa Form dan [OLAY YORDAMI]
kısmınamı

Private Sub Form_Open(Cancel As Integer)
'maus tekerleğini iptal etmek için gerekli olan kod
Set MouseHook = NewMouseHook(Me)

' form yüklendiği zaman pasifte olduğunu belirtir.
MouseHook.Scroll = False
End Sub
Horozufuk'un gönderdiği [OLAY YORDAMI] yukardaki gibi
(NOT: Çalışan Formdaki )
söylediğiniz kodu nereye yazacağımı tam anlamadım...

Ama kodlardan yanlış olcağını sanmıyorum. Çünkü Çalışan örnekten kodları birebir KES-YAPIŞTIR yöntemiyle kopyalayıp gerekli yerlere yapıştırdım. Modülü de ; Nesne AL yontemiyle Örnek veri tabanından direk aldım. normalde çalışması lazım. ama birtirlü olmadı.

çalışmayan örneği ekleyebilir misin?

---

vb penceresini açıp


kodunun hemen altına


kodunu ekleyeceksin.

(23/07/2010, 20:14)sledgeab yazdı: [ -> ]çalışmayan örneği ekleyebilir misin?

---

vb penceresini açıp

Kod:

Option Explicit

kodunun hemen altına

Kod:

Private MouseHook As Object

kodunu ekleyeceksin.

Çalışmayan formu ekliyorum inceleyip cevap yazrsanız sevinirim...

İncelediğim örnekte
Option Explicit kullanıldığı için yanlış anlattım.

vb sayfasını açıp
Option Compare Database

kodunun hemen altına

Private Mousehook as Object

yazın.



kodu ekleyemezseniz düzenlediğim örneği göndereyim. Onu inceleyin.