Alleen gefilterde records

[wacco]

Hallo,

Ik heb een form, wat gebaseerd is op een query, welke weer is gebaseerd op de hoofd tabel
In dit form is ook een ja/nee veld opgenomen (Veldnaam : LabelPrint)
Op dit form heb ik de mogelijkheid, om verschillende filters toe te passen.
Nu zou ik graag willen dat ik d.m.v. een knop bij alle records de ja/nee keuze op ja kan zetten.
Maar dan wel alleen bij de records die worden getoond na een van de filteringen.
Alle records in de onderliggende tabel veranderen, lukt wel met op een engels talige site gevonden code.

Deze code is misschien handig voor anderen, hieronder dus bijgevoegd :
(hierdoor wordt de waarde van alle LabelPrint velden False)

On Error GoTo Error_routine
Dim strSQL As String

strSQL = "update [TBL-labels] set [TBL-labels].[labelprint]=False"
strlSQL = strSQL & "Where[TBL-labels].[labelprint]=false" & ";"
CurrentDb.Execute strSQL, dbFailOnError
Me.Refresh

Exit_continue:
Exit Sub

Error_routine:
MsgBox "error#" & Err.Number & " " & Err.Description
Resume Exit_continue

Ik hoop dat iemand mij kan helpen.

Gr,

 

[OctaFish]

Ik heb in de andere draad van je al aangegeven waarom deze SQL niet deugt, maar voor de volledigheid hier nog een keer:

strSQL = "UPDATE [TBL-labels] SET [labelprint]=FALSE WHERE [labelprint]=FALSE"

Eén van de 2 moet de waarde TRUE hebben om iets nuttigs te doen. Maar ik vermoed eigenlijk dat je een typfout hebt gemaakt... Overigens is je vraag een kwestie van de filtering uitbreiden. Iets als:

strSQL = "UPDATE [TBL-labels] SET [labelprint]=FALSE WHERE [labelprint]=TRUE AND [Land] = '" & Me.cboLand & "' AND [Geslacht] = '" & Me.cboGeslacht & "'"

bijvoorbeeld, waarbij je alleen de mannen uit Nederland doet waar Labelprint is aangevinkt. Ik zeg maar wat

 

[wacco]

Dankje voor de snelle reactie,

Maar ik denk dat ik het niet goed heb uitgelegd.
In het doorlopend formulier, heb ik een aantal filters, o.a. onderstaande

Private Sub Keuzelijst_rij_AfterUpdate()
'Filteren op rij
Dim strFString As String

strFString = "[rij]='" & Me.Keuzelijst_rij & "'"
            
Me.Filter = strFString
Me.FilterOn = True

In alle records die na deze filtering getoond worden, wil ik het veld LabelPrint (wat een selectievakje ja/nee is) uit en aan kunnen zetten d.m.v. knoppen.
Dus alleen de record na filtering, de andere records welke niet voldoen aan de voorwaarde moeten niet worden aangepast.
Deze zelfde knoppen wil ik bij alle andere filteringen ook gebruiken.

misschien dat het zo wat duidelijker is wat de bedoeling is.

Gr,

 

[OctaFish]

Tja, beter uitleggen dan ik al gedaan heb kan ik het eigenlijk niet, want die oplossing is dus wat jij zoekt. En zonder de db kan ik het niet veel beter uitleggen vrees ik...