Guten Tag,

Ich habe folgendes Problem, ich habe ein PopUp Fenster erstellt, dies funktioniert auch. Aber ich bekomme in der Messagebox ganz unten im Listing einfach keine Zuweisung hin für die KdNr. Wenn die BestNr bereits vorhanden ist, soll er in der Messagebox die zu der BestNr zugehörige KdNr ausgeben.

Habe es schon mit rs("KdNr") versucht und auch mit der DLookUp-Funktion. Es ist bestimmt wieder ein kleiner Denkfehler, aber ich steh auf dem Schlauch.

Private Sub cmdOkay_Click()
'Err_Handler
    On Error GoTo Mldg
'Deklaration
    Dim strSQL As String
    Dim db As Database
    Dim rs As Recordset
    Dim strBestNr As String
    Dim intWahl As Integer
    Dim intWichtig As Integer
'Variablen mit Inhalt
    strBestNr = Me!KorrBestNr
'Fehlerabfangroutine 1
    If strBestNr = Forms!frmBestellungen.BestNr Then
        MsgBox "Sie verwenden bereits die BestNr: " & strBestNr
        Exit Sub
    End If
'Setzen der Verweise
    Set db = CurrentDb()
    strSQL = " SELECT tblBestellungen.BestNr FROM tblBestellungen WHERE BestNr = '" & strBestNr & "'"
    Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
'Fehlerabfangroutine 2
    If rs.RecordCount = 0 Then
        MsgBox "Okay", vbOKOnly, "Microsoft Office Access"
        Forms!frmBestellungen!BestNr = strBestNr
        Forms!frmBestellungen.Refresh
        Forms!PopFrmKorrBestNr.SetFocus
            DoCmd.Close
        Forms!frmBestellungen!KdNr.SetFocus
        Exit Sub
    Else
        MsgBox "Leider existiert die Nummer " & strBestNr & " bereits:" & vbCr & _
        "Für die KdNr: ", vbOKOnly, "Micrsoft Office Access"
        Exit Sub
    End If
    rs.Close
Mldg:
    MsgBox Err.Description
End Sub

Danke schon mal für die Hilfe.

Grüße