Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kann mir jemand diesen Code erklären?
zurück: datum im formularkopf weiter: Fehlermeldung beim Versuch, eine DropDown-Liste zu erstellen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
N3rd
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Aug 2007, 09:36
Rufname:

Kann mir jemand diesen Code erklären? - Kann mir jemand diesen Code erklären?

Nach oben
       Version: Office 2003

Hallo,

ich habe das problem, dass ich diesen Code nicht verstehe. Ich habe ihn nicht selbst geschrieben, möchte aber dahinter kommen.
Grob verstehe ich ihn schon, aber die Methode Sort_lbx verstehe ich nicht.

Vielen Dank schon mal.
Code:
Const mcstrSQL As String = "SELECT * FROM abf_Auto "

Private Sub lblAutonr_Click()
    Sort_lbx "Autonr"
End Sub

Private Sub Sort_lbx(strFeld As String)
    Dim strSQL      As String
    Dim strORDERBY  As String
   
    strSQL = Me!lbxAutoliste.RowSource
    strORDERBY = "ORDER BY " & strFeld
    If InStr(strSQL, strFeld) And Not CBool(InStr(strSQL, "DESC")) Then
        strORDERBY = strORDERBY & " DESC"
    End If
    strSQL = mcstrSQL_Termin & strORDERBY
    Me!lbxAutoliste.RowSource = strSQL
End Sub
Gast



Verfasst am:
10. Aug 2007, 10:04
Rufname:

AW: Kann mir jemand diesen Code erklären? - AW: Kann mir jemand diesen Code erklären?

Nach oben
       Version: Office 2003

Code:
Const mcstrSQL As String = "SELECT * FROM abf_Auto " => Konstante, die ist immer da!
Code:
Private Sub lblAutonr_Click()
  Sort_lbx "Autonr"  '=> Aufruf der Function mit dem Sortierfeld
End Sub
Code:
Private Sub Sort_lbx(strFeld As String)
    Dim strSQL      As String
    Dim strORDERBY  As String
   
    strSQL = Me!lbxAutoliste.RowSource '=> Übernahme des SQL aus dem Feld lbxAutoliste
    strORDERBY = "ORDER BY " & strFeld '=> Zusammensetzung des Sortierschlüssels
    If InStr(strSQL, strFeld) And Not CBool(InStr(strSQL, "DESC")) Then '=> Prüfung ob DESC enthalten ist (absteigende Sortierung)
        strORDERBY = strORDERBY & " DESC" '=> Wenn DESC drin, dann auch hier in die OrderBy-Klausel
    End If
    strSQL = mcstrSQL_Termin & strORDERBY '=> Ersetzen des bisherigen SQL-Inhalts mit dem der Konstanten s.o. und dem Sortierstring
    Me!lbxAutoliste.RowSource = strSQL '=> Dem Feld lbxAutoliste wird die neu gebaute Datenherkunft zugewiesen
End Sub

Gruss Stefan
N3rd
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Aug 2007, 10:08
Rufname:


AW: Kann mir jemand diesen Code erklären? - AW: Kann mir jemand diesen Code erklären?

Nach oben
       Version: Office 2003

ok, vielen Dank
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 Tabellen & Abfragen: VBA Code per VBA in Access dokumentieren 3 LapDoggy 1910 12. Feb 2010, 20:13
Gast VBA Code per VBA in Access dokumentieren
Keine neuen Beiträge Access Tabellen & Abfragen: Ergebnis aus SQL Abfrage Variable zuweisen (Code vorhanden) 2 KillyvsCibo 1393 18. Aug 2009, 12:37
KillyvsCibo Ergebnis aus SQL Abfrage Variable zuweisen (Code vorhanden)
Keine neuen Beiträge Access Tabellen & Abfragen: Warum ändert Access den sql code? 12 abraxa 705 19. Jul 2009, 20:55
abraxa Warum ändert Access den sql code?
Keine neuen Beiträge Access Tabellen & Abfragen: Darstellungsart "Kontrollkästchen" per Code setzen 3 fragerer 286 13. März 2009, 16:32
Gast Darstellungsart "Kontrollkästchen" per Code setzen
Keine neuen Beiträge Access Tabellen & Abfragen: Primärschlüssel per Code setzen 1 Herbert2 478 11. Jan 2009, 03:38
ich0 Primärschlüssel per Code setzen
Keine neuen Beiträge Access Tabellen & Abfragen: VBA Code zum löschen leerer Datensätze 2 adamth 1125 31. Jul 2008, 20:44
adamth VBA Code zum löschen leerer Datensätze
Keine neuen Beiträge Access Tabellen & Abfragen: schnelle komplexe Abfrage per Code? 4 SaschaR 587 25. März 2008, 15:57
SaschaR schnelle komplexe Abfrage per Code?
Keine neuen Beiträge Access Tabellen & Abfragen: ACCESS Splash - INSERT INTO Abfrage Code 0 Joppel 698 21. Dez 2006, 21:38
Joppel ACCESS Splash - INSERT INTO Abfrage Code
Keine neuen Beiträge Access Formulare: VBA Code 7 kiter 789 16. Okt 2006, 12:36
jens05 VBA Code
Keine neuen Beiträge Access Formulare: Textfelder per Code füllen. Formular hüpft wegen Focus .. 2 florenziger 1190 06. Okt 2006, 08:46
Gast Textfelder per Code füllen. Formular hüpft wegen Focus ..
Keine neuen Beiträge Access Formulare: Registersteuerelement + Code MouseMove 0 Borschtel 588 29. Sep 2006, 11:12
Borschtel Registersteuerelement + Code MouseMove
Keine neuen Beiträge Access Formulare: CODE für [Forms]![zurzeit offenes Formular]![ID] 2 Mar307 806 23. Mai 2006, 10:27
Mar307 CODE für [Forms]![zurzeit offenes Formular]![ID]
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA