access kod deposu

Katılım
30 Ocak 2007
Mesajlar
10
Excel Vers. ve Dili
Office XP
Sn. Gulsum1
Size ve emeği geçen herkese sonsuz teşekkürü borç biliyorum. Teşekkürler.
 

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
3,043
Excel Vers. ve Dili
Office 2013 İngilizce
Sn AKD ilginize teşekkürler,

Açılan kutu yerine, ActiveX nesneleri içinden Microsoft Form ComboBox kullanarak yapmayı düşünmüştüm.

Amacım Filtre olarak kullanıp Şehir alanını seçtiğimde yalnızca seçili şehirde bulunanların isimleri listbox' ta listelenmesiydi.

İyi Çalışmalar...
 
Katılım
6 Aralık 2006
Mesajlar
21
Excel Vers. ve Dili
2000 türkçe
bende emlak prg yapmaya çalıştım bir kaç yerde takıldım önce MAIN de tarih saat sonrs papor ve yazıcı çıktı arama kiterine göre arayıp yaıcıdan çıkartacak ( semt ) , ( satış fiyat aralığı ) gibi bulup raporlayacak.. birde sifre ve kullanıcı adı bunları beceremedim. Yardım edecek yokmu.

Teşekkürler
 

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

Sn. Gulsum1

Foruma yaptığınız katkılarınız ve paylaşımlarınız dolayısıyla kendi adıma size ne kadar teşekkür etsem azdır.

Her şey gönlünüzce olsun diyorum. Sağolun varolun.
 
Katılım
3 Mayıs 2007
Mesajlar
65
Excel Vers. ve Dili
office xp
Selamlar

Arkadaşlar Hazır Bir Dosya üzerinden kendime uyarlama yapmaya çalışıyorum ama bir tür kullanıcı Menüsüne yönlendirme yapamadım kullanıcı adını ve şifresini girdiğinde igilli menünün gelmesini istiyorum ama bir türlü başaramadım
bana yardımcı olabilirmisiniz

Birde İl - İlce - Semt - Durak Adı - Sevis Adı Bağlantılı bir seçim Kutusu kurmaya çalışıyorum ama yapamdım

Örnek;

İl : İzmir Seçildiğinde İzmirin İlçeleri Bornova
Konak
Buca
vb.

İlçe: Bornova Seçildiğinde Bornova Semtleri Yeşilova
Çamdibi
Kamil Tunca
Vb.

Semt: Yeşilova Seçildiğinde Yeşilova Servis Durakları Çıkmalı Sondurak
Eski Postane
Köşe
vb.

Durak Adı : Sondurak Seçildiğinde Servis İsimleri Bornova Servisi olarak otomatik çıkmalı


Ama Tüm bunların Değişken olduğundan Tablolara benim Tanımlama Menüsü altında giriş yapabilmeliyim

arkadaşlar teşekkürler iyi akşamlar..
 
Katılım
3 Mayıs 2007
Mesajlar
65
Excel Vers. ve Dili
office xp
User Kullanıcı tanımlaması ok

Arkadaşlar Kullanıcı Adına Yönlendirme işlemini aşağıda kod ile yaptım fakat
bir tek bana gerekli olan şuan bağlantılı seçmeli pencere yani il bağlantılı ilçeler
ilçelere bağlantılı semtler semtlere bağlantılı duraklar durklara bağlı servis isimleri olacak bir şey şimdiden teşekkür ederim iyi açlışmalar Kullanıcı adına yönlendirme işleminde yardımcı olan Gülsüm ve Arnavut üstadlarıma teşekkür ederim.

iyi akşamlar

Private Sub OPENFORM_Click()
On Error GoTo Err_OPENFORM_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim retvalue As String

If PW = UserName.Column(1) Then
stDocName = "Table" & Right(UserName, 1)
DoCmd.OPENFORM stDocName, , , stLinkCriteria
Else
retvalue = MsgBox("Şifre Yanlış!!! Lütfen yeniden deneyin.", vbOKOnly)
End If

Exit_OPENFORM_Click:
Exit Sub
Err_OPENFORM_Click:
MsgBox Err.Description
Resume Exit_OPENFORM_Click

End Sub
 
Katılım
1 Şubat 2007
Mesajlar
9
Excel Vers. ve Dili
2003 Türkçe
ellerinize sağlık gulsum1 kod deposu çok değerli bir arşiv olmuş.
ama office 2003 den office 2007'e geçtiğimde aranan kutucuğuna veri girildiğinde liste6 kendini yenilemiyor. 2007'e geçmek istiyorum ama sırf bu özellikten dolayı geçemiyorum lütfen yardım.
çalışmalarınızda başarılar.
 
Katılım
19 Eylül 2008
Mesajlar
331
Excel Vers. ve Dili
2003
sayın Gulsum Son zamanlarda dosya indirme bayağı problem haline geldi. Sonuç olarak dosyayı indiremiyorum Öyle zannediyorum ki aynı problemi diğer arkadaşlarda yaşıyordur. Yıllar süren bir emeğe bizlerde yukarıdaki nedenden ötürü katkıda bulunamıyoruz
Sizin ekleyeceğinizi umarak aşağıdaki kodu ekliyorum iyi çalışmalar
Sizlerinde bildiği gibi accesste index ile çalışma olayı vb deki gibi yok.Ama aşağıdaki örneğe bakıldığında bunun mümkün olduğu görülmektedir

Dim rs As New ADODB.Recordset
rs.Open "TabloAdı", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

For i = 1 To 4
a = Controls("metin" & i)
rs.AddNew
rs(1) = a
rs.Update
rs.MoveNext
Next
bu şekilde index alarak işlem yapılabiliyor iyi çalışmalar
 
Katılım
25 Mart 2009
Mesajlar
1
Excel Vers. ve Dili
excel 2007 dil türkçe
indiremiormm........

bn indiremiormm bu kaynak deposunu arkadaşlar...:S:S
 
Katılım
21 Ocak 2007
Mesajlar
44
Excel Vers. ve Dili
Excel 2010 ingilizce versiyonu kullanıyorum.
Altın Üyelik Bitiş Tarihi
15/01/2023
Merhaba;

Benim çok kısa bir sorum olacak. İlk once ellerinize sağlık. bizim için mukemmel bir kaynak.
ben attach edilmiş doayıayı bir turlu kendime alamıyorum.

bu konuda bana yardımcı olursanız çok sevinirim.

unsal99
 

akd

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,114
Excel Vers. ve Dili
2003
Bir ara veri tabanındaki dosyalar silinmiş, elinde olan bir arkadaş eklerse, ihtiyacı olan arkadaşlara yardımcı olmuş olur...
 
Üst