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
|