Tel: 0203-2814763

 
Home


Access-Entwickler
Referenzen


Access-Forum
Access-Downloads
Access-Suchmaschine
knowhow.mdb
Artikel
Access-Links
Access-Codebeispiele
Access-FAQ
Verschiedenes
Autoren-Login

 

newsletter
Kontakt
English

 

 

 
  Willkommen Gast. Bitte Einloggen oder Registrieren
   
  ÜbersichtHilfeSuchenEinloggenRegistrieren  
 
Seitenindex umschalten Seiten: 1
Thema versenden Drucken
Suchformular leeren und Summe der Datensätze anzeigen (Gelesen: 705 mal)
Liinaaa
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 20
Suchformular leeren und Summe der Datensätze anzeigen
01.02.2017 um 09:40:01
 
Hallo zusammen,

ich brauche wiedermal eure Hilfe.

Ich habe ein Suchformular erstellt. HF ist die Eingabe für die Suche und im UFO werden die ganzen User angezeigt. Im HF habe ich ein Button "Leeren" eingefügt das mir die Eingaben im HF leert mit folgendem COde:

Code:
Private Sub Clear_Click()
FelderLeeren Me
End Sub




Sub FelderLeeren(frm As Form)
     Dim ctl As Control
     Dim itm

     For Each ctl In frm.Controls
         Select Case ctl.ControlType
           Case acCheckBox, acToggleButton, acOptionButton
             ctl = False
           Case acComboBox, acTextBox
             ctl = ""
           Case acListBox
             If ctl.MultiSelect <> 0 Then
                 For Each itm In ctl.ItemsSelected
                     ctl.Selected(itm) = False
                 Next itm
               Else
                ctl = ""
             End If
         End Select
     Next ctl 



Das Problem ist jedoch wenn die Felder geleert werden wird die Liste im UFO nicht mehr angezeigt.
Das möchte ich verhinder also sobald ich leere sollen die Felder leer sein aber die Liste soll angezeigt werden.

Dann möchte ich noch die Anzahl der Datensätze im UFO im HF sehen. Ich habe es mit Anzahl versucht da kommt immer #Fehler.

WÜrde mich über jede Antwort freuen
LG Liina
Zum Seitenanfang
 
 
IP gespeichert
 
Juergen_el
YaBB Moderator
*****
Offline


Wissen ist Macht - weiß
nichts - Macht nichts.

Beiträge: 6351
Geschlecht: male
Re: Suchformular leeren und Summe der Datensätze anzeigen
Antwort #1 - 01.02.2017 um 10:32:56
 
Moin Liina,

der Code leert die Suchfelder, bzw setzt die Mehrfachauswahl der Listbox zurück. Vermutlich besteht eine Verknüpfung zum UFo. Da jetzt alles leer ist, gibt es unten keine passenden Treffer und damit 0 Datensätze.
Zum Seitenanfang
 

Gruß Jürgen

Hilfe nach bestem Wissen, ohne Anspruch auf Richtigkeit und Vollständigkeit.

*feedback erwünscht*

Bitte Media Dateien und klickbare Links in Beiträgen und Signaturen sind nur für registrierte Mitglieder verfügbar!!  Sie müssen sich Einloggen oder Registrieren
Homepage  
IP gespeichert
 
Liinaaa
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 20
Re: Suchformular leeren und Summe der Datensätze anzeigen
Antwort #2 - 01.02.2017 um 11:03:48
 
Guten Morgen Jürgen,

wie kann ich das verhindern?? Die Datensätze im UFO sind ja sozusagen die Ergebnisse nach der Eingabe oben im HF.
Zum Seitenanfang
 
 
IP gespeichert
 
df6gl
YaBB Moderator
*****
Offline


DF6GL

Beiträge: 4134
Geschlecht: male
Re: Suchformular leeren und Summe der Datensätze anzeigen
Antwort #3 - 01.02.2017 um 11:22:19
 
Hallo,

bitte:
-- wie filterst Du denn überhaupt?
-- immer den gesamten Code der betroffenen Prozedur posten.  Vermutlich gibt es irgendwo ein Requery, wenn die Suchfelder aus dem HF nicht mit dem UFO verknüpft sind. (was ich wegen dem Listenfeld mit Mehrfachauswahl jetzt nicht glaube).

Zum Seitenanfang
 

Gruß
Franz, DF6GL
PS: Bitte Feedback nicht vergessen!
 
IP gespeichert
 
Liinaaa
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 20
Re: Suchformular leeren und Summe der Datensätze anzeigen
Antwort #4 - 01.02.2017 um 12:03:01
 
Hallo df6gl,

das ist mein gesamter Code:

Code:
Private Sub Clear_Click() 'Felder werden geleert
FelderLeeren Me
End Sub




Sub FelderLeeren(frm As Form)
     Dim ctl As Control
     Dim itm

     For Each ctl In frm.Controls
         Select Case ctl.ControlType
           Case acCheckBox, acToggleButton, acOptionButton
             ctl = False
           Case acComboBox, acTextBox
             ctl = ""
           Case acListBox
             If ctl.MultiSelect <> 0 Then
                 For Each itm In ctl.ItemsSelected
                     ctl.Selected(itm) = False
                 Next itm
               Else
                ctl = ""
             End If
         End Select
     Next ctl
 End Sub



Private Function FktFilter()
Dim strFilter As String
If Not IsNull(Me!txtfamname) Then
    strFilter = strFilter & " And [User_Family_Name] like '" & Me!txtfamname & "*'"
End If
If Not IsNull(Me!txtfirstname) Then
    strFilter = strFilter & " And [User_First_Name] like '" & Me!txtfirstname & "*'"
End If
If Not IsNull(Me!txtEmail) Then
    strFilter = strFilter & " And [User_Email] like '" & Me!txtEmail & "*'"
End If
If Not IsNull(Me!txtZnumber) Then
    strFilter = strFilter & " And [User_Z_Number] like '" & Me!txtZnumber & "*'"
End If
If Not IsNull(Me!cboDivA) Then
    strFilter = strFilter & " AND [User_Divison_ID] = " & Me!cboDivA
End If
If Not IsNull(Me!cboMMAreaS) Then
    strFilter = strFilter & " AND [User_MM_Area_ID] = " & Me!cboMMAreaS
End If
If Not IsNull(Me!cboGender) Then
    strFilter = strFilter & " AND [User_Gender_ID] = " & Me!cboGender
End If

If Len(strFilter) > 0 Then
    Me!subfrm_SearchParticipants.Form.Filter = Mid(strFilter, 6)
    Me!subfrm_SearchParticipants.Form.FilterOn = True
Else
     Me!subfrm_SearchParticipants.Form.FilterOn = False
End If

   
End Function

Private Sub txtfamname_AfterUpdate()
Call FktFilter
End Sub
Private Sub cboDivA_AfterUpdate()
Call FktFilter
End Sub

Private Sub cboGender_AfterUpdate()
Call FktFilter
End Sub

Private Sub cboMMAreaS_AfterUpdate()
Call FktFilter
End Sub
Private Sub txtfirstname_AfterUpdate()
Call FktFilter
End Sub
Private Sub txtEmail_AfterUpdate()
Call FktFilter
End Sub
Private Sub txtZnumber_AfterUpdate()
Call FktFilter
End Sub



 




Nur ich verstehe gerade gar nichts mehr..  Traurig
Zum Seitenanfang
« Zuletzt geändert: 01.02.2017 um 12:03:42 von Liinaaa »  
 
IP gespeichert
 
df6gl
YaBB Moderator
*****
Offline


DF6GL

Beiträge: 4134
Geschlecht: male
Re: Suchformular leeren und Summe der Datensätze anzeigen
Antwort #5 - 01.02.2017 um 12:20:32
 
Hi,

schreib zunächst:

.
ctl = NULL  'an allen Stellen
.

Dann setze einen Haltepunkt an den Code-Anfang der Filter-Prozedur, um zu sehen, ob die Proz. aufgerufen wird, was zu diesen Zeitpunkt nicht sein sollte.



Zum Seitenanfang
 

Gruß
Franz, DF6GL
PS: Bitte Feedback nicht vergessen!
 
IP gespeichert
 
Liinaaa
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 20
Re: Suchformular leeren und Summe der Datensätze anzeigen
Antwort #6 - 01.02.2017 um 12:48:13
 
Hallo df6gl,

wenn ich an alle Stellen "ctl = NULL " setze passiert nichts. Und wenn ich den Button betätige passiert dann auch nichts

Wenn ich z.B. was eingebe und es manuell lösche einzeln dann werden die Datensätze wieder angezeigt.
Zum Seitenanfang
 
 
IP gespeichert
 
df6gl
YaBB Moderator
*****
Offline


DF6GL

Beiträge: 4134
Geschlecht: male
Re: Suchformular leeren und Summe der Datensätze anzeigen
Antwort #7 - 01.02.2017 um 16:18:08
 
Hallo,

was heißt "passiert" nichts?

Das NULL-Setzen ist nur prophylaktisch.

Wichtig ist, ob die Haltepunkte angesprungen werden, wenn die Felder ge-NULL-t werden...

Ansonsten lad die Db mal hier hoch, komprimiert/repariert, Datenreduziert und gezippt
Zum Seitenanfang
 

Gruß
Franz, DF6GL
PS: Bitte Feedback nicht vergessen!
 
IP gespeichert
 
Seitenindex umschalten Seiten: 1
Thema versenden Drucken