(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...