Farklı tablolardan mükerrer giriş kontrolü

1 2
28/02/2014, 17:00

fatihmx

Sn Puletin ;

ben 2 kriterli kontrol için denmiştim şu yolu denedim ,

Dim yakala As Integer

yakala = DCount("*", "MAMUL GİRİŞ TABLO", "[sıra no]= '" & Me.Sıra_no & "'" & "And [çıkan bobin]= '" & Me.çıkan_bobin & "'")
If yakala > 0 Then
MsgBox "Bu Bobin daha önce üretilmiştir."
Else
MsgBox "yok"
End If

data type mismatch in criteria expression Hatası aldım, Eksik soru sorduğum içinde ayrıca özür dilerim.
28/02/2014, 18:00

atoz112

merhaba,

Dcount ifadesi içerisinde yazmış olduğunuz
Alıntı:"And [çıkan bobin]=
satırındaki and ifadesini çıkartıp sadece [çıkan bobin]= olmasını sağladığınızda tip uyuşmazlığını düzeltmiş olursunuz.tablonuzdaki alan ismi çıkan bobin olsa gerek.bu sebeple hata veriyordur.

iyi çalışmalar.
saygılar.
28/02/2014, 18:18

fatihmx

And kaldırıncada şu hatayı veriyor. evet "MAMUL GİRİŞ TABLO" Alan çıkan bobin
28/02/2014, 18:51

atoz112

sayın fatihmx,

dcount fonksiyonunu iki kritere göre kullanmak istendiğinde aşağıdaki gibi bir kod kalıp ifadesi söz konusudur.buna göre deneyebilirisniz,isterseniz.


DCount("[Alanadi]", "Tabloadi", "[kriter1] = " & Forms![Formadi]![metinkutusu1] & " AND [kriter2] = '" & Forms![Formadi]![metinkutusu2] & "'")

iyi çalışmalar.
saygılar.
1 2