requery ve kayıt sorunu

Sevgili arkadaşlar,

Forumda bulduğum konularla maalesef çözüme ulaşamadım.
Ekte sizlerinde desteğiyle hazırlamaya çalıştığım bir program var. URETIM_KONTROL1 formunda fiş no dan veri çağrılınca ilgili veri geliyor fakat en üste gidiyor. Üretim fişi açılan kutudan seçildikten sonra form sayfasında belki binlerce veri olacak ve en başa gitmesi sıkıntı yaratacak kullanıcı için. Fiş no seçilince ilgili satıra ait teslim tarihi alanına direk gitmesini istiyorum. Birde üretim no alanında mükerrer alan var ise kayıt hatası veriyor (orjinalinde)... Burada bir uyarı iletisi ile tekrar seçim yapılmasını istiyorum. Birde dosya küçülsün diye bazı alanları ve formları sildim. Orjinal program çok daha büyük ve logo tigerla bağlantılı...
Yardımcı olursanız sevinirim. Şimdiden teşekkürler...

Açılan Kutunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştir.

Private Sub Açılan_Kutu57_AfterUpdate()

Me.Form.Requery

Me.TESLIM_TARIHI.SetFocus

End Sub

Ayrıca tabloya 30.000 boş kayıt ekleyerek gereksiz yere 2 Mb boyutunda örnek eklemenize gerek yoktu.

Sn. Ozan Bey,
Bende dosya niye bu kadar büyük boyutlu diyordum... Özür dilerim... Ama sabahtan beridir çzüm bulmaya çalışıyorum... Beynim sulandı artık... 30000 boş kaydı sildim. Ama anlatmak istediğimi anlatamadım herhalde... Uretim no alanı seçildikten sonra ilgili satıradaki teslim tarihine gitmesini istiyorum... En baştaki teslim tarihine değil.. İlginiz ve yardımlarınız için teşekkürler... Hatalarımızı lütfen mazur görünüz... Ektentiyi güncelledim.

2128'i seçtiğinde güncellenen listedeki 2128 olan satır ilgili satırdır. Siz hangi satıra gitmesini istiyorsunuz ? Mesela 2122'yi seçtiniz dolu satırın bir altındaki Tarih yazan ve üretim no alanı boş olan satıra mı gitmesini istiyorsunuz? Bunu istiyorsanız

Private Sub Açılan_Kutu57_AfterUpdate()

Me.Form.Requery

DoCmd.GoToRecord , , acNewRec

Me.TESLIM_TARIHI.SetFocus

End Sub

yazın.

Teşekkür ederim... Bu da işimi görür.... Burda yeni kaydın yani boş satırın teslim tarihi alanına gidiyor. Ben hangi satırda seçildiyse o satıra ait teslim tarihi alanına gitmesini istiyordum... Teşekkürler ilginiz için

Private Sub URETIM_NO_AfterUpdate()
Me.Form.Requery
DoCmd.GoToRecord , , acLast
Me.TESLIM_TARIHI.SetFocus
End Sub

Koduyla çözdüm... Teşekkürler herkese