Olay özellik deyimi ayarı hatası

20/08/2011, 15:22

captainhook

Arkadaşlar Accsess'de yazdığım programı server üzerinde bir kaç kullanıcıya açtım.Kendim Windows 7 kullanıyorum.Program benim bilgisayarımda açılmamaya başladı.Daha ilk kullanıcı giriş ekranında aşağıdaki hatayı veriyor.Diğer bilgisayarlarda sorun yok .Bende uzun bir süre sorunsuz kullandım.ALT+Shift ile programı açabiliyorum ancak form'larda aynı hatayı veriyor

"*Olay özellik deyimi ayarı olarak girdiğiniz Açıldığında deyimi hataya neden oldu:object or class does not support the set of events.
Deyim ,bir makro adı,kullanıcı tanımlı işlev adı veya Olay yordamı ile sonuçlanmıyor.
*Bir işlevi,olayı veya makroyu değerlendirme hatası olmuş olabilir."


"Visual Basic for Applications (VBA), bir özellik veya yöntem erişimi sırasında bir hatayla karşılaştı. Sorun aşağıdakilerden biri olabilir:
Başvuru yok.
Eksik başvuruları geri yüklemeyle ilgili yardım için, Microsoft Knowledge Base'deki 283806 no'lu makaleyi okuyun.
İfade hatalı yazılmış.
Olay özelliklerinde kullanılan tüm ifadelerin yazımını denetleyin.
Kullanıcı tanımlı bir işlev, modülde bir alt veya özel işlev olarak tanıtıldı.
İşlev, ancak aşağıdakilerden biri olarak tanıtılırsa, ifadeler kullanıcı tanımlı bir işlevi çözümleyebilir:
Bir modülde genel işlev
Geçerli form veya raporun kod modülünde genel veya özel bir işlev
Access'deki güvenlik Orta veya Yüksek olarak ayarlandığından, Microsoft Jet 4.0 SP8 güncelleştirmesi yüklenmedi.
Güvenlik Orta veya Yüksek olarak ayarlandığında, Access'in düzgün çalışması için Jet 4.0'ın daha yeni bir sürümü yüklenmelidir. Microsoft Jet'in en yeni sürümünü edinmek için Windows Update sitesine gidin".

Kullanıcı girişi için aşağıdaki programı adapte etmiştim.
Bu konuda yardımcı olabilecek bir arkadaş varmıdır?

Private Sub Form_Open(Cancel As Integer)
Dim KulSay As String
KulSay = DCount("*", "Tbl_Kullanici")

If KulSay = 0 Then
DoCmd.Close
DoCmd.OpenForm "Frm_SfrShrbaz"
End If
End Sub
Private Sub Form_Close()
Call Cikis(Form)
End Sub
Private Sub Komut10_Click()
On Error GoTo hata
Dim str As String


str = oturum.Value
On Error GoTo hatas
If Me.dogrusifre = Me.Sifre Then
YetkiNe = Me.dogruyetki
KullaniciKim = Me.Kullanici
AktifKullaniciYetkisi
AktifKullanici

DoCmd.SetWarnings False
CurrentDb.Execute "INSERT INTO tbl_Kullanici_Kayit ( [user] ) SELECT aktifkullanici()"
DoCmd.SetWarnings True
hatas:

DoCmd.Close
DoCmd.OpenForm "Frm_Ana", , , , , , "Value=" + str

Else
YanlisSifre = YanlisSifre + 1
MsgBox YanlisSifre & ". Denemenizde şifrenizi yanlış girdiniz. Lütfen tekrar deneyiniz.. " & Chr(13) & "4. Hatanızda Program Kapanacaktır.", vbOKOnly + vbCritical, "Hatalı Şifre "
If YanlisSifre = 4 Then DoCmd.Quit (acQuitSaveNone)
End If
Exit Sub
hata:

End Sub

Private Sub Kullanici_AfterUpdate()
Me.Sifre.SetFocus
End Sub
Private Sub Komut14_Click()
On Error GoTo Err_Komut14_Click


DoCmd.Quit

Exit_Komut14_Click:
Exit Sub

Err_Komut14_Click:
MsgBox Err.Description
Resume Exit_Komut14_Click

End Sub


20/08/2011, 15:26

alpeki99

Diğer bilgisayarlarda giriş problemi yok sizde varsa Office programını kaldırıp tekrar kurmayı deneyin.
Konu çöp kutusuna açılmış bu arada.
20/08/2011, 15:47

Yandemir

çalışan bir makinadan programı geri çekmenizi öneririm Win7 arada sırada programı bozuyor. özellikle 64 bit ise.
20/08/2011, 17:58

sonerdursun

Olay özellik hatası benimde canımı sıkmıştı xp de düzgün çalışan program win 7 kurunca
hata başlamıştı Windows 7 ve Access arasında tarihle ilgili bir sorun vardı tarihler düzelince hatadan kurtulmuştum.
20/08/2011, 18:17

Yandemir

evet bölge ve dil ayarlarını kontrol ediniz. tarih saat formatı ters olabilir. birde dediğim gibi bir kere hata verdiğinde programınızı hatalı diye çalıştırmıyor win7