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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

arif1971

Aktif Üye
Ar.... Çı....
 47
 21
 78
 28/02/2009
0
 Eskişehir
 TSK
 Ofis 2007
 14/01/2019,12:42
Çö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

Uzman
Me.... De....
 53
 218
 4.925
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 Dün,23:20
Çö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

Aktif Üye
Ar.... Çı....
 47
 21
 78
 28/02/2009
0
 Eskişehir
 TSK
 Ofis 2007
 14/01/2019,12:42
Çö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



Kullanici Avatari

alpeki99

Uzman
Ol....
 38
 162
 6.134
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 07/01/2019,22:57
Çö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

Uzman
Me.... De....
 53
 218
 4.925
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 Dün,23:20
Çö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.


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

Kullanici Avatari

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

Uzman
Me.... B.....
 46
 71
 3.180
 29/10/2008
983
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,18:44
Çözüldü 
Daha önceden bir arkadaş için Seruz hoca ve benim birlikte yaptığımız bir örnek var bunu kendine uyarla ,kolay gelsin




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Dlokkup Olmadan Alana Veri Çekmede Sorun. Oğuz Türkyılmaz 16 394 12/12/2018, 10:15
Son Yorum: Oğuz Türkyılmaz
Çözüldü Gebsıs Gelir-gider Takip Programı Fınal Yardım!!! IceMan7 6 282 09/12/2018, 21:54
Son Yorum: haliliyas
Çözüldü Kiracı Takip Programı Hk Yardım. turkayemre 2 125 06/12/2018, 11:06
Son Yorum: turkayemre
Çözüldü Rapor Kenar Boşluklarında Sorun alperalper 2 102 05/12/2018, 11:32
Son Yorum: ozanakkaya
Çözüldü Hasta takip ve randevu pupil 41 28.627 29/11/2018, 15:36
Son Yorum: Mazlumc

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