ilginize teşekkür ederim. Bende şu şekilde çözdüm sorunu,
kod ekranına;


Private Sub cmbproje_AfterUpdate()
Me.cmbpoz.RowSource = " Select IDPoz, Poz_No, Proje_Adi From Pozlar Where Proje_Adi=" & Me.cmbproje
Me.cmbpoz.Requery
End Sub

Private Sub Form_Current()
Me.cmbpoz.RowSource = " Select IDPoz, Poz_No, Proje_Adi From Pozlar Where Proje_Adi=" & Me.cmbproje
Me.cmbpoz.Requery

End Sub

Kodlarını yazdım ve sorun çözüldü. Bir eğitim videosunda buldum bunu. çok yardımcı oldu, sizin ki gibi teşekkürler.