(25/11/2016, 09:05)raburabu yazdı: Merhaba Ozanakkaya hocam. Süpersiniz. Muhteşem elinize sağlık . FİRMASEÇ formu açıldığında aradığımız firmayı listeden süzüyor. bulunan firmayı seçip ENTER basınca da gönderebilirmiyiz.
liste kutusunun "Tuşa Basılırken" olayına aşağıraku kodu ekleyerek deneyiniz.
Private Sub Liste_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If GeciciFormAdi = "Fatura" Then
Forms(GeciciFormAdi)![vade] = Liste.Column(4)
End If
Forms(GeciciFormAdi).[CARIID] = Liste.Column(0)
Forms(GeciciFormAdi).[FİRMAADI] = Liste.Column(1)
DoCmd.Close acForm, "FİRMASEÇ"
KeyCode = 0
End If
End Sub