AccessTr.neT

Tam Versiyon: Access penceresi gizlenmiyor
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Bir apartman yönetimi takip programcığı yaptım.

Önerilen yöntemdeki tüm adımları uygulayarak Access penceresini gizlemeye çalıştım. Programı çalıştırdığımda pencereler maalesef gizlenmiyor. Benim Butonlar, formlar ve raporlar düzgün çalışıyor. Ancak Access menülerinin kullanımı mümkün olmuyor. Açılış formu üzerine sağ tıklayarak tasarım moduna geçebiliyorum rahatlıkla. . .

Programı shift ile açıp açılış formu olan "Menü" formunu çalıştırdığımda pencereler gizleniyor. Img-grin Sonrası yine herşey düzgün.

İlk açılışta Access pencerelerin gizlenmemesinin sebebi ne olabilir?
Bir de açılış menüsünde uygulamadan çıkış butonu kodu;

Kod:
Private Sub Komut9_Click()
On Error GoTo Err_Komut9_Click


    If Me.Dirty Then Me.Dirty = False
    DoCmd.Quit

Exit_Komut9_Click:
    Exit Sub

Err_Komut9_Click:
    MsgBox Err.Description
    Resume Exit_Komut9_Click
    
End Sub
buradaki
Kod:
If Me.Dirty Then Me.Dirty = False
satırı hata verdiği için o satırı kaldırdım.
Hatada şu "Dirty özelliğine geçersiz bir başvurusu olan bir ifade girdiniz"

Yardımınız için şimdiden teşekkür ederim.

Bende çalışıyor.Bunu deneyiniz.
Teşekkür ederim Puletin. Ben galiba daha önce denediğim yöntem gibi yani pencerelerin hatta altta görev çubuğundan bile kaybolduğu yöntemdeki gibi olacak zannettim. Bu daha iyi bi yöntem. Galiba "Önerilen" olma sebeplerinden biri. Diğer yöntemde açık olan programımızın penceresini bulmak zor oluyordu.

Peki bu "uygulamadan çık" butonundaki hata veren satır ne işe yarıyor?

Son olarak F_Hareket Ekleme formunun açıldığında ekranı kaplaması için ne yapmalıyım? Bu formun açıldığında olayında zaten bir kod var(yeni kayıt). Bu form bir bölünmüş form. Açıldığında benim istediğimden çok daha büyük açılıyor. Ben de açılmışken ekranı tam kaplayarak açılsın istiyorum. Bu mümkün müdür?
Sn adams43, ilgili formun açıldığında olay yordamına
Kod:
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
yazarsanız formunuz açıldığında ekranı kaplayacaktır.
Ekleme formu olduğu için var olan codun içine sizin verdiğiniz "DoCmd.Maximize" kodunu aşağıdaki şekilde ekledim.

Kod:
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
DoCmd.GoToRecord , , acNewRec
End Sub
Bu sefer "DoCmd.GoToRecord , , acNewRec" satırında hata veriyor. Ve sonrasında bişey yapamıyorum. Ctrl+Alt+Del ile Access i sonlandırıyorum artık.


Vee son oluşum. . .
Kod:
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
DoCmd.Maximize
End Sub
olarak satırların yerini değiştirince problem kalmadı. . .

Bence ilginç bir davranış ama kodlamada böyle şeyler oluyor demekki. İlgilenen herkese teşekkür ederim.
Bende yapılmış halini eklemiştim, sonraki cevabınızı görünce kaldırdım. Çözdüğünüze sevindim. Kolay gelsin.
Sayfalar: 1 2