Access'i minimize etmek

[rcekinir]

Merhabalar
Arkadaşlar Çeşitli kodlarla Exceli minimize edip sadece form un görünmesini sağlayabiliyoruz.
Acaba aynı işlemi access için nasıl yapabiliyoruz.
Araçlar/Başlangıç/Form görüntüle bölümünde seçtiğim form ekranda kalsın
ve access minimize olsun sorunum bu.
Tabiki accessle çalıştığım sürecede minimize olarak kalmaya devam etsin.
Yardımlarınıza şimdiden teşekürler.

 

[living]

bu örnegi incele çözüm içinde

örnek bu arada ahmet beye saygılar o göndermişti bana

 

[rcekinir]

Sayın Living
eklediğiniz program tam aradığım programdı.
Size ve Ahmet beye de teşekkürler.

 

[abazya]

Sn rcekinir
İncelemek için indirdim ama masa üstünden silemiyorum ne yapmam gerekir

 

[rcekinir]

sn Abazya Merhaba
ya bilgisayarı reset edceksiniz,
yada ctrl+alt+delete yaparak uygulamalar sekmesinde görünüyorsa seçip kaldırın.
Uygulamalar sekmesinde görünmüyorsa işlemler sekmesinden MSACCESS.EXE yi seçip işlemi sonlandırı tıklayın gelen uyarı mesajına evet deyin.Artık Masaüsütünden silebilirsiniz.
Kolay gelsin

 

[abazya]

Sn:rcekinir merhaba

Bilgisayar reset ve bilgisayar kendini toplamadan sildiniz sildiniz silemediniz sildirmiyor. İşlemi iki kerede silebildim. Teşekkürler

 

[living]

arkadaşlar ctrl+alt+del / işlemler msaccess / görevi sonlandırın sorun kalmaz açarken formun kapanış olayında çıkış ayarlayın sorun kalmaz

 

[rcekinir]

Sayın Living
Accessi minimize etmekle ilgili gönderdiğiniz kodlar çok güzel çalışıyordu.
Fakat sonradan bir sorunla karşılaştım.Bu kodlar bir kere çalıştıktan sonra Kayıt silerken
kayıt silme uyarısının gelmesine engel oluyor.Yani uyarmadan siliyor.
Ben bunu başka bir başlık altında "kayıt sil uyarısı kayboldu" buradan kaynaklandığını
farketmeden sormuştum.Ve oradada sorunu çözememiştik.Eğer siz ya da bu kodları size
verdiğini bahsettiğiniz Ahmet bey kayıt sil uyarısının yok olmamasını sağlayarak düzeltebilirlerse sevinirim.
Ya da başka bir yöndemle access minimize edilebilir mi bilen varsa yardımcı olabilir.

Kodlar

Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
   Dim loX As Long
   Dim loForm As Form
   On Error Resume Next
   Set loForm = Screen.ActiveForm
   If Err <> 0 Then
   loX = apiShowWindow(hWndAccessApp, nCmdShow)
   Err.Clear
   End If
   If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
   MsgBox "Cannot minimize Access with " _
   & (loForm.Caption + " ") _
   & "form on screen"
   ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
   MsgBox "Cannot hide Access with " _
   & (loForm.Caption + " ") _
   & "form on screen"
   Else
   loX = apiShowWindow(hWndAccessApp, nCmdShow)
   End If
   fSetAccessWindow = (loX <> 0)
End Function

Þimdiden teşekkürler

 

[jale]

Günaydın :hey:

Aslında accessi minimize etmekten kastınız gerçekten minimize mi etmek yoksa hide(gizlemek) mı etmek çok anlayamadım ama, yinede hepsini içeren bir örnek yaptım.

Ekli dosya:hidej.zip

Ayrıca Dosya PC nizde sorun yaratmaz güvenle kullanabilirsiniz.

 

[KoTiK]

merhaba jale hanım,

bu aralar bir proje geliştirmeye çalışıyordum (biliyorum, bir süre sonra sıkılıp yarım bırakacağım ), göndermiş olduğunuz örnek enteresan bir fikir verdi bana.

teşekkürler... k::

 

[rcekinir]

Sayın Jale
Sizin hazırladığınız örnekte kullandığınız kodlar aynen yukarda verdiğim kodlar.
Zaten sorun burada.Bu fonksiyonu açılmasını istediğimiz formun load yordamına
yazdığımızda access gizleniyor ve sadece istediğimiz form açılıyor.İşte sorun burada başlıyor.
Bu yöntemle accessi gizlediğimizde herhangi bir tablo yada formda silme işlemi yapmak istediğinizde
normalde gelmesi gereken uyarı gelmiyor ve doğrudan siliyor.Benim sorunum buydu
ve sizin hazırladığınız dosyada da durum böyle.
Minimize etmeye gelince docmd.minimize formu minimize ediyor.
Benim istediğim accesin minimize olması tablomuzun görünmesi.Yani diğer açıdan accesi gizlemek gibi bir şey.
Saygılar

 

[esrefigit1]

ACCESS PENCERESÝNÝ BOYUTLANDIRMAK ÝÇÝN GEREKLÝ MODULE

aceessi küçültüp formun arkasında kalma kodu
Ã?zenle hazırladığımız form ve raporları tam ekran yapar, kullanıcının önüne koyarız. Fakat programın kullanıldığı bilgisayarda Access penceresi tam ekran ya da bizim istediğimiz boyutta açılmıyor her zaman. Lakin bunun da çözümü yok değil. Access penceresinde modül sayfasına gelip yeni bir modül oluşturun ve içinin tam olarak aşağıdaki gibi olmasını sağlayın. Sonra bu modülü "ModulYerlestir" adıyla kaydedin.
Artık programınızın herhangi bir yerinde
Call MasaustuneYerlestir
ya da
Call Yerlestir(100, 100, 200, 200) burdaki sayılar acces penceresi boyutu ve ekrandaki yeri dğiştirirseniz küçülür ve sağa sola kayar
gibi komutları kolaylıkla kullanabileceksiniz.
ACCESS PENCERESİNİ BOYUTLANDIRMAK İÇİN GEREKLİ MODULE AİT KOD
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



buda gizleme kodu bütün formları üste açılır yapar ve kalıcı yaparsanız silme falan filan gibi uyduruk bahaneleriniz kalmaz

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

ve diğeri

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

 

[rcekinir]

Sayın esrefigit1
Ã?ncelikle ilginize teşekkür ederim .
Yazdığınız kodları denediğimde sizin tabirinizle

buda gizleme kodu bütün formları üste açılır yapar ve kalıcı yaparsanız silme falan filan gibi uyduruk bahaneleriniz kalmaz

uyduruk bahanelerim devam ediyor ve silme işleminde uyarı mesajı kayboluyor.
Yinede ilginize teşekkür ederim.Küçük bir deneme ile sizde bunu görebilirsiniz..
Eğer sizin dosyanızda Bu özellik kaybolmuyorsa dosyayı eklerseniz sevinirim.
Saygılar

 

[euskent]

Sayın esrefigit1,

Çok güzel açıklamışsınız. Teşekkür ederiz. Yalnız bir problemle karşılaşıyorum. Access penceresini gizlemek için Açılan=Evet, Kalıcı=Evet, ve Yalnızca Tasarım Görünümü yapıyorum. Yaptığım zaman formlar diğerinin üstüne açılmıyor. Yani diğeride görünüyor.
Açılan=Hayır, Kalıcı=Evet yaptığım zaman ise hiç göremiyorum formu. Benim biraz kafam karıştı.
Access penceresini gizlemek ve formlarının diğerinin üstüne açılması olayını aynı anda kullanamıyorum bir türlü. Nerde hata yapmış olabilirim acaba?

İyi çalışmalar...

 

[euskent]

Ana denetim panosunu açtığımda access penceresi gizleniyor. Daha sonra Ana denetim panosundan bir formu açtığım zaman access penceresi yine gelmiyor ama formu Ana denetim panosunun üstüne açtıramıyorum.
Forma yazdığım kodlar aşağıda. Modüller yollamış olduğunuz gibi. Zaten modüllerde sorun yok. Ayrıca formda Açılan=Evet, Kalıcı=Evet, ve Yalnızca Tasarım Görünümü işaretli.

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

Private Sub Form_Close()
Call ShowWindow(Application.hWndAccessApp, SW_HİDE)
DoCmd.OpenForm "Switchboard"
End Sub

Ana denetim panosunda ise kodlar aşağıdaki gibi.

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


Benim anladığım burdaki sorun Açılan=Evet, Kalıcı=Evet olması. Ama onlar hayır olduğunda da formlar gizleniyor

Yanlışmıyım??

 

[euskent]

Ana denetim masas&#305;ndan herhangibir formu a&#231;t&#305;&#287;&#305;m&#305;zda, ana denetim masas&#305;n&#305;n a&#231;&#305;l&#305;r ya da kal&#305;c&#305; &#246;zelliklerini kapatmak m&#252;mk&#252;nm&#252; acaba. Belki ozaman istedi&#287;im olur.

 

[aycnc]

Acces Minimize

Arkada&#351;lar accesi bi t&#252;rl&#252; minimize edemedim. Dosyan&#305;n b&#252;y&#252;k olmas&#305;ndan dolay&#305; da size g&#246;nderemiyorum. Biraz daha a&#231;&#305;k bilmiyen birine g&#246;re anlatacak bi arkada&#351; var m&#305; aran&#305;zda. &#214;zelden mesaj atan olursa msn'de de &#231;&#246;zebiliriz i&#351;i.