Merhabalar,
Aşağıdaki kodu Taruz Bey'in örnekleri arasında buldum.Kodu access dosyasından başka bir access dosyasındaki form ekranımı açtırmak için kullanıyorum.Kod çalışıyor diğer dosyamdaki ekrabilirseniz sevinirim.n açılıyor ama ekran yarım olarak geliyor ve üzerine çift tıklayınca tam ekran görünümünü alıyor bu problemi nasıl aşabilirim yardımcı olabilirseniz sevinirim.
Dim a As Access.Application
Private Sub ButonAdı_Click()
Set a = Nothing
Set a = New Access.Application
a.OpenCurrentDatabase "C:\Desktop\KONTROL.mdb"
a.DoCmd.OpenForm "Açılacak Veritanında İstediğiniz Formun adı"
a.DoCmd.Maximize
a.Visible = True
End Sub

Merhaba Sayın EYLÜL TATLI, açık olan veritanını kapatmadan aynı tür bir uygulama daha açılınca Windows ikinci açılan uygulamayı tam ekran yapmaz. Sorununuz bu ise işte çözümü: Açılacak veritabanında yeni bir modül açıp aşağıdaki kodu aynen kopyalayıp yapıştırınız.




Modülü kaydettikten sonra açılacak veritabanında hangi formu açtıracaksanız formu tasarım modunda açarak özelliklerden yüklendiğinde olayına




yazınız. Umarım demek istediğinizi doğru anlamışımdır. Kolay gelsin.

(08-07-2013, 00:48)hturkavci03 demiş ki: Merhaba Sayın EYLÜL TATLI, açık olan veritanını kapatmadan aynı tür bir uygulama daha açılınca Windows ikinci açılan uygulamayı tam ekran yapmaz. Sorununuz bu ise işte çözümü: Açılacak veritabanında yeni bir modül açıp aşağıdaki kodu aynen kopyalayıp yapıştırınız.

Visual Basic

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

Modülü kaydettikten sonra açılacak veritabanında hangi formu açtıracaksanız formu tasarım modunda açarak özelliklerden yüklendiğinde olayına

Visual Basic

fSetAccessWindow (SW_SHOWMAXIMIZED)

yazınız. Umarım demek istediğinizi doğru anlamışımdır. Kolay gelsin.

arkadaşlar tamam anladık kodlar yabancı bir projeden alındı. ama bari mesaj yazılarının türkçeye çevirin de öyle yayınlayın ya. vesselam

---

arkadaşlar tamam anladık kodlar yabancı bir projeden alındı. ama bari mesaj yazılarının türkçeye çevirin de öyle yayınlayın ya. vesselam

Sayin feruduntunc...
Kodları Turkçeye çevirmekten kastınız nedir ben tam olarak anlamadım. Visual Basic dili yapı olarak ingilizcedir zaten

sayın efeksk sayın feridun modüldeki msg box lara yazılan mesejları türkçe yazılması önerisinde bulunuyor.Anladığım kadarıyla sayın feridunun eleştri günü Sayın feridun tabiki eleştirmek eleştirilmek güzel şeyler en iyisine en doğrusuna götürür ama sayın htürkavcı bir çözüm bulmuş alıntıda olsa üstelik kendim yaptım gibide bir iddası da yok sağolsun sorunu da çözmüş önemli olanda bu.Yani illa eleştirmek içinde armudun sapı üzümün çöpü aranmamalı.Vessalam bakalım bu kelimenin bende ve efeksk da bıraktığı intiba sizde nasıl bir intiba bırakıyor

Arkadaşlar, destekleriniz için çok teşekkür ederim. Buradan aldığım ve kendi uygulamalarımda kullandığım örnekleri kimin hazırladığını not etmediğim için verdiğim örneğin kimden alıntı olduğunu bilmiyorum. Sadece soruna çözüm olması amacıyla paylaşmıştım. Bundan sonra alıntı yaparken daha dikkatli olurum.
Sayın feruduntunc kod yazmaya yeni başladım ve işin çok başındayım. Onun için de mesajınızda ne demek istediğinizi anlayamadım. Alıntı yaptığım kodlar üzerinde bir değişiklik yapmadım. Mesajımda kullandığım kelimelere baktım bir tuhaflık göremedim. Bir yanlışım olduysa da kusuruma bakmayın lütfen.