Skip to main content

AccessTr.neT


Etiketler
Yazar: ercansahin - Cevaplar: 1 - İzleme: 2944
Tıkladığında hata (cannot define a public user-defined type within an object module)
Sayın üstadlarım.. Access dosyamda birden bire tıkladığında olaylarının hepsi sıkıntı çıkarmaya başladı.
verdiği mesaj ise ;
Olay özellik deyimi olarak girdiğiniz Tıkladığında deyimi hataya neden oldu;cannot define a public user-defined type within an object module

eğer bu sorunu aşamazsam, tüm çalışmam boşa gidecek. Dosyayı ekleyemiyorum. İçerisindeki bilgilerden dolayı.. Sıkıştır ve Onar'ı denedim.. Maalesef düzelmedi. Lütfen yardım..
Yazar: mahircinar01 - Cevaplar: 4 - İzleme: 5348
name conflicts with existing module project or object library hatası
name conflicts with existing module project or object library hatası neden olur
Yazar: mehami - Cevaplar: 5 - İzleme: 7351
Compile error in hidden module hatası çözümü nedir?
Office 2013 yüklü pc.de uygulama açılışında şu hata ile karşılaşıyorum..Sebebi ve çözümü konusunda yardım ve önerilerinizi bekliyor saygılar sunuyorum..

[Resim: https://accesstr.net/resim/do.php?img=5109]

Gizmele modülündeki kod aşağıdaki gibidir..

Option Compare Database

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Pri
Yazar: Akifff - Cevaplar: 2 - İzleme: 2479
Has Module Hatası
Arkadaşlar bu raporda resimdeki hatayı veriyor. HasModule hayır yapınca bu sefer içerindeki kodları siliyor. Rapor Access gizli çerçevede görülmesi için aşağıdaki kodları eklemek istiyorum. Nasıl yaparım bir türlü çözemedim  Fur

Kod:
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
MenuGoster
End Sub




Private Sub Report_Close()
MenuGizle
End Sub

[Resim: https://accesstr.net/resim/do.php?img=5173]
Yazar: truhi - Cevaplar: 7 - İzleme: 384
Access' Te Class Module Oluşturma
Merhaba,

Formda 20 tane metin kutusu mevcut, bu metin kutusununa tıkladığımız zaman aşağıdaki kodun çalışması için;
her bir metin kutusuna kod yazmadan Excel' de olduğu gibi class oluşturarak çözebilir miyiz?


Kod:
Private Sub m1_1_Enter()

If m1_1.BackColor = -2147483643 Then
    m1_1.BackColor = 0
ElseIf m1_1.BackColor = 0 Then
    m1_1.BackColor = -2147483643
End If

End Sub

teşekkürler,
iyi Çalışmalar.
Task