Filter knap i formular med parameter + konstant kriterie
Hejsa - Jeg er en absolut Access newbie, der er blevet smidt ud i at skulle lave et pænt komplekst database system, så der kommer nok mange spørgsmål herfra.Jeg har en form der som default viser ca 100000 poster, hver bruger skal let kunne filtrere på 2 felter nemlig [postnr] og [anvendelse] - derud over filtreres på en masse andre felter - PT har jeg de 2 knapper og med lidt fusker kode har jeg fået det til at virke bortset fra at den spørger mig om en parameter ved knap2 anvendelse som jeg i Filter= har sat til anvendelse=parcelhus
Jeg vil gerne have 1 Knap, der spørger efter [PostNr] og evt med en checkbox der sætter [anvendelse] = parcelhus - og hvis boxen ikke afkrydses sættes filtret bare uden denne parameter, helt optimalt var det hvis filteret automatisk blev sat uden denne parameter hvis den returnerede 0 records ...
Min nuværende VB kode ser sådan ud :
Private Sub PoNRmedParcelhus_Click()
Me.Filter = "" 'Nulstilling af filter, ellers virker det ikke i access 2000
Me.FilterOn = True
Me.Filter = "postnr=[Indtast Postnr] AND ( [ring tilbage] Is Null AND anvendelse=parcelhus AND afsluttet Is Null AND [møde booket] Is Null AND [er eksisternede kunde hos if] Is Null AND [Ønsker Telefon møde] Is Null AND Opgivet Is Null AND [Opfylder ikke krav] Is Null)"
Me.FilterOn = True
If Me.RecordsetClone.RecordCount = 0 Then
Me.Filter = ""
Me.FilterOn = True
MsgBox "Ingen Data opfyldte betingelserne!", vbExclamation
End If
End Sub
Private Sub PoNRudenParcelhus_Click()
Me.Filter = ""
Me.FilterOn = True
Me.Filter = "postnr=[Indtast Postnr] AND ( [ring tilbage] Is Null AND [Afsluttet] Is Null AND [møde booket] Is Null AND [er eksisternede kunde hos if] Is Null AND [Ønsker Telefon møde] Is Null AND Opgivet Is Null AND [Opfylder ikke krav] Is Null)"
Me.FilterOn = True
If Me.RecordsetClone.RecordCount = 0 Then
Me.Filter = ""
Me.FilterOn = True
MsgBox "Ingen Data opfyldte betingelserne!", vbExclamation
End If
End Sub
Håber ikke det var alt for meget tekst :-)
