ernstcramer
Gebruiker
- Lid geworden
- 14 dec 2015
- Berichten
- 66
ik heb de volgende code gebruikt:
Die werkt perfect: bij activeren van de filterknop wordt nummer 1-6 als keuze voor [materieelsoort] ingevuld en wordt de DB gefilterd.
Nu heb ik de volgende code toegevoegd voor een nieuw filter:
Ik vraag dus een (deel van) een artikelnummer, en koppel dat aan [art] ui de database.
maar nu krijg ik een foutmelding:
wat doe ik fout? want je ziet volgens mij het correcte filter staan?
Code:
For II = 1 To 14
If II < 8 Then
If Me("FilterKnop" & II).Name = FK Then
curFK = FK
Me("FilterKnop" & II).ForeColor = "32768"
Me.Filter = "[materieelsoort]=" & II
Me.FilterOn = True
Else
Me("FilterKnop" & II).ForeColor = "16711680"
End If
End If
If II = 8 Then
tbHidden.SetFocus
Forms![F_MBC]![hF_grpPATHbtn].Visible = False
Me.dbTitle.Visible = True
For I = 1 To 9
Me("FilterKnop" & I).Visible = True
Next I
Me.FilterKnop8.Visible = False
End If
Next II
Die werkt perfect: bij activeren van de filterknop wordt nummer 1-6 als keuze voor [materieelsoort] ingevuld en wordt de DB gefilterd.
Nu heb ik de volgende code toegevoegd voor een nieuw filter:
Code:
If II = 9 Then
tbHidden.SetFocus
TestArt = InputBox("Geef-deel van-Artikelnr", "art.nr?", "*")
Me.Filter = "[art]=" & TestArt
Me.FilterOn = True
End If
Ik vraag dus een (deel van) een artikelnummer, en koppel dat aan [art] ui de database.
maar nu krijg ik een foutmelding:
wat doe ik fout? want je ziet volgens mij het correcte filter staan?