Private Sub BAuswaehlen_Click()

If LChargen > 0 Then
 Forms("FÜbernahme")!TCNR = LChargen
End If

DoCmd.Close

End Sub

Private Sub LChargen_DblClick(Cancel As Integer)

Forms("FÜbernahme")!TCNR = LChargen
DoCmd.Close

End Sub