Telefon Rehberi (Ver.2.0)

Katılım
16 Kasım 2005
Mesajlar
1,090
Excel Vers. ve Dili
Access 2002
Arkadaşlar yapmış olduğumu telefon rehberi ve özel kişilerin takiplerinin yapıldığı programı hizmetinize sunuyorum güle güle kullanın
 

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,552
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
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.
 
Son düzenleme:
Katılım
2 Mayıs 2006
Mesajlar
226
Excel Vers. ve Dili
office 2003
Almanca
ö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
 
Katılım
4 Temmuz 2005
Mesajlar
112
Excel Vers. ve Dili
Office 2007 Enterprise
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.
 
Katılım
16 Kasım 2005
Mesajlar
1,090
Excel Vers. ve Dili
Access 2002
Arkadaşlar, beğendiğinize sevindim işte bak görün forum insana neler yaptırıyormuş.:)
 

akd

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,114
Excel Vers. ve Dili
2003
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...
 
Katılım
4 Temmuz 2005
Mesajlar
112
Excel Vers. ve Dili
Office 2007 Enterprise
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

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,114
Excel Vers. ve Dili
2003
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...
 
Katılım
4 Temmuz 2005
Mesajlar
112
Excel Vers. ve Dili
Office 2007 Enterprise
Haklısınız iyi tespit doğrusu orası "HIDE" olmalı...
 

akd

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,114
Excel Vers. ve Dili
2003
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
 
Katılım
1 Şubat 2007
Mesajlar
6
Excel Vers. ve Dili
excell 2007
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.
 
Katılım
16 Kasım 2005
Mesajlar
1,090
Excel Vers. ve Dili
Access 2002
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....
 
Katılım
29 Nisan 2007
Mesajlar
4
Excel Vers. ve Dili
excel 2003
türkçe
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
 
Katılım
15 Kasım 2006
Mesajlar
583
Excel Vers. ve Dili
Ms Office 2003 Türkçe
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 !
 
Katılım
16 Şubat 2007
Mesajlar
40
Excel Vers. ve Dili
excell2003 türkçe
paylaşımın için çok saol arkadaşım bizler için emek vermişsin çok saol
 
Katılım
10 Nisan 2007
Mesajlar
7
Excel Vers. ve Dili
exel 2002 Türkçe
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.
 
Katılım
9 Mayıs 2007
Mesajlar
19
Excel Vers. ve Dili
2003
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
 
Katılım
14 Haziran 2007
Mesajlar
1
Excel Vers. ve Dili
excell 2002 türkçe
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
 
Üst