Emeğine sağlık.

Sayın kagan58;

Beğendiğinize sevindim.

Sn. İsmail Bey Affına sıgınarak bısey sormak ıstıyorum. Kac zamandır arastırıorum Bu Acess ekranı gızleyemedım bırkac vıdeo ızledım ama olmadı kısaca anlatman mumkun mu ?

gercekdost123 Yazılan:Sn. İsmail Bey Affına sıgınarak bısey sormak ıstıyorum. Kac zamandır arastırıorum Bu Acess ekranı gızleyemedım bırkac vıdeo ızledım ama olmadı kısaca anlatman mumkun mu ?

ozanakkaya Yazılan:Sn. gulesin eklediği EVRAK KAYIT örneğinde bahsettiğin uygulamanın örneği mevcut.


Açılan formun "açıldığında" alanına

Kod:

Call fSetAccessWindow(0)

yazar isen ve modüle aşağıdaki kodları eklersen

Kod:

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
        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

form açıldığında access penceresi gizlenir. Sayın Hocamın EVRAK KAYIT örneğini incele.

gercekdost123 Yazılan:Sn. İsmail Bey Affına sıgınarak bısey sormak ıstıyorum. Kac zamandır arastırıorum Bu Acess ekranı gızleyemedım bırkac vıdeo ızledım ama olmadı kısaca anlatman mumkun mu ?

Ben de izah edecek kadar daha usta değilim.Fakat;
Programdaki Modülleri kopyalayınız.

Program ilk açılırken çıkacak formun AÇILDIĞINDA OLAY YORDAMINA :
Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub

Yazınız.

Tabii ki öncelikle Araçlar> Başlangıç> Form/Sayfa görüntüle kısmına, program açılırken ilk kez ekrana gelmesi gerekli FORMUNUZU şeçip TAMAM deyiniz.

Sn İsmail Küçükşengün.


Paylaşımınız için çok teşekkürler. Çok kullanışlı bir uygulama.

gercekdost123 Yazılan:Sn. İsmail Bey Affına sıgınarak bısey sormak ıstıyorum. Kac zamandır arastırıorum Bu Acess ekranı gızleyemedım bırkac vıdeo ızledım ama olmadı kısaca anlatman mumkun mu ?

Forum İçeriği Ziyaretçilere Kapalıdır.

linkinde ayrıntılı bir şekilde anlıtıldı.

Sayın gerçekdost123;

Ben atlamışım;

Forum İçeriği Ziyaretçilere Kapalıdır.

linkinde üstadımız çok güzel anlatmış.

Sayın ozanakkaya;

Sizin gibi access üstadının çalışmamı beğenmesi benim için çok güzel bir duygu.

Selamlar.

GELİR FORMU>YENİ KAYIT>TARİH kısmında bugünün tarihi otomatik olarak nasıl gelir?

Sn. İsmail Küçükşengün

Bence de programınız gayet güzel olmuş. Tebrikler.
Ancak daha da iyi olabilmesi adına müsaadenizle, benim de bir kaç yapıcı eleştirim ve önerilerim olacak.

Öncelikle daha önce Sn. Tembel'in yaptığı eleştirilerin tamamına bende katılıyorum.

* Timer kullanımı ve sürekli kıprışan formlar bence de hiç hoş görünmüyor.
Özellikle menü penceresinde çerçevenin kıpraşması gözü inanılmaz yoruyor.
Bu tür şeyler inanın programınıza bir şeyler katmaz, sadece kullanıcıyı yorar. Programınız menü sayfasında açıkken, küçük bir pencerede mesela notepad gibi bir program kenarda açık ve aktifken kendi programınızın üzerine götürün,
ne kadar fazla kıpraştığını daha iyi göreceksiniz.
* Bence de Hakkında diye bir form yapıp, açıklamaları oraya yazın.
* Excel ve Worda aktardıktan sonra, access penceresinin gizlenmesi sağlanmış ancak aktarırken dosya adı sorduğunda Cancel derseniz yine gizlenmiyor.
* Yeni kayıtlarda "AutoNumber" yazısı görünmese daha iyi olur.
("Koşullu Biçimlendirme" yi kullanarak yapabilirsiniz, sanırım forumda örnekleri vardır)
* Gelir-Gider girişinde eski kayıtlar yerine direkt yeni kayıt gelse daha iyi olur.
* Filtrelemede "GelirTipi" seçip filtreleme yaptıktan sonra, o seçimden vazgeçmek sorun yaratıyor. Kaydı tekrar seçip, delete tuşu ve enter tuşuna basmak gerekiyor. Bunun yerine ya "Tümü" seçeneği eklemeli veya seçimi kaldırmak için mesela çift tıklayınca seçimin iptali (değişkene null atamak) gibi bir şey eklemelisiniz.

Bunlar biraz görselliğe yönelik şeyler ancak onlardan daha fazla dikkat etmeniz gereken ve programınızın sağlamlığı ve kayıtların tutarlılığını sağlamak için yapmanız gerekenler var.
* Kayıt girişlerinde ve değişikliklerde; alanların boş geçilmemesi,
* Kayıt silmelerde ise başka bir tabloda mevcut olan kayıtların silinmemesi.
Bu tür kontroller sağlanarak programın Run-time hatası verip, debug penceresine düşmemesini sağlamalısınız.

Mesela;
* Gelir-Gider kısmında yeni kayıt girerken, yarım bırakıp GİT kısmından
başka bir kayıt seçtiğinizde Run-Time hatası veriyor ve koda düşüyor.
* Gelir-Gider kaydı girilirken Tarihi veya Gelir-Gider Tipini boş geçip kaydet dediğimizde run-time hatası verip koda düşüyor.
* Örneğin, mevcut kaydı olan bir gelir tipini silmeye çalıştığımda run-time hatası verip koda düşüyor.

Doğru yoldasınız, böyle devam edin.

Saygılarımla,

İsmail Küçükşengün Yazılan:Merhaba.

Sayın TURİSSEMOS'un hesap takip adlı programını temel alarak (ve kendisinin izniyle) AVUKAT arkadaşların ve diğer kişilerin KASA TAKİBİNİ yapmak üzere hazırlanan program ektedir.

Üzerinde halen çalışılan Hukuk Büro Otomasyonunun bir bölümüdür.

Programla, Kasanıza ait bir çok konuda rapor alabilir, verilerinizi Excel ve Worda aktarabilirsiniz.

Kullanıcı adı: İsmail, İlk Giriş Şifresi 1234 tür. Programa girdikten sonra kendi kullanıcı adınızı ve şifrenizi girebilirsiniz.

Sayın TURİSSEMEOS'a teşekkürlerimle.

YENİ ŞEKLİ 6 No.lu Mesajdadır.

Sayın İsmail Küçükşengün.

Programın ve paylaşımın için teşekkür ederim.
Bu programının üzerinde biraz oynamam için onay verirmisin.