(16/12/2016, 13:25)atoz112 yazdı: sayın okumas,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.

Teşekkür ederim sorunum çözülmüştür. Elinize sağlık. 

Private Sub Yeni_Kayıt_Ekle_Click()

'Bu yeni kayıt ekle butonuna basınca yeni kayıt butonunu gizler

DoCmd.GoToRecord , , acNewRec 'Yeni kayıt oluşturan kod

If Yeni_Kayıt_Ekle.Visible = True Then

Me.Açılan_Kutu41.SetFocus

Me.Yeni_Kayıt_Ekle.Visible = False

End If



End Sub