Zoeken

[Ben]

in een formulier vul ik de postcode en huisnr. in.
nu wil dat na het invullen er gezocht gaat worden op die gegevens en dat
alle bijbehorende gegevens in het formulier getoond worden.

Hoe kan ik dat realiseren?

Ben

[XPS35]

Ben wrote:

Is zo, zonder verdere informatie, moeilijk te zeggen. Hoe ziet je
postcodetabel er bijvoorbeeld uit?

--
Groeten,

Peter

[Ben]

Tabel bestaat uit naam, adres, woonplaats, postcode, huisnr. een veld
samengesteld postcode en huisnr, tel.nr. en email.

Groeten,

Ben

[XPS35]

Ben wrote:

In mijn oplossing heb ik twee niet afhankelijke velden op het formulier
waarmee ik de personen muteer gemaakt voor het ingeven van de postcode
en huisnummer waar op gezocht moet worden. Met een knop (ZoekOpPC_NR)
activeer ik de zoekfunctie.
Verder ben ik er maar vanuit gegaan dat er meerdere personen aanwezig
kunnen zijn wier adres het ingegeven postcode en huisnummer hebben (als
dat niet het geval is wordt het (nog) simpeler).
De oplossing zit zo in elkaar dat als er 1 persoon is die aan het
zoekcriterium voldoet er naar dat record genavigeerd wordt. Zijn er
meerdere personen die voldoen, dan wordt er een filter gezet en kan je
alleen nog naar die personen navigeren. Veder wordt er dan een knop
(Alles) zichtbaar waarmee je weer alle records tevoorschijn kan toveren.
Die knop zet zichzelf ook uit.
Tot slot moet je ook zorgen dat bij het openen van het formulier die
knop onzichtbaar wordt. Het geheel aan procedures ziet er bij mij dan zo
uit:

Private Sub Form_Open(Cancel As Integer)
Me.Alles.Enabled = False
Me.Alles.Visible = False
End Sub

Private Sub Alles_Click()
Me.RecordSource = "SELECT * FROM Adres"
Me.Alles.Enabled = False
Me.Alles.Visible = False
End Sub

Private Sub ZoekOpPC_NR_Click()
Dim telAdres As Integer

Refresh

Me.RecordSource = "SELECT * FROM Adres"
Me.Alles.Enabled = False
Me.Alles.Visible = False

telAdres = DCount("*", "Adres", "Postcode = '" & Me.zPC & "' AND Nummer
= " & Me.zNR)

If telAdres = 0 Then
MsgBox "Geen personen gevonden", vbExclamation
Else
If telAdres = 1 Then
Me.RecordsetClone.FindFirst "Postcode = '" & Me.zPC & "' AND
Nummer = " & Me.zNR
Me.Bookmark = Me.RecordsetClone.Bookmark
Else
Me.RecordSource = "SELECT * FROM Adres WHERE Postcode = '" &
Me.zPC & "' AND Nummer = " & Me.zNR
Me.Alles.Enabled = True
Me.Alles.Visible = True
End If
End If

End Sub

--
Groeten,

Peter

[Ben]

Peter,

bedankt voor je oplossing.
Ik ben hier helemaal nieuw mee, heb wel een soortgelijk iets in Excell maar
dit is voor mijn gevoel compleet anders.
Moet ik die code aan een knop hangen?

Ben

[XPS35]

Ben wrote:

Ja

Peter

--
Groeten,

Peter

[Ben]

Peter,

nog een vraag, sorry.
Ik krijg hier de volgende foutmelding.....
Me.Alles.Enabled = False
"Kan de methode of het gegevenslid niet vinden"

Met vriendelijke groet,

Ben

[XPS35]

"Ben" <gips22ver...@hotmail.com> schreef in bericht
news:cua50j$pvp$1...@reader11.wxs.nl...

Zoals ik in mijn toelichting al zei is er in de beschreven oplossing (naast
de zoekknop) sprake van een knop met de naam "Alles". Als die niet bestaat
krijg je die foutmelding.

Peter