Private Sub txtFirmaUnvan_AfterUpdate()   'açılır kutu güncellendikten sonra olayını tanımlıyor

Me.txtFirmaKodu = txtFirmaUnvan.Column(1)

Me.txtYetkiliKisi = txtFirmaUnvan.Column(3)

Me.txtE_Mail = txtFirmaUnvan.Column(4)

Me.txtTelefonNo = txtFirmaUnvan.Column(5)

Me.txtCepNo = txtFirmaUnvan.Column(6)

End Sub

yukardaki kodu dener misiniz