Ziyaret Takip Programında Sorun
Tarih
07/03/2009 12:36
Konu Sahibi
arif1971
Yorumlar
21
Okunma
6155
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
arif1971
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... Ç....
67
28/02/2009
0
Ofis 2007
14/02/2016,22:39
Çö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.
Cevapla

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.757
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
23/05/2017,21:19
Çözüldü 
Sponsor Reklam
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...
Cevapla

arif1971
Aktif Üye
Kullanici Avatari
Aktif Üye
A.... Ç....
67
28/02/2009
0
Ofis 2007
14/02/2016,22:39
Çö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ı: 255)
Cevapla

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.061
29/10/2008
Ordu
Ofis 2013 32 Bit
21/05/2017,22:21
Çözüldü 
Sponsor Reklam
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.
Cevapla

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.757
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
23/05/2017,21:19
Çö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ı: 124)
İnadına, ille de Accesstr.net...
Cevapla

C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.908
29/10/2008
916
Ankara
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
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ı: 93)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Araç Takip kayıt sorunu IceMan7 10 618 18/05/2017, 19:12 ozanakkaya
Çözüldü uye takip programı gorgulu75 8 1.997 27/04/2017, 11:51 Cem280
  Randevu Programında Kriterli Görünüm Sağlatmak kesoka 5 206 03/04/2017, 01:07 ozanakkaya
  Lisanslama Programında Hata hknct 8 174 16/03/2017, 11:04 hknct
  Teknik Servis Programında Barkod Sorunu maboc 14 288 03/02/2017, 01:03 mehmetdemiral


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status