Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem mit Recordset
zurück: Tabellen- und Datenbankdynamik weiter: Schlüsselverletzung / INSERT INTO Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Bomber35
Neuling


Verfasst am:
04. Okt 2005, 12:34
Rufname:

Problem mit Recordset - Problem mit Recordset

Nach oben
       

Servus.
Ich hab ein kleines Problemchen. Mit dem unten angegebenen SQL-Befehl will ich mir eine Summe von Stunden verschiedener "Projekte" anzeigen lassen und diese Summe in eine Variable speichern. So wie der Quelltext unten steht, funktioniert er nicht. (Nicht von der großen SQL-Abfrage abschrecken lassen.) Die SQL Abfrage funktioniert. ich kann mir nämlich die Summe in einem Listfeld anzeigen lassen (Was ich aber eigentlich nicht will;-)).
Code:
    Dim strSQL As String
    Dim abteil As String
    Dim jahr As String
    Dim kw As String
    Dim test As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
   
    Set db = CurrentDb()
    abteil = abteil_feld.Value
    jahr = kombi_repjahr.Value
    kw = kombi_rep_kw.Value
    strSQL = "SELECT SUM(rechnung.betrag) " & _
               "FROM rechnung"
              "WHERE jahr.jahreszahl= " & jahr & _
               " AND GCC.GCC_Name='" & abteil & "' " & _
                "AND os_daten.KWoche= " & kw & _
               " AND technologie.technologie='Technologie-Name';"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    test = rs!betrag
    MsgBox test
Ich hoffe jemand blickt durch. Wie gesagt. Der SQL-Befehl funktioniert. Es geht mir nur darum, wie kann ich diese Summe in einer Variable abspeichern.
Vielen Dank schonmal im vorraus.
jens05
Moderator


Verfasst am:
04. Okt 2005, 13:08
Rufname:
Wohnort: ~~~~~

AW: Problem mit Recordset - AW: Problem mit Recordset

Nach oben
       

Hallo,
wenn du dir im Listenfeld die Spaltenüberschriften anzeigen lässt, wirst du sehen, das der Spaltenname nicht "Beitrag" sondern EXPR1000 oder ähnlich lautet ;)
mit der Verwendung von Aliasnamen sollte es gehen.
Code:
    Dim strSQL As String
    Dim abteil As String
    Dim jahr As String
    Dim kw As String
    Dim test As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
   
    Set db = CurrentDb()
    abteil = Me!abteil_feld
    jahr = Me!kombi_repjahr
    kw = Me!kombi_rep_kw
    strSQL = "SELECT SUM(rechnung.betrag) AS SUMBeitrag " & _
               "FROM rechnung" & _
              "WHERE jahr.jahreszahl= " & jahr & _
               " AND GCC.GCC_Name='" & abteil & "' " & _
                "AND os_daten.KWoche= " & kw & _
               " AND technologie.technologie='Technologie-Name';"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    test = rs!SUMBeitrag
    MsgBox test

_________________
mfg jens05 Wink
Bomber35
Neuling


Verfasst am:
04. Okt 2005, 13:35
Rufname:


AW: Problem mit Recordset - AW: Problem mit Recordset

Nach oben
       

Super!!!
Es funktioniert. Vielen Dank für die schnelle Hilfe....
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Formulare: endlosformular mit recordset füllen 0 Gast 717 08. Apr 2011, 20:22
Gast endlosformular mit recordset füllen
Keine neuen Beiträge Access Tabellen & Abfragen: NULL-Wert-Vergleich mit Recordset Count 10 Binichio 836 03. Dez 2010, 11:41
MissPh! NULL-Wert-Vergleich mit Recordset Count
Keine neuen Beiträge Access Formulare: Recordset Programmierproblem 2 Tom_hh 306 09. Sep 2009, 06:26
Willi Wipp Recordset Programmierproblem
Keine neuen Beiträge Access Formulare: Public Recordset -> Code haut nicht hin 4 FrankHerrlich 423 05. Feb 2009, 14:03
Frank<THE>Tank Public Recordset -> Code haut nicht hin
Keine neuen Beiträge Access Tabellen & Abfragen: Recordset - Felder ansprechen 4 berton 1856 27. Jul 2008, 20:25
berton Recordset - Felder ansprechen
Keine neuen Beiträge Access Formulare: Verbindung mehrerer Unterformulare, Recordset 0 MeineKleineWolke 617 03. Jan 2008, 13:26
MeineKleineWolke Verbindung mehrerer Unterformulare, Recordset
Keine neuen Beiträge Access Formulare: Listview mit Recordset befüllen 1 rollox 1559 23. Nov 2007, 14:52
rollox Listview mit Recordset befüllen
Keine neuen Beiträge Access Berichte: ADO Recordset an einen Bericht binden? 9 Mario Kobolla 6306 31. Aug 2007, 14:05
Daniel_star_asGuest ADO Recordset an einen Bericht binden?
Keine neuen Beiträge Access Formulare: Wert in Tabelle nur mit Recordset ändern möglich? 3 Steffen11 715 23. Jul 2007, 23:36
Nouba Wert in Tabelle nur mit Recordset ändern möglich?
Keine neuen Beiträge Access Formulare: Recordset für alle aktuell im Formular geladenen Datensätze. 5 tubi 5209 26. März 2007, 20:02
Nouba Recordset für alle aktuell im Formular geladenen Datensätze.
Keine neuen Beiträge Access Formulare: Recordset in textfeld 4 leolo 846 30. Dez 2006, 22:17
leolo Recordset in textfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit RecordSet; Bedingung über Datum 1 jukko 1141 14. Sep 2006, 15:07
jukko Abfrage mit RecordSet; Bedingung über Datum
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps