Portal — AccessTr.neT

| Facebook ile Bağlan | Twitter İle Bağlan | Google+ İle Bağlan

Yazar: alpeki99

19/11/2008, 03:34

Yorum 9

Merhaba.

Sevgili hocamız MehmetDemiral'ın konuyu öne sürdüğü Sevgili Syrup'un çözüü ürettiği benimde örneğini gönderdiğim dosyayı ekliyorum.

Problem Tanımı : Tablo1 de yer alan bilgilerden bazıları Tablo2 de yer alıyor. Tablo2 deki kayıtlar değişiyor ve bunların Tablo1 e ID leri değiştirilmeden aktarılmaları gerekiyor.

Tablo2dekileriTablo1Aktar.rar (Dosya Boyutu: 9,23 KB | İndirme Sayısı: 302)

Yazar: esrefigit

18/11/2008, 08:48

Forum: Access Örnekleri ve Uygulamaları

Yorum 41

herkes accessde Excel gibi bilgi daha önce girilmişse ben harf yazdıkça otomotik tamamlasın der
şimdi aranızdan bir kaç kişinin canım bunun nesi var diyenleri duyabiliyorum bir sorgu yaparım len ile mid vs vs ile harfleri aratır bulurum veya önce açılır kutu yapar sonra onu metin kutusuna dönüştürürüm gibi değişik önerileri olanlar olacaktır. peki bunun nesi var diyenlere bu kod yalnızca bir defa forma yazılıyor o içine girilen metin kutusunun denetim kaynağını araştırıyor ve ordaki bilgileri kontrol ediyor siz yazdıkça tamamlanıyor
bu kısım formunuza yalnız unutmadan tuş önizlemeyi açacaksınız

Kod:

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

 otomotiktamamla (Screen.ActiveForm.ActiveControl.ControlSource)

End Sub

buda modül

Kod:

Option Compare Database

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Function otomotiktamamla(kutuadi As String)

Dim ctl As Control

Dim LenOldText As Long

Static Once As Boolean

Dim rst As Object

If Once = False Then

If GetAsyncKeyState(vbKeyBack) = 0 _

And GetAsyncKeyState(vbKeyDelete) = 0 Then

Once = True

On Error Resume Next

Set ctl = Screen.ActiveForm.ActiveControl

Set rst = Screen.ActiveForm.RecordsetClone

If ctl.Text <> "" Then

rst.FindFirst kutuadi & " LIKE '" & ctl.Text & "*'"

If Not rst.NoMatch Then

LenOldText = Len(ctl.Text)

ctl.Text = rst(kutuadi)

ctl.SelStart = LenOldText

ctl.SelLength = Len(ctl.Text) - LenOldText

End If

End If

Set ctl = Nothing

Set rst = Nothing

On Error GoTo 0

Once = False

End If

End If

End Function

örnek ekte

64 bit için buraya tıklayınız.

otomotik tamamlama.rar (Dosya Boyutu: 18,35 KB | İndirme Sayısı: 967)

Yazar: bayFARUK

18/11/2008, 00:00

Forum: Access Örnekleri ve Uygulamaları

Yorum 4

yaptığınız formların açılışında veya kapanışında ayrıca komutlarınıza basıldığında sessiz kalmasın!!! ses vererek canlılık getiresiniz! klasör içinde istediğiniz yere taşıyabilirsiniz. istediğiniz wav dosyasını yükleyerek adını değiştirin yeter.
programıma uyguladığım örneğin ses kısmını paylaşmak istedim!

komut ve formlara ses uygulaması.rar (Dosya Boyutu: 98,67 KB | İndirme Sayısı: 262)

Yazar: fomka

17/11/2008, 23:17

Forum: Access Örnekleri ve Uygulamaları

Yorum 1

selam arkadaşlar. ben de yeni Access öğrenenlerden sayılırım. daha önce Excel kullandım. tabi Access kadar dinamik ve pratik değil. ama autofilter özelliğini bilmediğim için baya sıkıntı yaşadım. sağolsun buradakı üstadlar, özellikle syrup yardımcı oldu, problemi halletdik.
Autofilter özellikle topdansatış yapanlar için çok önemli. adamların elinde n tane çeşitli ürün, model, boy, cart-curt oluyor. Örnek olarak Ülkerin ürünlerini düşünebilirsiniz.
İşte bu lastik ürünleri örneği satılacak veya sifariş verilecek ürünlerin nasıl kolaylıkla seçileceğini göstermeye çalışıyor.
bir daha teşekkürler.

autofilter.rar (Dosya Boyutu: 74,43 KB | İndirme Sayısı: 201)

1 ... 346 347 348 349 350 ... 380

Toplam Üyeler 136.859

Son Üye can29

Toplam Konular 24.839

Toplam Yorumlar 180.246

Detaylı İstatistikler

Şu anda 210 aktif kullanıcı var. AdsenseBot, AhrefsBot, Bing Bot, Core, Google Bot, SemrushBot, Trendiction, YandexBot, grapeshot, proximic, C*e*l*o*y*c*e, can29, yenginoglu

(3 Üye - 197 Ziyaretçi)