Skip to main content

AccessTr.neT M.



Form Access Ten Ayrı Açılsın Problem !

Form Access Ten Ayrı Açılsın Problem !

Çözüldü #1
Dosya / Seçenekler / Geçerli Veritabanı / Form Görüntüle
Sonra tüm formlarımı tek tek tasarım görünümünde açıp Özellikler / Diğer Sekmesinde bulunan Açılan ve Kalıcı kısımlarını Evet yaptım.
yeni bir  modül oluşturup  içerisine  alttaki kodları yazdım.

************************************

Visual Basic Code
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
        If nCmdShow = SW_HIDE Then
            loX = apiShowWindow(hWndAccessApp, nCmdShow)
            Err.Clear
        End If
    Else
 
            loX = apiShowWindow(hWndAccessApp, nCmdShow)
 
    End If
    fSetAccessWindow = (loX <> 0)
End Function


***************************************
Açılmasını istediğim formda


 Özellikler / Olay / Açıldığında  kısmına
*****************************

Visual Basic Code
 Call fSetAccessWindow(0)


*****************************

 kodunu yazdım.
 
 Access i kapatıp açtığımda tam da istediğim gibi sadece form gözüküyor Access penceresi görünmüyordu.
 Fakat form üzerine sağ tıklayıp tasarım veya düzen menüsünü aç dediğimde form kapanıyor ve tablolarım dahil hiç bir şeye erişemiyorum.
 Access i yeniden başlatmam içinde windows görev yöneticisine girip accessi sonlandırmam gerekiyor.
 
 Bu yaptıklarımı nasıl geri alabilirim ve / veya tablolarıma nasıl geri alabilirim.

Cevapla
#2
 açarken shift+enter  tuşlarına basın ve uygulamanız açılana kadar basılı tutun. 

Cevapla
...........
#3
(25/04/2019 15:25)haliliyas Adlı Kullanıcıdan Alıntı:  açarken shift+enter  tuşlarına basın ve uygulamanız açılana kadar basılı tutun. 
@"haliliyas"  tekrar tşkler.
Sayenizde Access i yavaş yavaş da olsa öğreneceğim galiba.

Cevapla
#4
teşekkürler 
kolay gelsin

Cevapla
...........

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task