Thema Datum  Von Nutzer Rating
Antwort
24.02.2016 12:08:33 Tobias
NotSolved
Blau PopUp Fenster: Zuweisung eines Wertes
 25.02.2016 09:42:07 Tobias
Solved

Ansicht des Beitrags:
Von:
Tobias		 Datum:
25.02.2016 09:42:07		 Views:
556		 Rating:
     
Antwort:
 Nein
Thema:
PopUp Fenster: Zuweisung eines Wertes

Ich habe es selber hinbekommen, hier einmal die Lösung:

Private Sub cmdOkay_Click()
'Error_Handler
    On Error GoTo Mldg
'Deklarieren der Variablen
    Dim strSQL As String
    Dim intAnzahl As Integer
    Dim db As Database
    Dim rs As Recordset
    Dim strBestNr As String
    Dim intI As Integer
    Dim strMsg As String
'Variablen mit Inhalt
    strBestNr = Forms!PopFrmKorrBestNr!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 * FROM tblBestellungen WHERE BestNr = '" & strBestNr & "'"
    Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
'Fehlerabfangroutine 2
    If rs.RecordCount = 0 Then
        MsgBox "Okay", vbOKOnly
        Forms!frmBestellungen!BestNr = strBestNr
        Forms!frmBestellungen.Refresh
        Forms!PopFrmKorrBestNr.SetFocus
            DoCmd.Close
        Forms!frmBestellungen!KdNr.SetFocus
        Exit Sub
    End If
'Anzahl der Datensätze
        intAnzahl = rs.RecordCount
'Schleife
    For intI = 1 To intAnzahl
        strMsg = "Leider existiert die Nummer " & strBestNr & " bereits:" & vbCr & _
        "Für die KdNr: " & rs!KdNr
    Next
    rs.Close
'MsgBox
    If intI >= 1 Then
         MsgBox strMsg, vbOKOnly
        Exit Sub
    End If
'Mldg
Mldg:
    MsgBox Err.Description
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.02.2016 12:08:33 Tobias
NotSolved
Blau PopUp Fenster: Zuweisung eines Wertes
 25.02.2016 09:42:07 Tobias
Solved