Private Sub listefirma_DblClick(Cancel As Integer)
On Error GoTo ListefirmaHata
If IsNull(Me.txtsecim) Or Me.txtsecim = 0 Then
Me.txtsecim = 1
Else
Me.txtsecim = Me.txtsecim + 1
End If
Forms![frm_malzemeler]![Me.listefirma.Column(2)] = Forms![frm_malzemeler]![frm_ihtiyac].Form![Me("txtf" & txtsecim)]
'Me("txtf" & txtsecim) = Forms![frm_malzemeler]![Me.listefirma.Column(2)]
ListefirmaCikis:
Exit Sub
ListefirmaHata:
MsgBox ("Firma Seçimleri Tamamlandı")