[VBA] Access: Recordsource niet aan te passen??

[Sensei_D]

Ik het het volgende in een formulier staan:

code:

Private Sub Form_Open(Cancel As Integer)
    MijnQry = "SELECT [IB_Opdrachten].[OpdrachtID], [IB_Opdrachten].[Datum install], [IB_Opdrachten].[Auto_kenteken], [IB_Opdrachten].[Bestuurder_naam], [IB_Opdrachtgever info].[Naam], [NAW].[Bedrijfsnaam] FROM NAW INNER JOIN ([IB_Opdrachtgever info] INNER JOIN IB_Opdrachten ON [IB_Opdrachtgever info].[OpdrachtgeverID]=[IB_Opdrachten].[OpdrachtgeverID]) ON [NAW].[NAWid]=[IB_Opdrachten].[NAWid]"
    Me.RecordSource = MijnQry
End Sub

Private Sub Referentie_AfterUpdate()
    Dim SubQry, NwQry As String
    MijnQry = "SELECT [IB_Opdrachten].[OpdrachtID], [IB_Opdrachten].[Datum install], [IB_Opdrachten].[Auto_kenteken], [IB_Opdrachten].[Bestuurder_naam], [IB_Opdrachtgever info].[Naam], [NAW].[Bedrijfsnaam] FROM NAW INNER JOIN ([IB_Opdrachtgever info] INNER JOIN IB_Opdrachten ON [IB_Opdrachtgever info].[OpdrachtgeverID]=[IB_Opdrachten].[OpdrachtgeverID]) ON [NAW].[NAWid]=[IB_Opdrachten].[NAWid]"
    SubQry = " WHERE [IB_Opdrachten].[Bestuurder_referentienr] = " & Me.Referentie.Value
    NwQry = MijnQry & SubQry
    Me.RecordSource = NwQry

End Sub

Echter, dit werkt niet. Ik kan namelijk de recordsource maar 1 keer definieren hier; bij de 2de keer geeft hij een foutmelding "U heeft de vorige bewerking geannuleerd" en stopt ermee. Toch zou ik graag de recordsource van het formulier willen aanpassen, maar hoe

Verdere uitleg: Dit is een formulier met een aantal onafhankelijke zoekvelden waarmee gezocht dient te worden in het huidige formulier, dus de recordsource zou moeten worden vervangen door een nieuwe, maar dat gaat op deze manier niet

[ksmedts]

Is het misschien mogelijk om de recordsource eerst leeg te gooien en daarna pas de nieuwe query aan de source toe te voegen?

[PaulZ]

Volgens mij wil je een filter loslaten op de RecordSource en dat kan weer met de filteroptie in Access. Je vult dat de WHERE-clause in en zet de filter op ja.

[ksmedts]

Ik heb het net ff snel uitgetest op een database waar ik zelf mee bezig ben, maar wat jij doet werkt bij mij perfect.... Ik heb dus eerder het idee dat er iets fout zit in je query...

Met de filter optie van access gaat het ook goed maar ook dan geld dat eerst je query zal moeten kloppen

[Sensei_D]

Ab_dullah schreef op woensdag 08 december 2004 @ 14:11:
Ik heb het net ff snel uitgetest op een database waar ik zelf mee bezig ben, maar wat jij doet werkt bij mij perfect.... Ik heb dus eerder het idee dat er iets fout zit in je query...

Met de filter optie van access gaat het ook goed maar ook dan geld dat eerst je query zal moeten kloppen

OMG ja je hebt gelijk. Ik zie net dat ik een veld probeer op te zoeken ([IB_Opdrachten].[Bestuurder_referentienr]) Maar deze staat helemaal niet in mijn select query...

* Sensei_D schaamt zich nogal

[ksmedts]

waren alle problemen maar zo simpel op te lossen, ik ga weer ruzie maken met de fout in m'n eigen updatequery.....