Access query criteria aanpassen

[Tweety1]

Via onderstaande query probeer ik criteria aan te passen.
Dit werkt op zich wel. Wat niet goed gaat is dat hij alle andere veld namen die in de query staan verwijderd.
Hoe kan ik dit oplossen?

Private Sub updateQuery()
    Dim db As dao.Database
    Set db = CurrentDb
    Dim qdf As dao.QueryDef
    
    Set qdf = db.QueryDefs("Test")
    qdf.SQL = "Select * From [Tabel1] WHERE [Locatie]='HR'"
End Sub

Mvg
Kasper

 

[OctaFish]

Ik snap het niet; met SELECT * selecteer je per definitie alle veldnamen; hoe krijg je het dan voor elkaar dat je niet alle veldnamen (dus kolommen) krijgt?

 

[Tweety1]

Denk dat het komt doordat er vanuit verschillende tabellen gegevens samengevoegd worden.

 

[LucHeyndrickx]

Maak eens gewoon een query, zoals je die wenst, en kijk dan naar de SQL code.
Als dit geen oplossing is, is je vraag behoorlijk onduidelijk.

 

[OctaFish]

Denk dat het komt doordat er vanuit verschillende tabellen gegevens samengevoegd worden.

Dat doe je dus niet; in je voorbeeldje staat maar één tabel, en daar zit dus ook geen Join in. Sowieso zou je óók dan met * alle velden zien. Ben je niet in de war met het filter?

 

[OctaFish]

Daarnaast heeft deze vraag weinig met VBA te maken, en is het gewoon een Access vraag. Of denk je dat de VBA specialisten meer weten dan de Access kenners?

 

[LucHeyndrickx]

SELECT is eigenlijk ook geen update, maar een gewone selectiequery.

Doe eens het volgende:
Maar een gewone query (UPDATE; SELECT; enz.)
Ga vervolgens naar de sql code, en kopieer deze. Gebruik dit copy dan in je VBA code.

Dim sql as String
sql = "Uw gekopieerde sql"
Docmd.runsql sql

Je sql code kan je ook bewerken door variabelen aan toe te voegen:

sql = "Select * From [Tabel1] WHERE [Locatie]='" & InputBox("Geef de locatie") & "'"

 

[OctaFish]

Ik denk dat het handiger is om eerst eens te kijken wat TS nou wil, i.p.v. een complete SQL cursus in de strijd te gooien .

 

[Tweety1]

@ LucHeyndrickx: Bedankt voor het op weg helpen. Ik heb sql gekopieerd. VBA werkt nu goed.
@ OctaFish: Ik heb de vraag gestel in "VBA (Visual Basic for Appl.)" forum. Omdat ik dacht dat VBA gerelateerde vragen daar gevraagd dienen te worden. Achteraf misschien niet zo handig.

 

[OctaFish]

Kijk eens naar het Excel forum: daar barst het van de Excel gerelateerde VBA vragen. En zo hoort dat uiteraard ook met Access gerelateerde VBA probleempjes. Eigenlijk, als je het zuiver bekijkt, zou je in het VBA forum alleen specifieke VBA gerelateerde vragen moeten stellen.