Zoek volgende en vorige

[Mikos85]

Goedemorgen,

Ik ben bezig met een acces database, dit loopt allemaal aardig hoor. Alleen zit ik met het volgende, hopende dat jullie mij kunnen helpen:love:

Ik heb een combobox(fldkeuze) aangemaakt, waar je een zoekveld kan selecteren. En een veld(searchitem) voor de criteria. Ik heb 2 knoppen, ZOEK en ZOEKVOLGENDE. Deze werken ook beide geweldig. Alleen nu wil ik ook een knop ZOEKVORIGE maken.

Een knop die weer terugzoekt naar het eerste record wat weer aan de criteria voldoet. Heb van alles geprobeerd maar geen van mijn codes werken. WIE O WIE?

VBA codes knoppen:

Private Sub ZoekVolgende_Click()
Dim vl_Criteria As String
On Error GoTo Err_ZoekVolgende_Click

vl_Criteria = Me!SearchItem
If Not IsNull(vl_Criteria) Then
Select Case Me!fldkeuze
Case "Naam"
Forms!CWI!naam.SetFocus
Case "Telefoon"
Forms!CWI![telefoon].SetFocus
Case "Adres"
Forms!CWI![adres].SetFocus
Case "Postcode"
Forms!CWI!postcode.SetFocus
Case "Plaatsnaam"
Forms!CWI!plaatsnaam.SetFocus
Case "EANnr"
Forms!CWI!eannr.SetFocus
End Select
vorig_record_nummer = record_nummer
DoCmd.FindRecord vl_Criteria, acAnywhere, False, acSearchAll, False, acCurrent, False
record_nummer = Me.CurrentRecord
If record_nummer = vorig_record_nummer Then
MsgBox "Er zijn geen records meer gevonden"
End If
End If

Exit Sub

Err_ZoekVolgende_Click:
MsgBox Err.Description

End Sub



Private Sub Zoek_Click()
Dim vl_Criteria As Variant
On Error GoTo Err_Zoek_Click

vl_Criteria = Me!SearchItem
If Not IsNull(vl_Criteria) Then
Select Case Me!fldkeuze
Case "Naam"
Forms!CWI!naam.SetFocus
Case "Telefoon"
Forms!CWI![telefoon].SetFocus
Case "Adres"
Forms!CWI![adres].SetFocus
Case "Postcode"
Forms!CWI!postcode.SetFocus
Case "Plaatsnaam"
Forms!CWI!plaatsnaam.SetFocus
Case "EANnr"
Forms!CWI!eannr.SetFocus
End Select
vorig_record_nummer = record_nummer
DoCmd.FindRecord vl_Criteria, acAnywhere, False, acSearchAll, False, acCurrent, True
record_nummer = Me.CurrentRecord
If record_nummer = vorig_record_nummer Then
MsgBox "Klik op de knop 'Volgende zoeken' om naar het volgend record in deze zoekreeks te gaan"
End If
End If

Exit_Zoek_Click:
Exit Sub

Err_Zoek_Click:
MsgBox Err.Description
Resume Exit_Zoek_Click

End Sub



Ik hoop echt dat jullie mij kunnen helpen. Alvast bedankt!:love:

gr Maik

 

[OctaFish]

Is het niet een kwestie van de zoekrichting aanpassen?

Dus i.p.v.

DoCmd.FindRecord vl_Criteria, acAnywhere, False, acSearchAll, False, acCurrent, False
gebruik je:
DoCmd.FindRecord vl_Criteria, acAnywhere, False, acUp, False, acCurrent, False

in de knop ZoekVorige

Ben er niet helemaal zeker van, maar dit zou ik als eerste proberen.

 

[Mikos85]

YES, dat was hem. zo klein iets, zo'n impact haha

bedankt ouwe