Zoeken in database VB

[Verwijderd]

ik heb onderstaand script van iemand gebruikt wat zoekt naar een record in een Access database. Werkt prima! Echter zou ik de functie willen uitbreiden zodat hij ook zoekt naar records waar de zoekstring een deel van de omschrijving in het record kan zijn.

zoekopdracht : max

record : max overdrive

resultaat : niet gevonden

ik wil graag dat hij ook records vind waar alles met max in voorkomt.

ik begrijp geen ruk van programmeren dus weet ook niet precies waar ik op moet zoeken in GOT of Google.

--------------------------------------------

Private Sub cmdSearch_Click()
Dim strStudentRef As String
Dim strSearch As String

'Check txtSearch for Null value or Nill Entry first.

If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
MsgBox "Wel een naam invoeren hè!", vbOKOnly, "Mmmm..."
Me![txtSearch].SetFocus
Exit Sub
End If
'---------------------------------------------------------------

'Performs the search using value entered into txtSearch
'and evaluates this against values in uren_naam

DoCmd.ShowAllRecords
DoCmd.GoToControl ("uren_naam")
DoCmd.FindRecord Me!txtSearch

uren_naam.SetFocus
strStudentRef = uren_naam.Text
txtSearch.SetFocus
strSearch = txtSearch.Text

'If matching record found sets focus in uren_naam and shows msgbox
'and clears search control

If strStudentRef = strSearch Then
MsgBox "" & strSearch & " gevonden", , "Toppertje!"
uren_naam.SetFocus
txtSearch = ""

'If value not found sets focus back to txtSearch and shows msgbox
Else
MsgBox "Geen - " & strSearch & " - Gevonden!", _
, "Mmmm..."
txtSearch.SetFocus
End If
End Sub

[.oisyn]

Woeiiii
P&W FAQ - De "quickstart"

Bovendien leveren we geen support op scripts die je niet zelf hebt gemaakt, sorry

[gorgi_19]

ik begrijp geen ruk van programmeren dus weet ook niet precies waar ik op moet zoeken in GOT of Google.

Als je niets van programmeren snapt, dan wordt het ook vrij lastig om uit te gaan leggen wat er mis mee is. Begin eens met een goed boek over de basis van Visual Basic; nu draait het er op uit dat wij de aanpassingen voor jou mogen verrichten.

Hier is PW niet voor bedoeld; dit is bedoeld voor het zelf maken van software. Neem anders contact op met de originele maker van het script, misschien dat hij de aanpassing voor je wilt verrichten.