A.S.C Filtre, Grafik ve Raporlama Eklentisi

Dlookup Fonksiyonuna Degisken Kullanimi
#1
merhaba arkadaşlar, işlevin içinde mi bir diziliş veya yazım hatası var çözemedim, bi bakabilir misiniz? bu şekilde işlev görmüyor, lakin değişken yerine sabit değerleri yazınca çalışıyor, dosya ekte. dosyada "GIRIS" adlı form ile işlem yapıyorum sadece ona bakarsanız yeterlidir, teşekkürler.
Dim x As String
Dim y As String
Dim z As String

x = "kisi_kodu"
y = "KISILER"
z = [Forms]![GIRIS]![giris_kodu]


bakStrng = Dlookup (x, y, [x = z])

If bakStrng = z Then

MsgBox "bu kayıt mevcut"


Eklenti Dosyaları
.zip   EGTMSADErevize.zip (Boyut: 586,94 KB / İndirilme: 2)



  Alıntı
Bu mesajı beğenenler:
#2
sn tarkanay
DLookup ifadenizde  yazım hatası var;
Şöyleki;
Visual Basic
  1. a = DLookup("kisi_kodu", "KISILER", "kisi_kodu = '" & [Forms]![GIRIS]![giris_kodu] & "'")



yazdığınızda sonucu verecektir. Değişkenlere uygulamaya gelince, Şöyle bir düzenleme yapmanız gerekir.

Visual Basic
  1. Option Compare Database
  2. Option Explicit
  3.  
  4. Private Sub Komut4_Click()
  5. Dim x As String
  6. Dim y As String
  7. Dim z As String
  8. Dim t As String
  9. Dim bakStrng As String
  10.  
  11. x = "kisi_kodu"
  12. t = "kisi_kodu = '"
  13. y = "KISILER"
  14. z = "' & [Forms]![GIRIS]![giris_kodu] & '"
  15.  
  16. bakStrng = Nz(DLookup(x, y, t & z & "'"))
  17.  
  18.    If bakStrng <> "" Then
  19.        MsgBox "bu kayıt mevcut"
  20.    Else
  21.        MsgBox "bu kayıt mevcut DEĞİL!..."
  22.    End If
  23.  
  24. End Sub



Değişken kullanımlarında imla kuralları (syntax = yazım düzeni) çok önemlidir. Tek bir nokta eksikliği sizi bayağı uğraştırabilir.



  Alıntı
Bu mesajı beğenenler:
#3
samimiyetle çok  teşekkür ediyorum, bir haftadır buna çözüm arıyordum, internetin altını üstüne getirdim, yetmedi yabancı sitelere "please can you help me, i want to use variables  for this function but it doesn t work, ı want to cry! " dedim duymadılar, en sonunda yardımıma koştunuz tekrar tekrar çok teşekkür ederim, sağolun varolun, işiniz rast gele her daim.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Sql Içinde Değişken Kullanımı Ile "desteklenmeyen Join Ifadesi" Hatası tarkanay 7 76 7 saat önce
Son Mesaj: tarkanay
  Dlookup Sonraki Kayıt gunalp26 5 193 08-09-2020, 08:00
Son Mesaj: alperalper
  [SORGU] Koşullu Sorguda ııf Ile ın() Veya Not ın () Kullanımı Birleşik Giriş Kut. çalıştırma sarsak 8 254 14-08-2020, 15:22
Son Mesaj: sarsak
  [SORGU] Sorgu Da ölçüt Kullanımı fukufat 5 158 07-08-2020, 08:39
Son Mesaj: fukufat
  [FONKSiYON] Dlookup La Veri çekecem Hata Yapıyorum footprinting 4 199 22-07-2020, 14:08
Son Mesaj: feraz
  [SORGU] Sorguda Döngü Kullanımı askme_16 4 192 29-06-2020, 10:45
Son Mesaj: askme_16
  Dlookup Fonksiyonu Hücre Bağlama Sorunu ecmetin 8 287 04-06-2020, 15:58
Son Mesaj: celalll
  [VBA] Değişken Atama Yöntemi Gencerx 5 189 25-05-2020, 16:59
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi