Hoofdveld, string in een subformulier

[Eibert]

Keuzelijst koppelen aan een inputbox

In een formulier worden nieuwe personen ingevoerd.
In een subformulier wil ik zien of de naam al bestaat.
Het subformulier is gekoppeld aan een query met een expressie [Achternaam][Voornaam][Tussenvoegsel].
Als ik het hoofdveld koppel aan het invoervak achternaam reageert het subformulier keurig als ik het veld Achternaam verlaat. So far, so good.
Echter, ik wil graag een combinatie van drie velden vergelijken.
Daartoe maak ik in de module een string, bevattend [Nieuwe achternaam][Nieuwe Voornaam][Nieuw Tussenvoegsel]. De string plaats ik in een onafhankelijk tekstveld, genaamd Schakel.
Als ik nu dit tekstveld aan het hoofdveld van het subformulier koppel, gebeurt er niets in het subformulier.
Hoe los ik dat op?

NB: een gecomrpimeerde (RAR) gestripte versie van deze database bevat 3 MB, te veel om mee te sturen.

 

[Floor E]

Is het niet veel makkelijker om je query in je subform aan te passen door een zoekveld aan te maken:
Veld:
Controle: [Achternaam]&[Voornaam]&[Tussenvoegsel]
Met als criteria
[Achternaam] & [Voornaam] & [Tussenvoegsel]

Of in sqlcode (kan je gewoon via weergave SQLcode plakken):
SELECT [Achternaam] & [Voornaam] & [Tussenvoegsel] AS Controle
FROM [Tbl03-01 NieuwArtikel]
WHERE ((([Achternaam] & [Voornaam] & [Tussenvoegsel])=[Achternaam] & [Voornaam] & [Tussenvoegsel]));

Via VBA wordt het een wat moeilijker verhaal omdat je dan met een array moet gaan werken. Gaat goed maar wel een stuk moeilijk.

 

[Eibert]

Helaas lost dit maar een gedeelte op.
Ik heb een keuzelijst gemaakt. In de rijbron staat nu de volgende code:
SELECT [Achternaam] & ", " & [Voornaam] FROM familieleden WHERE ((([Achternaam] & ", " & [Voornaam]) Like (Anaam & "*"))) ORDER BY [Achternaam] & ", " & [Voornaam];
(Anaam is hier het veld Achternaam in het formulier)
Bij elke Key-Up geef ik de opdracht Me.Controle.Requery
Desondanks gebeurt er niets in het keuzevak.
Er gebeurt ook niets als ik naar een volgend record ga en weer terug kom.
Er gebeurt wel wat als ik overschakel naar de ontwerpmodus van het formulier en daarna weer naar weergave.
Voor de duidelijkheid voeg ik een afbeelding bij.

 

[Eibert]

Helaas lost dit maar een gedeelte op.
Ik heb een keuzelijst gemaakt. In de rijbron staat nu de volgende code:
SELECT [Achternaam] & ", " & [Voornaam] FROM familieleden WHERE ((([Achternaam] & ", " & [Voornaam]) Like (Anaam & "*"))) ORDER BY [Achternaam] & ", " & [Voornaam];
(Anaam is hier het veld Achternaam in het formulier)
Bij elke Key-Up geef ik de opdracht Me.Controle.Requery
Desondanks gebeurt er niets in het keuzevak.
Er gebeurt ook niets als ik naar een volgend record ga en weer terug kom.
Er gebeurt wel wat als ik overschakel naar de ontwerpmodus van het formulier en daarna weer naar weergave.
Voor de duidelijkheid voeg ik een afbeelding bij.

 

[Eibert]

het probleem is opgelost door de code Me.refresh.