Access AÇiliŞ

[muratcolak55]

Arkadaşlar access uygulamasını tıkladığımda hemen ana formun gelmesini istiyorum yaptım ama arkada tblolar formlar seçenekleri görülüyo nasıl halledebilirim

 

[omerceri]

Araçlar/Başlangıç seçeneklerindeki Veritabanı penceresini Görüntüle seçeneğinin yanındaki onay kutusunu işarelenmemiş hale getir.

 

[modalı]

Sayın muratcolak55,

İki tane seçenek yolluyorum. meis1 uygulamasında oluşan bir problem var raporlar ön izlemeye arkada açılıyorlar ve görünmüyorlar. Eğer yazıcıdan çıktı almak size yetiyorsa kullanabilirsiniz. Her iki uygulamaya müdahale edebilmek için uygulamaları açarken shift tuşunu basılı tutun.

İyi çalışmalar

 

[muratcolak55]

sayın modalı meis1 uyguması güzel ama dediğiniz gibi rapor görünmüyo ne yapmalı acaba

 

[modalı]

Sayın muratcolak55,

Raporun görünümünde bir form hazırlayıp ön izlemeyi formdan yapabilir raporu çıktısını da rapordan alabiliriz.

İyi çalışmalar

 

[xorion]

Merhabalar;
Raporlarınız artık görünüyor ...

 

[modalı]

Sayın xorion,

Sanırım bir şeyi gözardı ettiniz. Meis ıygulamasında problem yok. Asıl problem meis1 uygulamasında.

Acelle ettim kusura bakmayın

 

[modalı]

Özürdilerim sayın xorion,

Olmuş. Bir de nasıl yaptığınızı anlatsanız.
Şimdiden teşekkürler.

İyi çalışmalar

 

[modalı]

Sayın xorion,

Bugün iki yeni makro öğrenmiş olduk sayenizde.

Teşekkür ederim:icelim:

 

[muratcolak55]

sayın modalı siz öğrendiniz galiba ama biz öğrenemedik sıkıntıyı nasıl aştığınızı
birde çalışmam nasıl olmuş benim seviymde biri için

 

[xorion]

Sayın Modalı;
Meis1 deki modül:
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)
'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
'
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

----------------------------------------------------------
meis x teki modül

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

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function

Görüğünüz gibi farklar var
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)

özellikle bu satırlarda ve bu satırlara makrodaki "show" ve "hide" komutlarına göre düzenliyorlar herşeyi zaten..

farketmişsinizdir restore makrosunu kullanmadım hiç ama sizler denemeler yapabilirsiniz mesela raporun açılışına hide ve kapanışına restore makrosunu...

İyi Çalışmalar...