Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Access 2000 - zoeken in subformulier  (gelezen 3510 keer)

0 leden en 1 gast bekijken dit topic.

Offline Andrea

  • Lid
  • *
  • Berichten: 22
Access 2000 - zoeken in subformulier
« Gepost op: 25 januari 2004, 19:26:58 »
Hallo,

Ik heb een hoofdformulier met de naam van een instelling + adres.
Aan dit adres zijn verschillende contactpersonen verbonden.
De namen van de contactpersonen worden samen met hun gegevens ingevuld in een subformulier (in gegevensbladweergave) dat is ingevoegd in het hoofdformulier.

Ik wil nu via een zoekformulier de naam van een bepaalde contactpersoon opzoeken in dit subformulier.
Het gaat wel met de zoekfunctie (verrekijkertje) maar dan wordt er enkel gezocht in dat bepaald record en wat ik wil is dat er in het ganse hoofdformulier (in alle records) gezocht wordt.
Iemand die me kan helpen of een voorbeeld ter beschikking heeft?

Met veel dank bij voorbaat
Groetjes,
Andrea
Win XP Home SP1 - intel Pentium 4 1800 Mhz - IE 6 - ADSL Skynet - MS Office 2000

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:Access 2000 - zoeken in subformulier
« Reactie #1 Gepost op: 27 januari 2004, 16:38:51 »
Mss dat dit je verder kan helpen:

Ik heb op een hoofdformulier een knop en een tekstvak geplaatst. Het hoofdformulier bevat een bedrijfid, bedrijfsnaam en een adres. Het subformuier bevat (bedrijfid om te koppelen), naam (van de werknemer)
Ik stel een filter in op het subformulier. Ik zit deze eerst op "[Naam]" omdat als je dit leeg laat dat Access dan een foutboodschap geeft bij het uitvoeren van de daaropvolgende regel.
DoCmd... = deze regel zet de filter op
sfrmBedrijf.filter= ... stelt de filter in op de ingegeven naam


Private Sub cmdZoeken_Click()
Form_sfrmBedrijf.Filter = "[Naam]"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70
Form_sfrmBedrijf.Filter = "[Naam] Like " & Chr(34) & txtzoeken.Value & Chr(34)

End Sub

Nu aan jouw om het op jouw probleem toe te passen

Als je natuurlijk nog vragen hebt aarzel dan niet om je vraag op het forum te zetten of een mailtje te sturen (wat soms wel makkelijker is)
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

Offline Andrea

  • Lid
  • *
  • Berichten: 22
Re:Access 2000 - zoeken in subformulier
« Reactie #2 Gepost op: 28 januari 2004, 00:48:30 »
Fantastisch Powerkite !!! Je code doet het prima en ik ben je heel erg dankbaar!  :-*

Er is slechts één schoonheidsfoutje maar dat zal wel aan mijn werkwijze te wijten zijn.

Als de zoekactie wordt uigevoerd worden ALLE records gefilterd i.p.v. enkel maar die waar de naam in voorkomt. Dit komt omdat er in de gegevensweergave van het subformulier onderaan telkens een blanco rij overblijft.
Ter verduidelijking :
als ik 10 records heb waarvan in record 1, 2 en 3 dezelfde naam voorkomt, staat er bij filtering 10  i.p.v. 3 records.
Ik zie dus 3 records met de namen + 7 blanco's

Met jouw akkoord wil ik je graag dat bepaalde gedeelte van de databank eens doorsturen zodat je zelf kunt zien wat er precies gebeurt.

Groetjes,
Andrea
Win XP Home SP1 - intel Pentium 4 1800 Mhz - IE 6 - ADSL Skynet - MS Office 2000

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:Access 2000 - zoeken in subformulier
« Reactie #3 Gepost op: 28 januari 2004, 12:38:33 »
Als je de lege velden weg wil dan moet je aan de filter nog toevoegen
"AND [Naam] Is Not Null"
of iets dergelijks en dan worden enkel de records getoond die geen lege [Naam]-velden bevatten.

Ik hoop dat dit nog een verbetering is aan je oplossing.
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

Offline Andrea

  • Lid
  • *
  • Berichten: 22
Re:Access 2000 - zoeken in subformulier
« Reactie #4 Gepost op: 29 januari 2004, 21:32:02 »
Powerkite,

spijtig genoeg werkt de code 'AND [Naam] Is Not Null'
niet.
Ik heb nog iets geprobeerd met 'If Not IsNull' maar gaf ook niks.
In ieder geval hartelijk dank voor je hulp!

Groetjes,
Andrea
Win XP Home SP1 - intel Pentium 4 1800 Mhz - IE 6 - ADSL Skynet - MS Office 2000

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:Access 2000 - zoeken in subformulier
« Reactie #5 Gepost op: 30 januari 2004, 12:31:20 »
Zou je de database toch maar kunnen doorsturen want ik snap niet waar de oorzaak kan liggen. Maar ik denk wel dat ik een oplossing kan vinden voor je probleem.

Groetjes Powerkite
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

 


www.combell.com