AccessTr.neT

Bu çalışma www.accesstr.net üyeleri için Mehmet Demiral Tarafından çevrilmiş ve uyarlanmıştır.
Bu çalışmada farklı bir yöntemle Access dosyasının tıpkı bir exe gibi çalışması ve Access penceredsinin gizlenmesi sağlanmaktadır.
Bende bu güzel paylaşımı pekiştirmek için kullanım açısından bazı görsel programlardaki Pencereler(Windows) eklentisi gibi kullanılabilir bi uygulamada yapılabilirmi düşüncesiyle bir fikir vermek için bu şekilde bir düzenleme yaptım.
Bazı sıkıntılar var mesela pencereler açıkken çıkışa bastığımızda Access hata raporu gönderiyor ? bununla ilgili bir çözüm illaki vardır diye düşünüyorum.

Teşekkürler sn. sendegizli,

Örnek nedir
nasıl çalışır anlamadım @sendegizli
içinde label ve kodlar olan bir form var

Kod:
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Const GW_CHILD = 5

Private Const GW_HWNDNEXT = 2

Private Sub Form_Load()

Dim hWnd As Long

    SetWindowRgn hWndAccessApp, CreateRectRgn(0, 0, 0, 0), True

    CommandBars("pencereler").Enabled = True

    CommandBars("pencereler").Visible = True

    CommandBars("pencereler").RowIndex = 0

    hWnd = GetWindow(hWndAccessApp, GW_CHILD)

    PrzeniesMenuNaFormularz hWnd

End Sub

Private Sub PrzeniesMenuNaFormularz(hWnd As Long)

Dim TitleString As String * 256

    Do While hWnd <> 0

        GetWindowText hWnd, TitleString, 256

        If TitleString Like "pencereler*" Then

            SetParent hWnd, Me.hWnd

            Exit Do

        End If

        PrzeniesMenuNaFormularz GetWindow(hWnd, GW_CHILD)

        hWnd = GetWindow(hWnd, GW_HWNDNEXT)

    Loop

End Sub

Private Sub Form_Unload(Cancel As Integer)

    CommandBars("pencereler").Enabled = False

    SetWindowRgn hWndAccessApp, 0, True

End Sub

merhaba,

forma kodu kopyaladım fakat aşağıdaki kod sarı olarak işaretlendi neden olabilir.
CommandBars("pencereler").Enabled = False

teşekürler.

Valla bende anlamadım ana form açılıyor başkada bir şey olmuyor, menü yok Access gizlenmiyor???

sendegizli

ozanakkaya

accessman

Sinant59

ates2014