Zoeken in hoofd- en subformulier

[RdGrande]

Hallo allemaal,

ben voor mijn database bezig een zoekformulier te maken, heb al erg veel gehad aan http://www.datapigtechnologies.com/f...earchform.html

Maar wat ik graag zou willen is het volgende.

Ik heb een hoofdformulier, met daarbij 2 subformulieren waarin ik klant- en boekingsgegevens invul. Alledrie de formulieren zijn gekoppeld aan een andere tabel. (Tussen de tabellen liggen relaties)

1.Als ik op een waarde zoek uit het subformulier, dan opent hij alleen het desbetreffende subformulier. Graag wil ik ook de overige gegevens openen.
2. Ik heb 6 criteria om te zoeken, hiervoor heb ik ook 6 verschillende buttons gemaakt. Nu kan ik niet zoeken op bijv. Bedrijfsnaam en Postcode tegelijk. Het liefst wil ik 1 button, zodat dit wel mogelijk is. Waarschijnlijk moet ik dit in VBA veranderen. Ik weet alleen niet hoe. Kan iemand mij op weg helpen?

Hieronder een voorbeel hoe ik het nu in VBA heb.

Private Sub ZoekBedrijfsnaam1_Click()
On Error GoTo Err_ZoekBedrijfsnaam1_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_klant"

stLinkCriteria = "[Bedrijfsnaam]=" & "'" & Me![qBedrijfsnaam1] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ZoekBedrijfsnaam1_Click:
Exit Sub

Err_ZoekBedrijfsnaam1_Click:
MsgBox Err.Description
Resume Exit_ZoekBedrijfsnaam1_Click

End Sub
Private Sub ZoekBoekingID_Click()
On Error GoTo Err_ZoekBoekingID_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_boeking Subformulier"

stLinkCriteria = "[BoekingID]=" & Me![qBoekingsID1]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ZoekBoekingID_Click:
Exit Sub

Err_ZoekBoekingID_Click:
MsgBox Err.Description
Resume Exit_ZoekBoekingID_Click

End Sub

 

[Bakk4318]

Baseer je formulier op querys. Maak gebruik van de criteria (gebruike "Like" en "*") in de querys. Net zoals je voorbeeld link (je link werkt overigens niet).

mvg
Charles

 

[RdGrande]

Ik was inderdaad begonnnen om hem op een query te baseren, net zoals in het voorbeeld in de link.

Is het mogelijk dan om deze query te koppelen aan mijn formulier, zodat als ik de query start dat ik mijn huidige formulier + subformulieren in beeld krijg.

 

[Bakk4318]

Ja, dat kan. Verbind je formulier aan een Query i.p.v een tabel.