Sorgu bosken Dlookup fonksiyonu hata veriyor
#7
Adnan hocam ilgi ve alakaniz icin tesekkur ederim ama sorun devam ediyor...



  Alıntı
Bu mesajı beğenenler:
#8
ilgili yerleri formdan silerek aşağıdaki kodu ekleyin
Visual Basic
  1. Private Sub Sicil_Enter()
  2. Metin46 = DMax("sira", "S_PERSONEL_PUANTAJLAR")
  3. If Len(Metin46) > 0 Then Metin48 = DLookup("sicil", "S_PERSONEL_PUANTAJLAR", "sira = " & [Metin46] & " ")
  4. If Len(Metin48) > 0 Then Metin52 = DLookup("siralama", "S_PUANTAJ_KRITER", "Sicil = '" & [Metin48] & "' ") + 1
  5. End Sub
  6. '''''''''''
  7. Private Sub Form_Current()
  8. Dim ctlCombo As Control
  9. Set ctlCombo = Forms!F_PERSONEL_PUANTAJLAR!MesaiTanimi
  10. ctlCombo.Requery
  11. Me.PuantajlarListesi.Requery
  12. Metin46 = DMax("sira", "S_PERSONEL_PUANTAJLAR")
  13. If Len(Metin46) > 0 Then Metin48 = DLookup("sicil", "S_PERSONEL_PUANTAJLAR", "sira = " & [Metin46] & " ")
  14. If Len(Metin48) > 0 Then Metin52 = DLookup("siralama", "S_PUANTAJ_KRITER", "Sicil = '" & [Metin48] & "' ") + 1
  15. If Len(Metin52) > 0 Then Sicil = DLookup("sicil", "S_PUANTAJ_KRITER", "siralama = " & [Metin52] & " ")
  16. Tarih = DLast("tarih", "S_PERSONEL_PUANTAJLAR")
  17.  
  18. End Sub


Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#9
adnan hocam yukarda yazdiginiz kodda [metin6] var bu [metin46] mi olacak ?
pardon yeni mesajinizi simdi gordum....
pardon yeni mesajinizi simdi gordum....



  Alıntı
Bu mesajı beğenenler:
#10
hocam elinize saglik...



  Alıntı
Bu mesajı beğenenler:
#11
hocam elinize saglik...



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Alt Form Toplama Dsum Fonksiyonu osman06 6 396 27-11-2025, 16:31
Son Mesaj: osman06
  Nerde Hata Yapıyorum SBNS 3 353 21-10-2024, 20:38
Son Mesaj: halily
  [FORM] Dcount Hata Veriyor TheREDROSE 4 360 04-08-2024, 15:12
Son Mesaj: TheREDROSE
  Dlookup evren89 1 261 16-06-2024, 01:08
Son Mesaj: dsezgin
  [FONKSiYON] Fonksiyonda Hata zimbit 1 321 12-02-2024, 18:52
Son Mesaj: dsezgin
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 447 26-10-2023, 14:11
Son Mesaj: serdem48
  Dlookup Fonksiyonu bilservisci 1 344 08-09-2023, 15:36
Son Mesaj: dsezgin
  [SORGU] Sınıfa Kayıtlı Aktif öğrenci Sayısını Bulmak Dcount Fonksiyonu by_hayalci 2 465 24-08-2023, 08:38
Son Mesaj: by_hayalci

Foruma Git:


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