Hallo zusammen,
Ich habe leider ein Problem und zwar sitzte ich an einer Programmieraufgabe und komme nicht weiter. Ich soll über VBA eine Prozedur schreiben die mir nach Eingabe des Ferienhauses oder auch des Anfangsbuchstabens die Summe des Mietpreises aller Belegungen ausgibt. Bisher hab ich dafür folgenden Code geschrieben.
Wenn ich eine Namen eingebe der nicht in der Datenbank steht ist alles Ok. Sobald ich aber den Namen eines bestehenden Hauses eingebe bekomme ich in der Zeile
einen Laufzeitfehler 3265 angezeigt: Ein Objekt, das dem angeforderten Namen oder dem Ordinalverweis entspricht, kann nicht gefunden werden.
Ich weis leider nicht wo da der Fehler sein soll und steh voll auf dem Schlauch. Ich hoffe Ihr könnt mir helfen.
Danke schon mal im Vorraus
Gruß
Sebastian
Ich habe leider ein Problem und zwar sitzte ich an einer Programmieraufgabe und komme nicht weiter. Ich soll über VBA eine Prozedur schreiben die mir nach Eingabe des Ferienhauses oder auch des Anfangsbuchstabens die Summe des Mietpreises aller Belegungen ausgibt. Bisher hab ich dafür folgenden Code geschrieben.
Visual Basic-Quellcode
- Dim rs As New ADODB.Recordset
- Dim strSql As String
- Dim strFerienhaus As String
- Dim strMeldung As String
- strFerienhaus = InputBox("Geben Sie den Namen oder den ersten Buchstaben des Ferienhaus ein.")
- strSql = "SELECT Sum(Mietpreis) AS Gesamt" _
- & " FROM Belegung" _
- & " WHERE Ferienhaus Like '" & strFerienhaus & "%'" _
- & " GROUP BY Ferienhaus;"
- rs.Open strSql, CurrentProject.Connection, _
- adOpenForwardOnly, adLockOptimistic
- With rs
- If Not .BOF Then
- While Not .EOF
- strMeldung = strMeldung & "Haus " & .Fields("Ferienhaus") & ":" _
- & " " & .Fields("Gesamt") & "€" & vbCrLf
- .MoveNext
- Wend
- Else
- strMeldung = "Es wurde kein Ferienhaus mit dem Namen: " _
- & strFerienhaus & " gefunden."
- End If
- .Close
- End With
- Set rs = Nothing
- MsgBox strMeldung, vbInformation
- End Sub
Wenn ich eine Namen eingebe der nicht in der Datenbank steht ist alles Ok. Sobald ich aber den Namen eines bestehenden Hauses eingebe bekomme ich in der Zeile
Ich weis leider nicht wo da der Fehler sein soll und steh voll auf dem Schlauch. Ich hoffe Ihr könnt mir helfen.
Danke schon mal im Vorraus
Gruß
Sebastian