Telefon Rehberi (Ver.2.0)

[karaayhan]

Arkadaşlar yapmış olduğumu telefon rehberi ve özel kişilerin takiplerinin yapıldığı programı hizmetinize sunuyorum güle güle kullanın

 

[assenucler]

Teşekkür ve bir rica.

Sn. Karaayhan

Programınız nefis, tebrikler. Sitemize yaptığınız katkıları ve paylaşımlarınızı büyük bir keyifle izliyor ve takdir ediyorum. Allah her şeyi gönlüne göre versin.

Sizden bir ricam olabilir mi? Sitede dikkatinizi çekti mi,bilmiyorum. Ben kredi kartı harcamalarımı, taksitli ödemelerimi ve borç kalanlarını access form'u üzerinden izlemek ve raporlar menüsünden de rapor almak istiyorum.

Benim yapabildiğim otomatik form ve rapor yaratmak şeklinde oluyor. Bunlarda çok basit kalıyor. 60'lı yaşlarda bir kişi olarak, istesek de siz genç arkadaşlarımız gibi üretken olamıyoruz.

Mümkünse olumlu veya olumsuz yanıtınızı bekler. Vereceğiniz emek, göz nuru ve paylaşımınız için öncelikle teşekkür ederim. Sevgi ve saygılar, forum dostum.

 

[Yakut]

öncelikle tebrik edirim,sagol var ol.....ama

bu programi nicin mdb yapmadiniz...

mde program yapmanin bir anlami yokki bizler icin ,hic bir arastirmaga yönelik degil, ögretici degil. bu kusura bakmayiniz..

saygilar

 

[xorion]

Siz de haklısınız ama MDE de olsa en azından işleyiş tarzı, tasarımı ve uygulama ile ilgili soru üretme bakımından faydalı olabilir yine de.

 

[karaayhan]

Arkadaşlar, beğendiğinize sevindim işte bak görün forum insana neler yaptırıyormuş.

 

[mersinidmanyurdu]

Güzel Çalışma

Ellerine emeğine sağlık

 

[akd]

Sayın karaayhan eline sağlık çok güzel olmuş.
Rica etsem, access'i arka planadan gizleme kodunu yazarmısınız,
neyi nereye yazacağımı yazarsanız çok sevinirim,
ben bir türlü başaramadım bu konuyu.
İyi çalışmlar...

 

[xorion]

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


Bunu modul olarak kaydedin..Daha sonra formlarınızın özelliklerinden açılan ve kalıcıyı evet olarak seçin. Yeni bir Makro oluşturun eylemlerlerden kod çalışıtırı seçin işlev adına da
fAccessWindow ("Minimize", False, False)

bunu yazın sonra bu makroyu açılış formunun açılışına ekleyin..
Bu makro yönteminin yararı daha önce de verilen pencere gizleme olayındaki gibi rapor önizlemelerinde sorun yaşamanızı da engelliyor olmasıdır..

 

[akd]

Merhaba sayın xorion kardeş,
İlği ve alakanızdan dolayı çok çok teşekkürlerim sunarım,
Allah razı olsun.
fAccessWindow ("Minimize", False, False)
yapınca aşağıya minimize yapıyor
fAccessWindow ("Hide", False, False)
Yapınca tam olarak access kayboluyor
Elinize sağlık hoşçakalın...

 

[xorion]

Haklısınız iyi tespit doğrusu orası "HIDE" olmalı...

 

[akd]

Merhaba arkadaşlar,
Sayın xorion bu olayı yaptıktan sonra,
onar makrom çalışmamaya başladı.
Bir makro veya kod çalışırken onarma ve sıkıştırma yapılamaz,
uyarısı alıyorum.
Bu Hide founctionunu,
onar makrosu çalıştırmadan önce nasıl sonlandırabiliriz.
İyi geceler...
Sub onarım()
Dim msg As String
msg = "Database.Mdb isimli veritabanında girdiğiniz kayıtlar tutulmaktadır. "
msg = msg & "Girdiğiniz ve/veya sildiğiniz kayıtlarla bu dosya zamanla gereksiz yere şişer."
msg = msg & "Bunun için [Veritabanı dosyası bakımı] işlemini 10 günde bir yaparsanız, "
msg = msg & "gereksiz şişkinlikler dosyanızdan atılacak, dolayısıyla dosyanızın boyutu küçülecektir." & vbCrLf & vbCrLf
msg = msg & "Özellikle hafta sonları yedeklemelerden önce" & vbCrLf
msg = msg & "[Veritabanı dosyası bakımı] işlemini uygulamanız tavsiye edilir." & vbCrLf & vbCrLf
msg = msg & "Evet'i Seçerseniz...Programın Düzenlenip Onarılabilmesi için Kapatılması Gerekiyor " & vbCrLf & vbCrLf

msg = msg & "Şimdi veritabanı dosyanızın bakımını yapacak mısınız?" & vbCrLf & vbCrLf
If MsgBox(msg, vbQuestion + vbYesNo, "Veritabanı dosyası bakımı") = vbNo Then Exit Sub

DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(id:=2071).accDoDefaultAction

End Sub

 

[cometgs]

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


Bunu modul olarak kaydedin..Daha sonra formlarınızın özelliklerinden açılan ve kalıcıyı evet olarak seçin. Yeni bir Makro oluşturun eylemlerlerden kod çalışıtırı seçin işlev adına da
fAccessWindow ("Minimize", False, False)

bunu yazın sonra bu makroyu açılış formunun açılışına ekleyin..
Bu makro yönteminin yararı daha önce de verilen pencere gizleme olayındaki gibi rapor önizlemelerinde sorun yaşamanızı da engelliyor olmasıdır..

Bu şekilde yaptığımda formların acılmasında sorun yok ama raporlar acılmıyor kitleniyor program aynı sekilde acılan ve kalıcısını evet yaptım raporlarında yardımcı olursanız sevinirim.

 

[karaayhan]

Kullanılan Kodlarla ilgili sık sorulmaya başlandığı için;

Adı Soyadı Alanını birleştirip kayıt bulma kodu aşağıda

'-------bu kodu açılan kutunun verikaynağına SQL olarak yapıştırın---------

SELECT telefon.islemno, [adi] & "" & [soyadi] AS adisoyadi
FROM telefon;
'--------------------------------------------------------------------------

'--------bu kodu ise açılan kutunun AfterUpdate olay yordamına yapıştırın-----

Private Sub Açilan_Kutu143_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[islemno] = " & Str(Nz(Me![Açilan Kutu143], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub


konu bundan ibaret arkadaşlar anlaşılmayan birşey yok artık sanırım....

 

[veysell]

ne bu

ya siz excelde bunun yapılmayacagını filanmı düşünüyosunuz yada bunun yapılışını cok mu zor sanıyosunuz emin olun ki bundan bin kat daha güzeli yapılabilir

 

[yeni54]

asıl bu ne şimdi?

hiç kimse, hiç bir yerde bunun yapılamıyacağını düşünmediği gibi,
sizin gibi ukalalık yapıp dile de getirmedi.

bu forum bir paylaşım forumu, bilmem ne yarıştırma forumu değil.

sen bunun bin kat daha güzelini yapabilirsin, eminim ki bin kattan bin kat daha güzelini yapanlar da çıkar ve çıkacaktır da.

onun için lütfen forum üyelerine ve üye olmayanlarına katkınız bu şekilde değil de, öğretici ve geliştirici birşeyler katarak olsun.

ve yine lütfen bu mesaja cevap verme küçüklüğünü göstermeyin sayın veysell !

 

[iko67]

paylaşımın için çok saol arkadaşım bizler için emek vermişsin çok saol

 

[tuğberk]

Teşekkürler Kolay gelsin

 

[tubuni]

arkadaşım teşekkürler birşeyler paylaşmaya çalışmıssınız ama programı çalıştırdığımda çıkmaya çalışıyor ve hayır desek bile programdan çıkıyor.Boşuna indirmişiz.

 

[kalimeroozturk]

Sevgİlİ Karaayhan,
Ben GÖnderdİĞİn ÖrneĞİ Malesef AÇamiyorum.
AÇtiĞimda "Çikilsinmi" Mesaji Aliyorum Hayir Dahİ Desem Perogram Kapatiyor Kendİnİ
Yardim Edersen Svİnİrİm

 

[barlon61]

kimse varmı
programı acıyorum ama cıkılsınmı diyor
hayır diyorum gene cıkıyor
bunu nasıl halledicez yardımcı olursanız sevinirim