projemi açtığımda access pencerelerinin görünmemesi için ne yapılmalı

[mehmetdemiral]

Açılan özelliği verilen formlarda sağ klik çalışmıyor sanırım.Bu da sanırım bu modülden kaynaklanıyor. Modül içerisinden sağ klik iptral edilmiş olabilir.

 

[icapcı]

Evet modülden kaynaklanıyor modülde bazı yerleri iptal edince geliyor fakat bu seferde menülar ortaya çıkıyor, yokmu bunun bi çaresi arkadaşlar....

 

[kaikai]

şu sağ klik olayını nasıl çözeceğiz.

 

[simendifer]

access penceresini saklamak

ben sorrunu makro oluşturarak çözdüm formun özlleikrende acıldıgında olay yordamına makro atadım makro eylemden kodçalıştırı seçip işlev adına fAccessWindow ("Hide", False, False) bu saatırı yazdım örnek olarak gönderdiğim programı inceleyiniz ayrıca form ve raporların özelliklerinde diğer bölümünde acılan ve kaalıcıyı evet olarak ayarladım örnek programı inceleyiniz
Notrogramı açarken shift tusuna devamlı basılı tutarak acın yoksa veri tabanına ulaşamazsınız

 

[kaikai]

Girdiğiniz deyim ms access de tarafında bulunamayan işlev var. diyor.

 

[kaikai]

sayın simendifer böyle bir hata veriyor. nasıl çözeceğiz.

 

[hozzeybek]

sayın kaikai
birde buna bak sanırım istediğin gibi

 

[kaikai]

şöyle birsorun yaşadım...

 

[hozzeybek]

Sayın Kaikai;
Dikkat ettiyseniz benim gönderdiğim modül eskisinden farklı
onun için örnekteki modülü projenize kopyalayıp
ilk açılan formun açıldığında olay kısmına
Call ShowWindow(Application.hWndAccessApp, SW_HIDE)
kodunu yapıştırın
o hata veren yeri silin çünkü o eski modülle ilgili
iyi çalışmalar.

 

[qitarist_cocuq]

hozzoybek yine not defined hatası verdi ...

 

[qitarist_cocuq]

3. YOL (Tavsiye Edilen)

Access Penceresini gizlemek için uygulamanızda yeni bir modül oluşturun ve içerisine aşağıdaki kodları yazın.

Option Compare Database
Option Explicit

Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, _
    ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, _
    ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, _
    ByVal Y3 As Long) As Long
Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, _
    ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, _
    ByVal nCombineMode As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, _
    ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Const RGN_AND = 1
Public Const RGN_COPY = 5
Public Const RGN_DIFF = 4
Public Const RGN_OR = 2
Public Const RGN_XOR = 3

Public Function degistir()
Dim rgn1 As Long, rgn2 As Long
  
   rgn1 = CreateRectRgn(0, 0, 1, 1)
   CombineRgn rgn1, rgn1, rgn2, RGN_OR
   SetWindowRgn Application.hWndAccessApp, rgn1, True
End Function
Public Function degistir2()
Dim rgn1 As Long, rgn2 As Long
  
   rgn1 = CreateRectRgn(0, 0, 1500, 1500)
   CombineRgn rgn1, rgn1, rgn2, RGN_OR
   SetWindowRgn Application.hWndAccessApp, rgn1, True
End Function

Başlangıçta ilk açılan formun "Yüklendiğinde" veya "açıldığında" olayına

Module1.degistir

yazın (Module1, modülün adı.)


Arkadaşlar bende bunu arıodm kesin işe yaradı ...