arkadaşlar kusura bakmayın böyle basit örneği çok olan bi çözüm için sizi meşgul edeceğim, çözümü çok uyarlıyorum ama çalışmıyor bi bakar mısınız bu kodda bir sorun mu var acaba, acilen saat 4 olmadan lazım
Private Sub Komut25_Click()
If Dlookup ("[son_test]", "SUREC", " [Forms]![KISILER Sorgu]![kisi_id] ") < 1 Then

MsgBox "ilk test tamam"
Else

End If


End Sub

Dlookup kodundaki amaç nedir. Ölçütteki

kisi_id, 1den büyük olan kayıtlar mı listelenecek

Kriter kisminiz eksik. Hangi alan Formdaki kişiide esit?

(08/09/2020, 15:36)tarkanaykın yazdı: arkadaşlar kusura bakmayın böyle basit örneği çok olan bi çözüm için sizi meşgul edeceğim, çözümü çok uyarlıyorum ama çalışmıyor bi bakar mısınız bu kodda bir sorun mu var acaba, acilen saat 4 olmadan lazım
Private Sub Komut25_Click()
If Dlookup ("[son_test]", "SUREC", " [Forms]![KISILER Sorgu]![kisi_id] ") < 1 Then

MsgBox "ilk test tamam"
Else

End If


End Sub

 tekrar değiştirdim bu haliyle yine olmaduı

---

(08/09/2020, 15:45)tarkanaykın yazdı:

(08/09/2020, 15:36)tarkanaykın yazdı: arkadaşlar kusura bakmayın böyle basit örneği çok olan bi çözüm için sizi meşgul edeceğim, çözümü çok uyarlıyorum ama çalışmıyor bi bakar mısınız bu kodda bir sorun mu var acaba, acilen saat 4 olmadan lazım
Private Sub Komut25_Click()
If Dlookup ("[son_test]", "SUREC", " [Forms]![KISILER Sorgu]![kisi_id] ") < 1 Then

MsgBox "ilk test tamam"
Else

End If


End Sub

SUREC tablosunda son_test adlı alana   puan eklemem gerekiyor ama kişi_id si  3  olan (formdan alıyorum zaten bu 3 referansını)  kaydın alanına...

SUREC tablosunda son_test adlı alana puan eklemem gerekiyor ama kişi_id si 3 olan (formdan alıyorum zaten bu 3 referansını) kaydın alanına...

mesajınızı yazarken biraz daha dikkatli olabilr misiniz? her şey bir birine girmiş.