måske kan det her hjælpe! Hvis du altså ligger felterne ind i en listbox:
Public Declare function sendMessageByString& Lib "user32" _ Alias "SendMessageA" (ByVal hwnd as long, _ ByVal wMsg as long, ByVal wParam As Long, _ ByVal lParam As String)
Public Const LB_SELECTSTRING = &H18C Public gFindString As String Public Const gDatabaseName = "C:\DataBasename.mdb"
Private Sub txtfindChange() Dim entryNum As Long Dim txtToFind As String txtToFind = txtfind.txt
entrynum = sendMessageByString(List1.hwnd, LB_SELECTSTRING, 0, txtToFind) End Sub
jeg bliver nød til at havde lidt mere hjælp, jeg ved ikke helt hvor det skal sættes ind henne.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.