Vinkjes verwijderen

[sjobbels]

Hoi,

Ik heb een Formulier met hierin een subformulier gebouwd. Via een zoek button kun je op een aantal onderwerpen een query draaien. De resultaten komen dan mooi in een gegevensblad naar voren. Werkt allemaal prima. Maar nu wil ik graag dat je via een druk op de knop een kolom met vinkjes helemaal leeg maakt. Hoe krijg ik dit voor elkaar?

 

[Bakk4318]

Met een bijwerkquery kun je dat doen.

 

[OctaFish]

Ik neem aan, dat je het over een doorlopend formulier hebt? Dat doe je in dat geval met een Bijwerkquery. Hierbij verander je de waarde van het selectieveld naar 0, of Onwaar of Nee. Deze query kun je dan aftrappen met een knop.

 

[sjobbels]

In het engels is dit toch een requery of niet?

Hoofdformulier : frmSearchHitlist
Subformulier: frmSubSearchHitlist

En het gaat om de kolom: Gaatditjaartenderen (dit zijn ja/nee vinkjes)
Deze moeten dus allemaal uit gevinkt worden aan het einde van dit jaar.

Dit is wat ik tot nu toe heb:

Private Sub cmdClear_Click()

    strSQL = "UPDATE " & conquery & vbCrLf
    strSQL = strSQL & "SET Mailmerge = Null " & vbCrLf
    strSQL = strSQL & "WHERE Gaatditjaartenderen=True"
    DoCmd.RunSQL strSQL
    Me.Form.Requery

End Sub

en dan moet er volgens mij nog iets met "afterUpdate() komen, want dit werkt natuurlijk nog niet. Kunnen jullie mij verder helpen?

 

[OctaFish]

Ik zou het veldje op Onwaar zetten, en niet op Null.

strSQL = "UPDATE " & conquery & vbCrLf
strSQL = strSQL & "SET Mailmerge = 0 " & vbCrLf
strSQL = strSQL & "WHERE Gaatditjaartenderen=True"
DoCmd.RunSQL strSQL
[B]Forms![[COLOR=navy]Subformulier[/COLOR]].Form.Requery[/B]

En verder moet je het subformulier een requery geven, niet je hoofdformulier.

 

[sjobbels]

Hoi Michel,

bedankt voor je snelle reactie.
Ik krijg met deze code een foutmelding:

Fout 3144 tijdens uitvoering de instructie UPDATE bevat een syntaxisfout.

wat doe ik fout?

 

[PaccessB]

sjobbels,

De fout zit waarschijnlijk in de 2e regel van de opbouw van strSQL.
Zet hier tussen het aanhalingsteken en SET een spatie!
Ook kunnen de 2 & vbCrlf weg!

Verder merk ik op dat het veld [Gaatditjaartenderen] (Ja/Nee veld)
door deze bijwerkquery niet wordt bijgewerkt maar het veld Mailmerge.
Het veld [Gaatditjaartenderen] is hier een creterium.

Groeten,

Paul

 

[OctaFish]

@Sjobbels:
Met je code is op zich niks mis, dus die hoef je niet te veranderen. Het enige waar ik mijn twijfels bij heb is de variabele(?) conquery die je gebruikt. Wat moet die voorstellen?
Ik neem aan dat je het bij te werken veld goed hebt gekozen....

 

[sjobbels]

Ik ben er achter gekomen. Heel dom was bovenin het volgende vergeten:

Option Compare Database
Option Explicit
Private Const conquery As String = "qrySearchHitlistTotaal"
Dim strSQL As String

daarna werkt de volgende code wel

Private Sub Knop65_Click()
strSQL = "UPDATE " & conquery & vbCrLf
strSQL = strSQL & "SET Gaatditjaartenderen= Null " & vbCrLf
strSQL = strSQL & "WHERE Gaatditjaartenderen=True"
DoCmd.RunSQL strSQL
Forms![frmSearchHitlistTotaal].Form.Requery
End Sub

En het moest wel op het hoofdformulier ipv subformulier.

Thanks voor jullie hulp.