Thema Datum  Von Nutzer Rating
Antwort
Rot VBA SQL Abfrage mit Like Operator
03.02.2016 13:09:20 Tobias
Solved
03.02.2016 15:26:01 Tobias
NotSolved
03.02.2016 19:47:30 Tobias
NotSolved
22.09.2024 16:23:55 Gast57891
NotSolved
03.02.2016 20:17:38 Tobias
NotSolved
03.02.2016 20:21:58 Tobias
NotSolved
22.09.2024 08:54:02 Gast13951
NotSolved
22.09.2024 14:15:12 Gast67894
NotSolved
22.09.2024 15:11:08 Gast98102
NotSolved

Ansicht des Beitrags:
Von:
Tobias
Datum:
03.02.2016 13:09:20
Views:
1700
Rating: Antwort:
 Nein
Thema:
VBA SQL Abfrage mit Like Operator

Hallo Leute,

 

Ich sitze nun seit 2 Stunden an dieser Aufgabe und komme einfach nicht weiter.

Ich gehe auf Suchen und gebe mit einem Joker ein Eintrag ein, aber bekomme keine Rückmeldung.

Zudem soll die InputBox erneut aufgerufen werden, wenn ich auf Retry klicke. Was kann ich da machen?

Code ist:

Private Sub cmdSuchen_Click()
'ErrorHandler
    On Error GoTo Mldg
'Deklaration
    Dim strSQL As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strInput As String
    Dim IntI As Integer
    Dim intWahl As Integer
    Dim intAnz As Integer
    Dim strTxt1 As String
    Dim strTxt2 As String
    Dim strMsg As String
'InputBox mit Schleife
    strInput = InputBox("Geben Sie mit einen Sternchen * eingefassten" & vbCr & _
    "Suchbegriff ein.", "Suche mit Jokern", , 8000, 8000)
'Fehler Abfangroutine 1
    If strInput = "" Then Exit Sub
'Verweise
    Set db = CurrentDb
    strSQL = " SELECT * FROM tblMieter WHERE Bemerkung Like '" & strInput & "'"
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
'Fehler Abfangroutine 2
    If rs.RecordCount = 0 Then
       intWahl = MsgBox("Ihr Suchkriterium wurde nicht gefunden.", vbRetryCancel, "Microsoft Access")
    End If
    If intWahl = vbRetry Then
        
    Else
        SendKeys ("{esc}")
    End If
'Datensätze durchzählen
    rs.MoveLast
        intAnz = rs.RecordCount
    rs.MoveFirst
'Plural und Singular
    If intAnz = 1 Then
        strTxt1 = "Folgender Gast mit: " & strSQL & " wurde gefunden :" & vbCr & vbCr
    Else
        strTxt2 = "Folgende " & intAnz & " Gäste mit: " & strSQL & " wurden gefunden :" & vbCr & vbCr
    End If
'Schleife
    For IntI = 1 To intAnz
        strMsg = strMsg & "Name: " & rs("Vorname") & " " & rs("Nachname") & "," & " in " & rs("Ort") & " " & " TelNr: " & rs("TelNr") & vbCr
            rs.MoveNext
        Next IntI
        rs.Close
'MsgBox
    MsgBox strTxt1 & strTxt2 & strMsg, vbOKOnly + vbInformation, "Treffer:"
    Exit Sub
'ErrorHandler Sprungmarkierung
Mldg:
    MsgBox "Fehlermeldung: " & Err.Description & vbCr & vbCr & _
    "Fehlernummer: " & Err.Number
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
Rot VBA SQL Abfrage mit Like Operator
03.02.2016 13:09:20 Tobias
Solved
03.02.2016 15:26:01 Tobias
NotSolved
03.02.2016 19:47:30 Tobias
NotSolved
22.09.2024 16:23:55 Gast57891
NotSolved
03.02.2016 20:17:38 Tobias
NotSolved
03.02.2016 20:21:58 Tobias
NotSolved
22.09.2024 08:54:02 Gast13951
NotSolved
22.09.2024 14:15:12 Gast67894
NotSolved
22.09.2024 15:11:08 Gast98102
NotSolved