AccessTr.neT

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

adams43

Puletin

adams43

ercansahin

adams43

ercansahin