Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Formular - Abfrage von datensätzen
zurück: Ausblenden des Neuen Datensatzes. weiter: Listenfeld aus mehreren Tabellen zusammensetzen 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
chiller
Gast


Verfasst am:
02. Aug 2005, 08:45
Rufname:

Formular - Abfrage von datensätzen - Formular - Abfrage von datensätzen

Nach oben
       

hey leute.
vorweg erstmal ich habe access 2000.

ich soll ein abfrage formular für meinen chef krieren. es sollen über eine suchmaske im formular nach bestimmten werten in der tabelle gesucht werden und diese dann wenn ich auf "prewiew" klicke in dem listen feld angezeigt werden!

bisher klappte das auch da er nur nach dem datum suchen wollte. jetzt will er nach mehreren faktoren suchen!datum,jahr,blz,betrag,... ich komme damit aber nicht so zurecht?!

hier mal erst ein screenshoot von dem formular:
[img]http://cybton.com/coolx/1200kb/index.php?seite=upload&datei=view&file=file1228065417.jpeg[/img]

die abfragen:
qry_test:
Code:
SELECT [SE_LFDNUM] AS ka, [SE_SCHECK] AS Schenknummer,
       [SE_KONTO] AS Kontonummer, [SE_BETRAG] AS Betrag,
       [SE_BLZ] AS Bankleitzahl, [SE_VALUTA] AS Valuta,
       [FW_NUMMER] AS Währung, [SE_ARCHIV] AS Archiv
FROM   AR
WHERE  year([SE_ARCHIV]) Between cbx_year1.value
                             And cbx_year2.value;
qry_test2:
Code:
SELECT [SE_LFDNUM] AS ka, [SE_SCHECK] AS Schenknummer,
       [SE_KONTO] AS Kontonummer, [SE_BETRAG] AS Betrag,
       [SE_BLZ] AS Bankleitzahl, [SE_VALUTA] AS Valuta,
       [FW_NUMMER] AS Währung, [SE_ARCHIV] AS Archiv
FROM   AR
WHERE  [SE_KONTO] Like cbx_kontonr.value;
und zum schluss noch der vba quell-text:
Code:
Option Compare Database
Option Explicit

Public Sub Delay(nSekunden As Long)             'Modul - Delay
    Dim TimeOut As Long
   
    TimeOut = (GetTickCount / 1000) + nSekunden
    Do
        DoEvents
    Loop Until TimeOut < (GetTickCount / 1000)
End Sub

Private Sub cmd_clear_Click()
'cmd_clear - setzt die Dropdownfelder und das Listenfeld zurück
    Me!bsw_clear.Visible = True                     'bsw_clear - sichtbar
    Delay 2                                         'Aufruf - Delay
    cbx_year1 = Null
    cbx_year2 = Null
    cbx_Kontonr = Null
    Me!preview.RowSource = ""
    Me!preview.RowSource = "qry_test"
    Me!bsw_clear.Visible = False                     'bsw_clear - unsichtbar
End Sub

Private Sub cmd_close_Click()
'cmd_close - schließt das Formular
On Error GoTo Err_Befehl39_Click
    DoCmd.Quit
Exit_Befehl39_Click:
    Exit Sub
Err_Befehl39_Click:
    MsgBox Err.Description
    Resume Exit_Befehl39_Click
End Sub

Private Sub cmd_preview_Click()
    Me!bsw_searchdata.Visible = True                'bsw_searchdata - sichtbar
    Delay 2                                         'Aufruf - Delay
    Me!preview_unvisible.Requery      'preview_unvisible - unsichtares preview
    If Me!preview_unvisible.ListCount = 0 Then
        Me!preview.RowSource = "qry_test"
        Me!bsw_searchdata.Visible = False         'bsw_searchdata - unsichtbar
    'MsgBox "Sorry, there are no entrys on this date or you selected no date"
      Else
        Me!preview.RowSource = "qry_test2"
        Me!bsw_searchdata.Visible = False         'bsw_searchdata - unsichtbar
        Me!bsw_loaddata.Visible = True                'bsw_loaddata - sichtbar
        Delay 2                                                'Aufruf - Delay
        preview.Requery                          'preview - sichtbares preview
        Me!bsw_loaddata.Visible = False             'bsw_loaddata - unsichtbar
    End If
End Sub

Nachtrag: chiller am 2. August 2005 um 08:49 hat folgendes geschrieben:
also ich habe ja unter dem punkt Private Sub cmd_preview_Click()

eine abfrage wenn in dem listenfeld nichts drinn steht dann soll er anstatt qry_test die abfrage qry_test2 nehmen. nur das klappt nicht so ganz. kann mir jemand sagen wie ich dies besser hinbekommen könnte.

ich möchte praktisch das der anwender nachher nach datum und kontonummer suchen kann aber wenn er zb für das datum nichts findet das er dann nach der kontonummer weitersucht!

jasmin2005 am 02. Aug 2005 um 10:04 hat folgendes geschrieben:
hallo ich bin eine kollegin von "chiller" kann uns denn keiner einen kleinen tipp geben?wir probieren schon seit letzten freitag das problem zu lösen nur irgendwie klappt es nicht Rolling Eyes
stpimi
Moderator Access


Verfasst am:
21. Aug 2005, 22:17
Rufname:
Wohnort: Graz


AW: Formular - Abfrage von datensätzen - AW: Formular - Abfrage von datensätzen

Nach oben
       

Hallo Chiller!

Es wird sich in diesem Fall nicht vermeiden lassen, den SQL-Code, der dem Listenfeld zugrunde liegt, zur Laufzeit zusammenzustellen und der Eigenschaft RowSource des Listenfeldes zuzuweisen. Da Listenfeld sollte sich dabei selbstständig aktualisieren.

_________________
Lg, Michael

Dein Feedback hilft auch anderen - vergiß es nicht!
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: Summe in Abfrage mit meheren Kriterien 1 Gast 2706 01. März 2004, 16:43
borstel Summe in Abfrage mit meheren Kriterien
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage nur wie? 2 Björn 2579 10. Feb 2004, 15:00
Gast Abfrage nur wie?
Keine neuen Beiträge Access Tabellen & Abfragen: eine Abfrage - zwei Tabellen 2 sabine7791 1471 10. Feb 2004, 14:07
sabine7791 eine Abfrage - zwei Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Wie kann man über Formular eine Abfrage aufrufen? 2 Ludi 2166 30. Jan 2004, 15:14
Willi Wipp Wie kann man über Formular eine Abfrage aufrufen?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage basiernd auf Tabellen einer externen Datenbank 1 ccabek 1969 20. Jan 2004, 14:03
marmic55 Abfrage basiernd auf Tabellen einer externen Datenbank
Keine neuen Beiträge Access Tabellen & Abfragen: Access abfrage nach 2 parametern 1 Weedy 3466 13. Jan 2004, 00:21
reke Access abfrage nach 2 parametern
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in Excel analysieren 4 pedro 2479 29. Dez 2003, 22:36
reke Abfrage in Excel analysieren
Keine neuen Beiträge Access Tabellen & Abfragen: Bestimmte Abfrage erstellen ... nur wie ? 1 studi 2219 22. Dez 2003, 20:51
reke Bestimmte Abfrage erstellen ... nur wie ?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage, ob eine Abfrage ein Ergebnis hat 3 Esdo 3934 09. Dez 2003, 15:53
Fedaykin Abfrage, ob eine Abfrage ein Ergebnis hat
Keine neuen Beiträge Access Tabellen & Abfragen: Kann ein Optionsfeld die Auswahl einer Abfrage beeinflussen? 5 Stratos 4700 03. Dez 2003, 20:29
lupos Kann ein Optionsfeld die Auswahl einer Abfrage beeinflussen?
Keine neuen Beiträge Access Tabellen & Abfragen: SQL Abfrage mit VBA 3 daMike 1729 26. Nov 2003, 17:58
daMike SQL Abfrage mit VBA
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit der Anzahl mehrerer Ja/Nein Datenfelder 1 gast 1037 25. Nov 2003, 18:55
reke Abfrage mit der Anzahl mehrerer Ja/Nein Datenfelder
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum