Merhaba
Veritabanimi actigimda ana menu aciliyor ve uzerinde diger formları ve sorgulari acmak icin butonlar var. Fakat bu butonlara tıkladıgımda ilgili form ya da sorgu sayfası acılırken ana menu formu da acık kalıyor.
Ben bir baska formu actıgımda ana menunun kapanmasını ve ilgili formda işim bittiginde kapat butonuna bastıgımda tekrar ana menuye donmek istiyorum.
Kısacası ekranda birden fazla sayfa acık olmasın istiyorum.
Makrolar olusturup makronun aynı anda bir formu acıp digerini kapatması yoluyla bu konuyu cozebiliyorum fakat makrolara gerek kalmadan daha saglıklı bie sekilde bunu yapabilme imkanım var mı diye merak ediyorum.
Saygılar

Sayın Scarface

Açılacak form için oluşturduğun butonun tıklandığında kısmına aşağıdaki kodu yazarsan
sorun kalmayacaktır.

On Error GoTo hata 'komut hata verdiğinde
DoCmd.Close acForm, "Form1" 'kapatılacak form ismini yaz
DoCmd.OpenForm "Form2" 'açılacak form ismini yaz
hata: Exit Sub 'hata durumunda komuttan çıkış yap

İkinci olarak form2'nin kapıtlmasını ve tekrar form1'in açılmasını istemişsiniz onun içinde Ekteki örneğin form2'nin kapandığında bölümünü inceleyiniz.

Bu arada size bir önerim olacak. Eğer ana menünün açık olmasını istemiyorsanız kapatmak yerine zeminde kalmasını veya simge durumuna dönmesini de tercih edebilirsiniz. Bunun için sayın Mestafa Bey'in önerdiği kapatma kodu yerine

docmd.minimize

biçimini kullanabilirsiniz. Tekrar etkin yapmak için de

docmd.maximize

komutunu kullanın. Bunu şundan yazıyorum, ama menü üzerindeki bazı değerler genelde program içinde kullanmak üzere gizli olarak bekletilir. İlerde hep açık kalan bir form çok lazım olabilir size..

Bu arada unutmadan bir not: Makroları kullanmak istemezseniz, onları oluşturup kaydederken farklı kaydet deyip modül olarak kaydedin. İçinde bütün vba kodlarının yazıldığını göreceksiniz. Alın onları modülden, kullanın. Yani makroların işini kodlara yaptırın. (Bu bilgi için sevgili Ozan Akkaya'ya teşekkürler)

Walla hocam dediginizden anladigim kadariyla su sekilde yaptim ama sanirim tam anlamamisim
cunku calismadi buton. Yanlısimi gosterebilrmisiniz.

Private Sub İmalatçı_Form_Girişi_Click()
On Error GoTo hata
DoCmd.Close acForm, "Ana_Menü"
DoCmd.OpenForm "İmalatçı_Ekle"
hata: Exit Sub
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(304) & ChrW(109) & ChrW(97) & ChrW(108) & ChrW(97) & ChrW(116) & ChrW(231) & ChrW(305) & ChrW(32) & ChrW(69) & ChrW(107) & ChrW(108) & ChrW(101)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_İmalatçı_Form_Girişi_Click:
Exit Sub

Err_İmalatçı_Form_Girişi_Click:
MsgBox Err.Description
Resume Exit_İmalatçı_Form_Girişi_Click

Bence sizin form adlarınızda bir yanlışlık olabilir. Kodları yazarken me. kullanmayı deneyin. Böylece form adlarını ya da alan adlarını gelen listeden seçerek yanlış yapma riskini ortadan kaldırmış olursunuz.

Ayrıca görüyorum ki ChrW kodları oluşuyorum. Bu da rapor adlarında hala türkçe karakter kullandığınızı gösteriyor. Buna da dikkat etmelisiniz.

Bir örnek ekleseniz de biz örnek oluşturmak zorunda kalmasak))

aslında ornek yollamayı ben de isterim ama cok buyuk boyutlara ulastı ve bunu da upload edemiyorum. Sadece ilgili kısmı yollayıp yollayamayacagımı da bilmiorum. Yani sadece ilgili formu kopyalamam we bir baska access dosyası olarak upload edebilirmiyim bu mumkun mu?
Ayrıca henuz rapor yaratmadım, ama form isimlerim turkce karakter iceriyor. Bunun sakincasi olacaksa iyice dallanip budaklanmadan degistireyim isimleri.Siz ne onerirsiniz?
İlginize tesekkurler.