Opzoek naam uit database

Status
Niet open voor verdere reacties.
H

huizemeul

Gebruiker
Lid geworden
17 mrt 2013
Berichten
97
Beste help:
Heb een tabel met namen.
Heb een opzoek Formulier
Heb een Rapport.

Nu wil ik per achternaam opzoeken.
Maar krijg de hele lijst.
Mijn zoek actie werkt niet volledig.
Kan hier na gekeken worden zie bestand
 

Bijlagen

  • Help.rar
    31,5 KB · Weergaven: 25
Goedemorgen,

Ik zou de rijbron van "cboAchternaam" veranderen in:

Code: 
SELECT [Tbl Totaal 1].Achternaam
FROM [Tbl Totaal 1]
GROUP BY [Tbl Totaal 1].Achternaam
ORDER BY [Tbl Totaal 1].Achternaam;

Je wilt immers alleen de unieke achternamen kunnen kiezen.
In de opmaak heb je nu 2 kolommen, dat moet nu 1 worden. Dus lijstbreedte is dan 2,54cm i.p.v. 0cm;2,54cm.

Succes

Gr. Jan
 
Beste Jan,

Dit gaat ook niet werken.
Hij geeft aan dat er iets niet klopt.

Syntaxis.jpg

Moet er nog meer worden veranderd?
Heb hem uitgeprobeerd maar het werkt niet.

Hij geeft nu niet alle namen weer.
Als ik nu een naam intik en hij staat dubbel in de tabel dan moet ik hem ook dubbel in het rapport krijgen.
b.v. drie keer in de lijst dan ook drie keer in het rapport. Extra gegevens komen dan mee.
 
Met hij geeft nu niet alle namen weer bedoel ik in de zoek opdracht kon je alle namen zijn.
Nu moet ik een naam onthouden of weten
 
In jouw tabel komt alleen de achternaam Allali 2x voor. In de zoeklijst die ik gemaakt had, zie je alle achternamen maar één keer, dus ook Allali . In het rapport komt de achternaam Allali wel 2x voor. Ik stuur het gewijzigde bestand mee.

Bekijk bijlage Help_2.zip

Gr. Jan
 
Beste Jan,

In mijn bestand van plus minus 300 namen komen er vele dubbele namen voor.
dat zullen er steeds meer worden.

In jouw nieuwe database geeft hij wel Allila twee keer weer.
Maar de andere dubbele komen maar één keer voor.

Mijn bestand regel 12 en 13 komt de naam Blossum ook twee keer voor.
Hier geeft hij een keer in het rapport.

Waarin zit het verschil. Moet ik wat aan mijn Tbl Totaal 1 veranderen?
Of zit het ergens anders.

Gr. rob
 
Hallo Rob,

Volgens mij is Blossem niet hetzelfde als Blossum, of ik moet mij sterk vergissen;).
De gegevens hieronder komen uit jouw tabel.

Id Datum Betaling Hobby Voornaam Achternaam Woonplaats Materiaal Keuze
12 7-6-2015 2 2 Willemijn van Blossem Harderwijk 1 1
13 8-7-2017 2 2 Willemijn van Blossum Harderwijk 1 1

Gr Jan
 
Beste Jan,

Sorry overheen gelezen foutje van mijn kant.
De oplossing werkt nu goed.

Mijn hartelijke dank.
 
Om een beetje mosterd na de maaltijd aan te bieden: de procedure kan wat makkelijker. Als het je te doen is om de dubbele personen op te sporen, zou ik de keuzelijst in ieder geval filteren op Aantal > 1; dat elimineert al de correcte personen.
En je rapport openen kan ook handiger, want altijd maar een rapport sluiten en opnieuw openen is meestal niet nodig.
Code: 
Dim rap As Report
    strRapport = "rpthelp"
    lngView = acViewPreview     'Gebruik acViewNormal als je gelijk wilt afdrukken.
    Me.Form.Visible = False
    'Filter opbouwen met één of meerdere comboBoxen.
    If Not IsNull(Me.cboAchternaam.Value) Then strFilter = "[Achternaam] = """ & Me.cboAchternaam.Value & """"
    If CurrentProject.AllReports(strRapport).IsLoaded Then
        Set rap = Reports(strRapport).Report
        ''Reports(strapport).Filter = strFilter
        With rap
            .Filter = strFilter
            .FilterOn = True
        End With
    Else
        DoCmd.OpenReport strRapport, lngView, , strFilter
    End If
 
Beste OctaFish,

Bedankt voor je mosterd na de maaltijd. :D
Zal het zeker uitproberen hoe deze werkt in praktijk.

Mijn hartelijke dank voor deze
G. Rob
 
Ja en deze mosterd was zeer lekker.
Alleen ben ik een zeurpiet. :thumb:
Maar het zoek vak waar je de naam intikt gaat niet leeg.
Oudere naam blijft zichtbaar? :p
 
Da's toch niet zo moeilijk? Me.cboAchternaam = Null moet dat doen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan