Karşılaştırma...

[yasaramca]

Merhaba,

Benim bir sürekli formum var. Barcod okuyucudan veriyi okutarak.Bir texbox ile kayıt giriyorum.Yapmak istediğim. Barcod okuyucudan veri geldiğinde örnek: 00005 / 03 gibi bir bilgi gelecek. Bu gelen bilgiyi Query1 isimli sorgumdaki No kolonu ile karşılaştırmak istiyorum. Eğer Query1 'in içindeki No kolonunda yoksa uyarı versin var ise yeni kayıda geçsin İstiyorum. VBA kodu yazabilirmiyim acaba,

Teşekkürler,

 

[Taruz]

Merhaba..

Şu şekilde bir kod kümesi istediğinizi verir..

Dim barkod As String
barkod = DCount("no", "query1", "[no]=" & "'" & Me.textbox & "'")
If barkod > 0 Then
MsgBox "Bu koddan var.", , "yasaramca"
Me.Undo
End If

 

[TRUSA]

Merhaba Arkadaslar,

Yukaridaki soruya ilaveten birsey de ben sorabilirmiyim..

Dcount a birden fazla sorgu yaptirabilirmiyiz?

Mesela, Denetmen Adi colonunda, Denetmen tablosunda, Isimdeki kisi, ilk tarih ile son tarih araliginda kac tane var ?

Yukaridaki formul isime yaradi, eger bu formulude yapabilirsek tem super olacak..

yardimlariniz icin cok tesekkurler...

 

[modalı]

Merhaba Arkadaslar,

Yukaridaki soruya ilaveten birsey de ben sorabilirmiyim..

Dcount a birden fazla sorgu yaptirabilirmiyiz?

Mesela, Denetmen Adi colonunda, Denetmen tablosunda, Isimdeki kisi, ilk tarih ile son tarih araliginda kac tane var ?

Yukaridaki formul isime yaradi, eger bu formulude yapabilirsek tem super olacak..

yardimlariniz icin cok tesekkurler...

Sayın TRUSA

DCount("DenetmenAdi", "Denemen", "Tarih BETWEEN #" & IlkTarih & "# AND #" & SonTarih & "#")

Ancak burada dikkat edeceğiniz tarih formatları mm/dd/yyyy olmalı.

İyi çalışmalar

 

[TRUSA]

Sayin modali,

DCount("[Denetmen ADI SOYADI]", "[Ana Tablo]", "[Denetlenen Tarih] BETWEEN " & GetDateFilter(Me.Text102) And GetDateFilter(Me.Text104))

yukarida hata nerede ? Yardimci olabilirmisiniz ? Tesekkurler ?

Ana Tablo adli bir tablomuz var. Buradaki kolonlardan biri Denetmen Adi soyadi, bir digeride denetlenen Tarih. Yapamadigim su :
Combodan sectigim bir ismi ve verdigim tarih araliginda secilen isimin kac kez denetleme yaptigi...
Yardimlariniz icin tesekkurler..

 

[modalı]

Sayın TRUSA,

Bir yerden kopyaladınız cümleyi. GetDateFilter fonksiyonu ne iş yaptığını bilmemiz gerekiyor. Hem neden örnek eklemekten çekiniyorsunuz? Şimdiye kadar hal olmuştu sorun.

 

[TRUSA]

Merhaba Sayin modali,

Ornek eklemekten cekinmiyorum. Yaptigim isin boyutu yaklasik 18 gb. Compact yaptigim zaman yaklasik 10 gb a dusuyor. Boyutun cok fazla oldugunu dusunuyorum..
Fonksiyon konusunda haklisiniz. Aciklamam lazimdi.
GetDateFilter fonksiyonu ise tarihin formatini istediginiz mm/dd/yyyy formatina donusturuyor..Calismasinda sorun yok su an. Sadece istedigim tarihler arasi istedigim kisiyi saydiramiyorum..
Yardimlariniz ve ilginiz icin tesekkurler..

 

[TRUSA]

Merhabalar,

DCount("DenetmenAdi", "Denetmen", "Tarih BETWEEN #" & IlkTarih & "# AND #" & SonTarih & "#")

Istedigim tarih araligindaki datalari saydirabildim. Fakat yukaridaki formule birde isim ilave etmek icin ugrasiyorum iki gundur basaramadim.

Yardimlariniz icin tesekkurler..

 

[modalı]

Sayın TRUSA,

Örnek olmadan zor bu işler. Eğer denetmen adlarını sayacaksanız o zaman tek olan alanı saydırıp kriter için ise:

DCount("ID", "Denetmen", "DenetmenAdi='" & Me.adi & "' Tarih BETWEEN #" & IlkTarih & "# AND #" & SonTarih & "#")

kodunu deneyebilirsiniz.

İyi çalışmalar