Arkadaşlar kolay gelsin.
Ben yine burada verilen bir kodla yaptımğım uygulamada, Access percerelerinin gizlenmesini sağladım, form üzerine Açılır kutunun değiştiğinde olayına Select Case ile sorguyu çağıracak kelimeler yazdım. (buraya takılmayın düğmede olabilir, sorun burası değil) olay kısmında kod yazılı olduğu halde, sorguyu çağırdığımda sorgu çalışıyor ancak çalışan sorguyu ben göremiyorum.
Bu sefer sorguyu formda açtım, formun açıldığında olayına "fSetAccessWindow (2)" yi yazdım, sorguyu çalıştırdığımda sorgu gözüktü, ancak veri sayfası görüntüsü şeklinde istediğim halde form görünümünde gözüktü.
Netice olarak sorunum: formada gerek kalmadan daha önce hazırladığım sorguyu Access pencerelerinin gizlenmesi için gerekli olan kodu yazdığımda, görme imkanım var mı?
Yada tamam sorguyu direkte istemiyorum, form olarak veri sayfası görünümünde nasıl belirtirim. (Tabi özelliklerden biçim menüsünden varsayılan görünümü değiştirdiğimi bilmenizi isterim)
Soruma ilgilenip cevap verecek arkadaşlara şimdiden teşekkürler..
Accees penceresinin gizlenmesi için gerekli kod;
Option Compare Database
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
kolay gelsin..
Ben yine burada verilen bir kodla yaptımğım uygulamada, Access percerelerinin gizlenmesini sağladım, form üzerine Açılır kutunun değiştiğinde olayına Select Case ile sorguyu çağıracak kelimeler yazdım. (buraya takılmayın düğmede olabilir, sorun burası değil) olay kısmında kod yazılı olduğu halde, sorguyu çağırdığımda sorgu çalışıyor ancak çalışan sorguyu ben göremiyorum.
Bu sefer sorguyu formda açtım, formun açıldığında olayına "fSetAccessWindow (2)" yi yazdım, sorguyu çalıştırdığımda sorgu gözüktü, ancak veri sayfası görüntüsü şeklinde istediğim halde form görünümünde gözüktü.
Netice olarak sorunum: formada gerek kalmadan daha önce hazırladığım sorguyu Access pencerelerinin gizlenmesi için gerekli olan kodu yazdığımda, görme imkanım var mı?
Yada tamam sorguyu direkte istemiyorum, form olarak veri sayfası görünümünde nasıl belirtirim. (Tabi özelliklerden biçim menüsünden varsayılan görünümü değiştirdiğimi bilmenizi isterim)
Soruma ilgilenip cevap verecek arkadaşlara şimdiden teşekkürler..
Accees penceresinin gizlenmesi için gerekli kod;
Option Compare Database
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
kolay gelsin..
