Option Compare Database
Option Explicit
 
Private Sub cmdAbbrechen_Click()
DoCmd.Close
End Sub
 
Private Sub form_load()
    DoCmd.MoveSize 7000, 10500
    Me.KorrBestNr = Forms!frmBestellungen!Artikelbestellungen!BestNr
End Sub
 
Private Sub cmdOK_Click()
 
Forms!frmBestellungen!BestNr = Me!KorrBestNr
 
    DoCmd.Close
        Forms!frmBestellungen!Artikelbestellungen.SetFocus
        Forms!frmBestellungen!KdNr.SetFocus
End Sub

Private Sub cmdOkay_Click()
 
     Forms!frmBestellungen!BestNr = Me!KorrBestNr
     Forms!PopFrmKorrBestNr.SetFocus
       DoCmd.RunCommand acCmdSaveRecord
        Forms!PopFrmKorrBestNr.SetFocus
        DoCmd.Close
 
    Forms!frmBestellungen!KdNr.SetFocus
End Sub