Telefon Santral Programı

[acy06]

Sayın Ustalar;

Yapmış olduğum program daha ziyade santral teknisyenleri için yapılmıştır.
Programı yorumlarınıza açıyorum. Değerli önerilerinizi bekliyorum. İyi çalışmalar diliyorum.

Kullanıcı: medtelefon
şifre : medtelefon

 

[papir44]

program gerçekten çok güzel direk ağız sulandırıyor ellerine sağlık.
aklıma takılan birşey var programı bu şekilde oluşturuyorum fakat access pencereside arkasında çıkıyor bunu engellemek için ne yapalibirim bilgi verirseniz sevinirim çok teşekür ederim şimdiden

 

[assenucler]

Sn. acy06

Katkın ve paylaşın için teşekkürler.

 

[ERENYILMAZ]

Böylesine güzel bir proğramı bizlerle paylaştığın için teşekkürler

 

[hakanmemik]

bilgine ve eline sağlık ....

 

[acy06]

Acsess Penceresİnİ Gİzlemek

Öncelikle ilgi ve alakanıza çok teşekkür ederim.
Programda hatalar gördüm ve yenisini sizlerle paylaşacağım.
Sorunuza gelince;

1- Aşağıdaki kodu "kod oluşturucusundan" modül ekleyin ve içine kopyalayıp kapatın.

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function

2- makro oluşturup "Eylem"den kod çalıştırı seçin. Aynı sayfada bulunan "İşlev Adı"da fAccessWindow ("Hide", False, False) yazıp kapatın.
3- Programınızda ilk açılmasını istediğiniz Formunuzu Araçlardan Başlangıç sekmesinde Form/Sayfa Görüntüle kısmına tanıt.
4- Daha sonra ilk açılacak formunuzun özelliklerinden "Açıldığında" sekmesinde oluşturduğunuz Makroyu tanıtın. Kaydedip çıkın.

Kolay gelsin....

 

[isomikis]

Öncelikle ilgi ve alakanıza çok teşekkür ederim.
Programda hatalar gördüm ve yenisini sizlerle paylaşacağım.
Sorunuza gelince;

1- Aşağıdaki kodu "kod oluşturucusundan" modül ekleyin ve içine kopyalayıp kapatın.

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function

2- makro oluşturup "Eylem"den kod çalıştırı seçin. Aynı sayfada bulunan "İşlev Adı"da fAccessWindow ("Hide", False, False) yazıp kapatın.
3- Programınızda ilk açılmasını istediğiniz Formunuzu Araçlardan Başlangıç sekmesinde Form/Sayfa Görüntüle kısmına tanıt.
4- Daha sonra ilk açılacak formunuzun özelliklerinden "Açıldığında" sekmesinde oluşturduğunuz Makroyu tanıtın. Kaydedip çıkın.

Kolay gelsin....

arkadaşım dediğini yaptım hatta senin programını SHIFT ile açarak da inceledim ben yapınca form da gizleniyor yani hiçbirşey çalışmıyor ekranda sebebi ne olabilir?

 

[acy06]

Acsess Penceresİnİ Gİzlemek

Pardon bir eksik anlatım olmuş.

Bütün form ve Raporlarınızın özelliklerinden "Açılan" ve "Kalıcı" özelliklerini EVET olarak ayarlayın. Ayrıca Raporlarınızın özelliklerden "Açıldığında" olay yordamına aşağıdaki kodu yazın. Bunun sebebi rapor açılıyor ama minimize oluyor bunu engellemek için yazıyoruz.

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

kodunu yazın. Tabi bu anlattıklarımı tasarım modunda yapacaksınız.

 

[isomikis]

teşekkürler arkadaşım. şimdi oldu. sana rep verecektim ama rep sistemi devredışı

 

[acy06]

Olduğuna sevindim. Rep olayına da düşündüğün yeter. Çalışmalarında başarılar dilerim.

 

[acy06]

yeni telefon santral programı

Arkadaşlar daha evvelden görüşlerinize sunduğum programda sorgu hatalarına rastladığım için programı tekrar elden geçirdim ve hataları düzelttim. Ayrıca biraz daha makyajladım. Sanırım şimdi daha güzel oldu.

Kullanıcı adı: medtelefon
şifre : medtelefon


Görüşlerinizi bekliyorum....

 

[Yakup Akgul]

paylasimin icin cok tesekkurler

 

[Yakup Akgul]

Nedense ben bu programi indiremiyorum

 

[ergunnugre]

selam
bu program sanırım silinmiş tekrar yüklerseniz çok sevinirim
şimdiden teşekkür ediyorum emeklerinize sağlık...

 

[bayramk]

tşk ederim

 

[tesel_ya]

be deindiremiyorum
ilgilenirseniz sevinirim acil lazım.

 

[akurudere]

proğram indirelemiyor.varmı başka linki teşekkürler

 

[Kemal Demir]

Arkadaslar merhaba,

Silinmiş bir dosya.Konu içerisindeki Ek'i daha öncesinden yedekleyen,elinde var olan arkadaslar varmıdır.

Varsa tekrar paylaşabilirmisiniz.
Teşekkurler

 

[moqsam]

Evet arkadaşlar elinde olan varsa gönderebilir mi. Çok Acil Lazım. Şimdiden tşkler.

 

[tarkansu]

güzel

program güzel