İnteger özellikli alanda arama

[takoo]

SID1 = Me.[adı].Value
SID2 = Me.[soyadı].Value
SID3 = Me.[birimi].Value
stLinkCriteria1 = "[adı]=" & "'" & SID1 & "'"
stLinkCriteria2 = "[soyadı]=" & "'" & SID2 & "'"
stLinkCriteria3 = "[birimi] =" & "'" & SID3 & "'"
If DCount("[adı]", "kişiler", stLinkCriteria1) > 0 And DCount("[soyadı]", "kişiler", stLinkCriteria2) > 0 And DCount("[birimi]", "kişiler", stLinkCriteria3) > 0 Then
merhaba arkadaşlar yine ben.sorunun çözümü çok basit ama bilgi eksikliği işte neyaparsın..kırmızı olan yerler tablo ve formumdaki "sayısal" alanları temsil ediyor.kod hep şu ilk kırmızı yazıda durup hata veriyor.type mismatch hatası..e tabiki haklı .bu tırnak olayıyla ilgili bir şey heralde.program bu bölümleri text olarak algılıyor.oysa bu alanlar sayı türü. bi bakar mısınız size zahmet(bu arada ben bloğun en başında hangisinin string hangisinin integer olduğu tanımlamasını yaptım)

 

[modalı]

Sayın takoo,

Bu konuyla ilgili geniş açıklama olması gerekiyor hatırladığım kadarıyla.

Şimdi gelelim çabuk çözüme:

stLinkCriteria3 = "[birimi] =" & "'" & SID3 & "'"

stLinkCriteria3 = "[birimi] =" & SID3

olarak değiştirin.

iyi çalışmalar

 

[takoo]

sayın modalı ilginize teşekkür ederim, ama benim şu orta çağdan kalma kılıklı program yine aynı hatayı veriyor.dosyayı ekledim rica etsem bi bakar mısınız.sizi de çok meşkul ettim kusura bakmayın.

 

[modalı]

Sayın takoo,
stLinkCriteria değişken türü metin olmalı. Tam sayı olan SID3,

Dim stLinkCriteria1, stLinkCriteria2, stLinkCriteria3 As String

İyi çalışmalar

 

[takoo]

sayın modalı sayenizde bu sorunu da halledip programı hemen hemen kullanıma hazır hale getirebildim,sizlere çok teşekkür ederim. de anlamadığım bi nokta saYI sayı türü bir alanı metin özelliği taşıması gereken (stLinkCriteria) bir alana atamak...kafam almadı.neyse çok teşekkür ederim.bi kaldı sorgu sonucunu aldığım formda " birimi" adlı alanı sayı görünümünden kurtarıp o sayıyı temsil eden birim ismine çevirmek.iyi çalışmalar diliyorum