19 lines
232 B
Plaintext
19 lines
232 B
Plaintext
|
|
|
|
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
|