Knop koppelen aan CTRL+F

[lunatic95]

Er zijn verschillende manieren te vinden om zoekfuncties aan een formulier toe te voegen, maar ze doen allemaal niet wat ik wil. Het standaard dialoogvenster "Zoeken" onder CTRL+F doet dit wel. Kan ik ervoor zorgen dat dit dialoogvenster wordt geopend door op een knop te drukken, met bijvoorbeeld een macro die een toetscombinatie laat uitvoeren? Bij voorbaat dank.

 

[edmoor]

Hang deze achter een knop:
Application.Dialogs(xlDialogFormulaFind).Show

 

[lunatic95]

Aii, deze zou moeten werken, maar ik krijg toch een foutmelding.

Private Sub Zoeken_Click()
   Application.Dialogs(xlDialogFormulaFind).Show
End Sub

Compileerfout:

Kan de methode of het gegevenslid niet vinden.

De naam van de knop is sowieso correct, dus er gaat ergens anders iets niet goed.

 

[edmoor]

Je sub doet het hier prima. Weet je zeker dat het in die sub fout gaat en niet en niet in evt. andere code die je hebt? Welke versie van Office gebruik je?

 

[lunatic95]

Private Sub Kader98_AfterUpdate()
   Select Case Kader98.Value
      Case 1
         Hiddenbox.Value = "dhr."
      Case 2
         Hiddenbox.Value = "mevr."
   End Select
End Sub

Private Sub Zoeken_Click()
   Application.Dialogs(xlDialogFormulaFind).Show
End Sub

Dit is alles wat nu nog van mijn code over is, en de bovenste werkt gewoon goed. Pas als ik jouw Sub toevoeg, dan gaat het mis. Ik gebruik Access 2010 trouwens.

En hier nog even ter illustratie:

 

[edmoor]

Ok, neem me niet kwalijk.
Ik heb er niet op gelet dat het om Access gaat. My bad.

Voor Access is het volgens mij dit:
DoCmd.RunCommand acCmdFind

Ik weet weinig van Access maar voelde me verplicht het voor je op te zoeken

 

[lunatic95]

Oh, super! Ik ga het meteen even proberen. Bedankt dat je het even wilde opzoeken, want ik was er zelf al niet meer uitgekomen.

EDIT: Werkt perfect! Grote klasse! :thumb:

 

[edmoor]

Graag gedaan. Laat je nog even weten of het werkt?