DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Formlarımı açılır ve kalıcı yapmıştım şimdi aldığım formlar ekra arkasına gidiyor bu kodlar bunun içinmi? ayrıca her rapor için bu kodu nereye koymalıyım . kısaca bir örnek ile açıklarmısınız şimdidem teşekürler.bunu yapmak için önce formunu özelliklerden açılan ve kalıcı yapman gerkir.
sonra yeni bir modül yarat ve içine şu kodu yaz.
'
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)
'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 'no Activeform
If nCmdShow = SW_HIDE Then
MsgBox "Cannot hide Access unless " _
& "a form is on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
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
End If
fSetAccessWindow = (loX <> 0)
End Function
DAHA SONRA
Form open olayına
'
Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_SHOWMINIMIZED)
End Sub
'
BU KODU YAZ
FORM CLOSE FORMUNA
'
Private Sub Form_Close()
fSetAccessWindow (SW_SHOWMAXIMIZED)
End Sub
YAZARSAN KAPANDIĞINDA
MİDİ FORM GÖRÜNÜR HALE GELİR
HA UNUTMADAN
FORMU OTOMATİK AÇMANIN
EN KOLAY YOLU
"autoexec" ADINDA MAKRO YARATIP BURAYA
FORM AÇ "açılacak formun adı"
PROJENİ KAPATIP AÇTIĞINDA
FORMUN OTOMATİK OLARAK AÇILIR.
KOLAY GELSİN.
sayın Selçuk bey Ben Ekranlarda acsees penceresi görünmesin diye ekranlara açılan "evet" kalıcı "hayır " yapmıştım böyle olunca raporlar ekranların altında kalıyor bu konuda çözüm istiyorum ilgin için teşekürler sorunumu henüz çözemedimsayın rakipsiztayfun
http://www.excel.web.tr/f57/tarih-degerini-noktal-yazd-ram-yorum-t59240.html
buradaki örnek çalışmamı inceleyin eğer bu tarz bişeyse istediğiniz nasıl yapılacağı konusunda yardımcı olurum.
kolay gelsin
Sayın Selçuk Bey Yaptım Olmadı office 2000 de olmuyor Ancak Office 2003 mükemmel oluyor. sizin örneğinizide inceledim bende open report hatası veriyor ve acceess compile yapmıyor kodda kalıyor sizin örnek üzerindende çalışmıyor aynı hatayı veriyor.sayın karam
formlara açılan evet - kalıcı evet yapıp dener misiniz.
rapor ekranı yazdığınız şekilde kalabilir.
ayrıca 1 tane modül var ve macrolarıda kendinize kopyalayın. gerekli ayarları yaptıktan sonra (örneğimden bakabilirsiniz.) mutlaka istediğiniz gibi çalışması gerekir.
kolay gelsin.
