Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
07/03/2009 12:36
Konu Sahibi
arif1971
Yorumlar
21
Okunma
7502
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

arif1971


AR.... ÇI....
 47
 78
 21
 28/02/2009
0
 Eskişehir
 TSK
 Ofis 2007
 08/05/2018,00:25
Çözüldü 
Birlik nizamiyesi ile ilgili basit bir ziyaret takip sistemi Accesste yaptım;
1'inci tablom ziyaret takip tablosu,
2'inci tablo sakıncalı personel tablosu,

formları oluşturdum ve kayıt yapmaya başladım ama giriş yaptığım her ziyaretçi için tekrar sakıncalı olup olmadığının sorgusunu yapmam gerekiyor, benim isteğin aynı form üzerinde giriş yaptığım kişiyle ilgili sorgu yapmak, yani sakıncalı olup olmadığını öğrenmek için formda 1 nci tabloda kayıt butonuna basınca, 2 nci tablodan araştırıp sakıncalı olup olmadığını bildirsin.

Nasıl yapabilirim şimdiden tüm AccessTr.neT çook teşekkürler. sevgi ve saygılarımla.



Kullanici Avatari

mehmetdemiral


ME.... DE....
 53
 4.912
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 11/10/2018,02:06
Çözüldü 
Bununla ilgili en iyi yöntem Dlookup yöntemidir. Formda bolca örneği mevcuttur.


ürün = Dlookup ("[maladi]", "[stokkart]", "[malkodu]='" & Me.kod & "'")
aranan Tablo tablo adı Tablodaki Formdaki kriter
veri hücresi Kriter


form üzerindeki “kod” kriteri sayı değerinden oluşuyorsa
ürün = Dlookup ("[maladi]", "[stokkart]", "[malkodu]= me!kod")


tablodan veri varmı diye aramak için ise

Eğer kodun kendini aratırsanız
If carikod = Dlookup ("[carikod]", "[carikart]", "[carikod]=forms![carikart]!carikod") Then
(formdaki) (tablodaki) ((tabloadı) (tablodaki) (formadı) (formdaki)

Eğer kod alanındaki kritere bakarak isim aratırsanız
If Müşteriadi = Dlookup ("[musteriadi]", "[carikart]", "[carikod]=forms![carikart]!carikod") Then
(Formdaki) (tablodaki) (tabloadı) (tablodaki) (formadı)(formdaki)



ÖRNEK KODLAMA:

If müşterikalıpno = Dlookup ("[müşterikalıpno]", "[kalıpreferans]", "[müşterikalıpno]=forms![KALIP EŞLEME]!müşterikalıpno") Then
MsgBox "Bu numaraya daha önce bir eşleme yaptınız", vbOKOnly, "MDSOFT PROFAL"
Undo
End If
Bu arada şunu belirteyim. Dünyanın hiçbir sitesinde soruyu sorduktan sonraki 4 dakika içinde böyle kapsamlı bir cevap alamazsınızImg-grin)))


İnadına, ille de Accesstr.net...

Kullanici Avatari

arif1971


AR.... ÇI....
 47
 78
 21
 28/02/2009
0
 Eskişehir
 TSK
 Ofis 2007
 08/05/2018,00:25
Çözüldü 
Birlik nizamiyesi ile ilgili basit bir ziyaret takip sistemi Accesste yaptım;
1'inci tablom ziyaret takip tablosu,
2'inci tablo sakıncalı personel tablosu,

formları oluşturdum ve kayıt yapmaya başladım ama giriş yaptığım her ziyaretçi için tekrar sakıncalı olup olmadığının sorgusunu yapmam gerekiyor, benim isteğin aynı form üzerinde giriş yaptığım kişiyle ilgili sorgu yapmak, yani sakıncalı olup olmadığını öğrenmek için formda 1 nci tabloda kayıt butonuna basınca, 2 nci tablodan araştırıp sakıncalı olup olmadığını bildirsin.

Bu konu ile ilgili sağolsun "mehmet demiral" anında hemen cevap verdi ve programıda yazdı fakat ben bir türlü kodu yazamadım.10806

omum bana vermiş olduğu kod şu şekilde;
ürün = Dlookup ("[maladi]", "[stokkart]", "[malkodu]='" & Me.kod & "'")
aranan Tablo tablo adı Tablodaki Formdaki kriter
veri hücresi Kriter


form üzerindeki “kod” kriteri sayı değerinden oluşuyorsa
ürün = Dlookup ("[maladi]", "[stokkart]", "[malkodu]= me!kod")


tablodan veri varmı diye aramak için ise

Eğer kodun kendini aratırsanız
If carikod = Dlookup ("[carikod]", "[carikart]", "[carikod]=forms![carikart]!carikod") Then
(formdaki) (tablodaki) ((tabloadı) (tablodaki) (formadı) (formdaki)

Eğer kod alanındaki kritere bakarak isim aratırsanız
If Müşteriadi = Dlookup ("[musteriadi]", "[carikart]", "[carikod]=forms![carikart]!carikod") Then
(Formdaki) (tablodaki) (tabloadı) (tablodaki) (formadı)(formdaki)



ÖRNEK KODLAMA:

If müşterikalıpno = Dlookup ("[müşterikalıpno]", "[kalıpreferans]", "[müşterikalıpno]=forms![KALIP EŞLEME]!müşterikalıpno") Then
MsgBox "Bu numaraya daha önce bir eşleme yaptınız", vbOKOnly, "MDSOFT PROFAL"
Undo
End If

Ama ben beceremedim, ben tekrar belirtmek istiyorum istedğim sakıncalı personel/kişi ismini bana "ziyaret" girişlerinde bildirsin.

Herkese selam çoook teşekkürler


Ek Dosyalar
.rar   ZİYARETÇİ TAKİP PROGRAMI1.rar(Dosya Boyutu: 152,96 KB / İndirme Sayısı: 281)

Kullanici Avatari

alpeki99


OL....
 38
 6.120
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 30/08/2018,18:18
Çözüldü 
Bu konuda zaten bir konu açmıştınız yeni bir konu açmaya neden ihtiyaç duydunuz? Üstelik forum duyuruları bölümüne açmışsınız.


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.

Kullanici Avatari

mehmetdemiral


ME.... DE....
 53
 4.912
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 11/10/2018,02:06
Çözüldü 
Sizin işinizde zaten bir sorgulama butonu konulmuş. Ben şöyle yaptım:

1- Öncelikle şöyle bir yanlışınız vardı. Girilen personeli AD, SOYAD diye kaydedip aranan sakıncalıları SOYAD, AD olarak aramaya çalışıyorsunuz. Sorguya koyduğunuz like komutu işi hep karıştırmış. Adamın adında bulunan tek harfde bile sakıncalı buluyor. Onu kaldırıp Sakıncalı personel girişini de AD SOYAD olarak yaptım. Siz de sakıncalı personel girişini AD SOYAD olarak yapı

2- Ziyaretçi kayıt formundaki ismi yazdıktan sonra SORGULA butonuna basarak sakıncalı sorgusu yapılabilir. Mantığı gördükten sonra gerisini de siz yaparsınız artık.


Ek Dosyalar
.rar   ZİYARETÇİ TAKİP_mdemiral.rar(Dosya Boyutu: 181,31 KB / İndirme Sayısı: 128)
İnadına, ille de Accesstr.net...

Kullanici Avatari

C*e*l*o*y*c*e


ME.... B.....
 46
 3.148
 66
 29/10/2008
982
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,12:30
Çözüldü 
Daha önceden bir arkadaş için Seruz hoca ve benim birlikte yaptığımız bir örnek var bunu kendine uyarla ,kolay gelsin


Ek Dosyalar
.rar   YASAKLI-Celoyce Cevap.rar(Dosya Boyutu: 19,95 KB / İndirme Sayısı: 99)
Celosoft Yazılım


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Satınalma Takip Yazılımı Hakkında DJ_CrAzY43 8 423 06/09/2018, 11:11
Son Yorum: PROSAN
Çözüldü Access 2013 44 Videoluk Cari Ve Stok Takip Programı kdemirparmak 5 197 22/08/2018, 19:23
Son Yorum: ogzcntrk
Çözüldü Eğitim Takip Programı mehmetdemir 20 7.583 16/08/2018, 21:59
Son Yorum: simendifer
Çözüldü Rendavu Takip Sistemi. fascioğlu 9 408 07/07/2018, 09:17
Son Yorum: ozanakkaya
Çözüldü Arama Bölümünde İsim,telefon Müşteri Numarası Aratmak ( Müşteri Takip Programı) oillamp 5 297 31/05/2018, 11:38
Son Yorum: oillamp

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444