(06/09/2011, 23:18)BlackEagle yazdı: Yapmanız gereken formunuzda yer alan VAKİT liste kutusunun satır kaynağını;

SELECT DISTINCT ANA.VAKİT, ANA.ÇEŞİT, ANA.TARİH FROM ANA WHERE (((ANA.ÇEŞİT)=[formlar]![KAYIT]![ÇEŞİT]) AND ((ANA.TARİH)=[Formlar]![KAYIT]![TARİH]));

olarak değiştirmek.

---

Pardon Mehmet hocam, sizin burada olduğunuzu fark etmedim. Bu ne hız yav. ))

Teşekkürler BlackEagle
tam aradığım kod , where den sonrasını bir türlü yazamamıştım
bu kodu veri güncellemek için kullandım

Private Sub Komut13_Click()

Dim GUNCELLE As String

GUNCELLE = "UPDATE OGRENCI_SABIT SET ADISOYADI=' " & ADISOYAD & " ',SINIF=' " & SINIFI & " ',OKULADI=' " & OKUL & " ' WHERE ((OGRENCI_SABIT.OKULNO)=[Formlar]![OGRENCI_GIRISI]![OKULNO]) "

DoCmd.RunSQL GUNCELLE

End Sub