Accessi gizleme modulü

[tuncerg]

Merhabalar,
Accessi gizleme modulünü kullanarak gizleme yapıldığında diğer formların açılmasında sorun olmuyor ancak rapor önizlemeleri yapılamıyor. Access örnekleri "Telefon Rehberi (Ver2.0)" konusunda sn. xorion rapor önizlemelerinde sorun olmadığını söylemiş ama ben ne yaptıysam raporları görüntüleyemedim. Soruyu buraya taşımayı düşündüm. Raporları önizleme yapabilmek için ne yapmak lazım?

 

[kemaluz]

sayın tuncerg bey raporların olaylardan sayfaya gelindiğinde (report page) kod satırına docmd.maximize yaz problem kalkacaktır.iyi çalışmalar.

 

[tuncerg]

sn kemaluz çok teşekkür ediyorum.

 

[yenginoglu]

arkadaşım access penceresini gizlediğinde butona bağlı diğer formları açtıramıyorum siz nasıl yaptınız acaba yardımcı olabilirmisiniz.

 

[turkerdundar]

ModÜlÜ Hepsİ İÇİn Ayni Uyarla Ayri Ayri

KardeŞİm Formla DİĞer AÇilacak Unsurlari Hep Ayni Formdakİ Ayalarla Ayni Yap Raporlar Dahİl Çatir Çatir AÇilir

Kolay Gelsİn

 

[kemaluz]

formlarda açılan ve kalıcı özelliklerine evet dersen problemin çözülür.iyi çalışamalar.

 

[perisanoglu]

arkadaşlar access gizleme modülünü yaptım..ama programı çalıştırdığımda acces yine görünüyor..biyerlerde hata yapıyorum sanırım..modüle nasıl bir ilişkilendirme yapmam lazım..

 

[gulsum1]

cevap

access de üç türlü gizleme vardır bir access görünür ama hiç bir menü görünmez yada sizin yaptığınız özel menüler görünür onun için araçlar başlangıç enalttaki access özel tuşları hariç diğerlerini kaldırın bu accessin menülerini kaldırır tasarım görünümüne geçmek için ise shift tuşu ile açmanız gerekir 2 . yolun ise 4 yolu var 1.makro ile taşı boyutlandır sağ aşağı şeklinde şeklinde ekrandaki yeri ölçüler ile ise acscess penceresinin boyutu belirlenir 2.kod ile DoCmd.MoveSize 5670, 0, 8505, 7938
3.kodile

modüle
Option Compare Database
Option Explicit



Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Const SW_RESTORE = 9
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Const SPI_GETWORKAREA = 48
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Sub MasaustuneYerlestir()
'Kodu şimdi çalıştırmak için buraya gelip F5 tuşuna basın.
Dim r As RECT
SystemParametersInfo SPI_GETWORKAREA, 0, r, 0
Call Yerlestir(r.Left, r.Top, r.Right - r.Left, r.Bottom - r.Top)
End Sub
Public Sub Yerlestir(Sol As Long, Ust As Long, Sag As Long, Alt As Long)
ShowWindow hWndAccessApp, SW_RESTORE
MoveWindow hWndAccessApp, Sol, Ust, Sag, Alt, 1
End Sub

forma

Call Yerlestir(400, 300, 10, 10)

bunlarda diğer kodun uzatılmış hali ölçü şekli aynı

4.ise tamamen accessi gizler bunda ise srunsuz çalışabilmek için form ve raporların üste açılır olması lazım raporlar eğer tam ekran yapılmazsa ekrana küçücük geliyor sonradan büyütmek gerekiyor gerçi onunda ölçüsünü kod ile verip ekrandaki ölçüsünü halledebiliyor birde bu vereceğim kodda tasarım görünümüne geçmeye izin verilmiyor onun için altf11 yapıp formun açılışına koyduğunuz kodu kesip sonra tekrar koymak için bir yere yapıştırıyorsunuz sonra tekrar kullanıyorsunuz diğer menü ayarları ise başlangıçta anlattığım gibi ha unutmadan form yada raparların hiçbiri kalıcı olmayacak problem çıkarır
modül kısmı


Option Compare Database
Option Explicit

' This module contains the API-Declarations and application-specific implementations for
' all functions related to windowstates and -positions and -properties

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_GETICON = &H7F
Public Const WM_SETICON = &H80

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI
x As Long
y As Long
End Type


Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Public Const GWL_STYLE = (-16)
Public Const WS_VISIBLE = &H10000000


Public Declare Function GetWindowPlacement Lib "user32" (ByVal hWnd As Long, lpwndpl As WINDOWPLACEMENT) As Long

Public Const SW_SHOW = 5
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1
Public Const SW_RESTORE = 9
Public Const SW_MINIMIZE = 6
Public Const SW_MAXIMIZE = 3
Public Const SW_HIDE = 0

Public Const SWP_SHOWWINDOW = &H40
Public Const HWND_TOPMOST = -1
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2

Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long


Public Type RECT
Left As Long
top As Long
Right As Long
Bottom As Long
End Type

Public Type WINDOWPLACEMENT
Length As Long
flags As Long
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type

Const ABS_AUTOHIDE = &H1
Const ABS_ONTOP = &H2
Const ABM_GETSTATE = &H4
Const ABM_GETTASKBARPOS = &H5

Private Type APPBARDATA
cbSize As Long
hWnd As Long
uCallbackMessage As Long
uEdge As Long
rc As RECT
lParam As Long ' message specific
End Type

Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long

Public Function CursorOnTaskbar() As Boolean

' This function checks, wether the mousepointer is actually above
' the Taskbar

Dim curPoint As POINTAPI
Dim lngRetCur As Long
Dim lngRetTbarPos As Long
Dim barData As APPBARDATA

' Get the actual Cursor-Position (stored in curPoint)
lngRetCur = GetCursorPos(curPoint)

' This function is retrieving the coordinates of the windows Taskbar,
' which are stored in the rc-member of the APPBARDATA-Struct.
lngRetTbarPos = SHAppBarMessage(ABM_GETTASKBARPOS, barData)

If (lngRetCur <> 0) And (lngRetTbarPos <> 0) Then
If (curPoint.x > barData.rc.Left) And _
(curPoint.x < barData.rc.Right) And _
(curPoint.y < barData.rc.Bottom) And _
(curPoint.y > barData.rc.top) _
Then
CursorOnTaskbar = True
End If
End If

End Function


Public Function IsMinimized(hWnd As Long) As Boolean

' This function checks wether a window is minimized or not

Dim wndPl As WINDOWPLACEMENT
Dim lngRetVal As Long

lngRetVal = GetWindowPlacement(hWnd, wndPl)

If (wndPl.showCmd = SW_SHOWMINIMIZED) Then
IsMinimized = True
End If

End Function

Public Function IsVisible(hWnd As Long) As Boolean

' This function checks wether a window is visible or not

Dim lngRetVal As Long

lngRetVal = GetWindowLong(hWnd, GWL_STYLE)

If ((lngRetVal And WS_VISIBLE) = WS_VISIBLE) Then
IsVisible = True
End If

End Function


Public Sub bringWindowToFront(hWnd As Long)

' This function not only makes the window, identified by hWnd, visble
' but also brings that window to front of the Screen.

Call SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)

End Sub

forma

Private Sub Form_Close()
Call ShowWindow(Application.hWndAccessApp, SW_SHOW)
Application.Quit
End Sub

Private Sub Form_Open(Cancel As Integer)
Call ShowWindow(Application.hWndAccessApp, SW_HIDE)
DoCmd.Restore
End Sub


m&#246;d&#252;le yazan yerleri mod&#252;ller b&#246;l&#252;m&#252;nden yeni mod&#252;l deyip a&#231;&#305;lan mod&#252;ldeki her&#351;eyi silip yap&#305;&#351;t&#305;r&#305;yorsunuz forma dene yeri form &#246;zelliklerinden olay a&#231;&#305;ld&#305;&#287;&#305;nda ki 3 noktal&#305; k&#305;sma t&#305;klay&#305;p kod diyorsunuz a&#231;&#305;lan

Private Sub Form_Open(Cancel As Integer)

End Sub

bunun ay&#305;n&#305;s&#305;d&#305;r

Private Sub Form_Open(Cancel As Integer)
Call ShowWindow(Application.hWndAccessApp, SW_HIDE)
DoCmd.Restore
End Sub


buna &#231;evireceksiniz kapan&#305;nca olay&#305;nada yine yukardaki kodu koyacaks&#305;n&#305;z

 

[perisanoglu]

yard&#305;mlar&#305;n&#305;z i&#231;in te&#351;ekk&#252;rler g&#252;ls&#252;m karde&#351;im...i&#351;lem tamam...t&#252;m formlar ve ve raporlar a&#231;&#305;l&#305;yor.bir sorunum kald&#305;..ilgili toblolar&#305; a&#231;t&#305;ram&#305;yoraum..

 

[huseyni]

bende raporları yazdırırken sorun yaşıyorum. Önce sadece paror yazdır butonu vardı sorun yoktu. raporu önizlemek için bir buton daha yaptım. Raporunda Sayfaya Geldiğinde olayına docmd.maximize ekledim.AMA şimdi paroru yazdırırken şu hata çıkıyorrr. Yardım edermisiniz.

 

[TURISSEMOS]

Gülsüm hanım verdiğiniz kodu uyguladım fakat tamamen görünmez oldu fakat çalııyor halde ne yapmalıyım.

 

[gulsum1]

cevap

1.soru sayfaya geldiğinde değil sayfa açıldığında maximize edecen

2.soru yukarda nasıl olacağını anlattım altf11 kısmını incele

 

[perisanoglu]

access gizlemede, raporlar&#305;n g&#246;r&#252;nt&#252;lenmesinde ve yazd&#305;rmada sorunum yok.yine kodla raporlar&#305; fullscreen a&#231;t&#305;r&#305;yorum.ama access gizli iken kay&#305;tlar&#305; g&#246;rebilmek i&#231;in tablo a&#231;t&#305;rmak istiyorum.accessi gizlemeden ana men&#252;de liste a&#231; diye bir buton yapm&#305;&#351;t&#305;m ve ilgili tabloya k&#246;pr&#252;leyince istedi&#287;im tabloyu g&#246;r&#252;nt&#252;l&#252;yordu..ama accesi gizleyince olmuyor.tablo &#246;zelliklerinde a&#231;&#305;lan ve kal&#305;c&#305; gibi se&#231;enekler yok.bunu kodla halledebilirmiyiz..

 

[gulsum1]

cevap

e be kardeşim accessi gizlersen tabloları nasıl görecen tablo şeklinde görmek istiyorsan veri sayfası şeklinde bir form yap

 

[perisanoglu]

e be kardeşim accessi gizlersen tabloları nasıl görecen tablo şeklinde görmek istiyorsan veri sayfası şeklinde bir form yap

yardımlaron için tekrar teşekkürler gülsüm kardeşim...ee zamanla öğreniyoruz..yine sizin ipucunuzla bu sorunumuda çözdüm

 

[ramko]

selamlar

oncelikle aranıza yeni katıldım ve yanlıs bisey sorarsam affola

ben ozellikle access gizleme konusunda 2-3 gundur arastırıyorum ve en teferruatlı anlatım sizde gulsum hanım emeginiz için cok saolun
sıkıntım aynen dediklerinizi yaptıgımı sandıgım halde komple gorunmez olması eger musaitseniz rica edecem nasıl duzeltebiliriz?? biraz daha acarmısınız???



şimdiden emegi gecen herkeze tessekkurler

 

[perisanoglu]

dostum projeni a&#231;t&#305;&#287;&#305;nda hi&#231;bir&#351;ey g&#246;r&#252;nm&#252;yorsa t&#252;m form ve raporlar&#305;n &#246;zelliklerinden a&#231;&#305;lan ve kal&#305;c&#305; se&#231;eneklerini evet olarak ayarla.

 

[ramko]

tessekkurler

dostum projeni açtığında hiçbirşey görünmüyorsa tüm form ve raporların özelliklerinden açılan ve kalıcı seçeneklerini evet olarak ayarla.

ewet kardes cozdum

artık beni kimse tutamaz

harika bi olay oldu benim için emegi gecen herkeze tessekkurler

:icelim:

 

[gulsum1]

cevap

formunu aç sonra altf11 ile koda gir ve
Private Sub Form_Close()
Call ShowWindow(Application.hWndAccessApp, SW_SHOW)
Application.Quit
End Sub

Private Sub Form_Open(Cancel As Integer)
Call ShowWindow(Application.hWndAccessApp, SW_HIDE)
DoCmd.Restore
End Sub
bu kısmı kes ve açtığın wordpad belgesine yapıştır çünkü sonra yine kullancan bu bölümü yaptıktan sonra kod kısmında iken kaydet butonuna tıkla ve programını kapat sonra sift ebasarak aç ve gerekli düzeltmeleri yaptıktan sonra o kesip aldığın kodu tekrar yerine yapıştır çünkü kestiğin bölüm tasarıma geçmeyi engeller

 

[aristoes]

access penecerisi gizleme

Gülsüm hanım öncelikle zaman ayırıp tüm arkadaşlara yardımcı olmanızdan dolayı teşekkür ediyorum benuzun zamandır uğraşa didine yaptığım programımın pencersini sizin anlatımınzla gizlemek istedim ama bir yerde hata yapıyorum heralde beceremedim. modülü oluşturuyorum fakat formda kod oluşturucusu açıldığında sizin yazdığınız kod yerine
Private Sub Form_Current()

End Sub
geliyor acaba ben yanlış yeremi gidiyorum yardımcı olursanız çok sevinirim
şimdiden teşekkürler