I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
zack Jeg mener du blander det lidt sammen, normalt søger man vel i det felt hvor de søgte oplysninger er lagret.
Jeg vedhæfter en kode, der søger efter et efternavn, vel at mærke ikke med jokertegn (*), men du skal skrive hele navnet. koden er skrevet i Access97.
Håber det kan bringe dig lidt videre selv om det ikke er det du egentlig spurgte om, men dette er jo også kun en kommentar.
Dim Svar, MSG, Efternavn As String DoCmd.GoToControl \"Efternavn\" Efternavn = InputBox(Prompt:=\"Indtast Medarbejderens efternavn.\" & Chr$(13) & Chr$(13) & \"\", Title:=\"Find Efternavn\") \'Starter funktionen \"FindRecord\" og åbner Inputbox for indtastning af CPR\' \'DoCmd.GoToControl \"Efternavn\" Me.RecordsetClone.FindFirst \"Efternavn= \'\" & Efternavn & \"\'\" While Me.RecordsetClone.NoMatch = True MSG = Msgbox(Prompt:=\"Du har indtastet efternavnet:\" & Chr$(13) & Chr$(13) & Chr$(9) & Chr$(9) & Chr$(9) & Efternavn & Chr$(13) & Chr$(13) & \"Efternavnet findes ikke i databasen.\" & Chr$(13) & Chr$(13) & \"Klik på Ja for at foretag ny indtastning.\" & Chr$(13) & \"Klik på Nej for at forlade procedüren.\", Title:=\"Indtastningsfejl\", Buttons:=vbYesNo) Select Case MSG Case Is = 6 Kommandoknap84_Click Case Is = 7 GoTo Afslut End Select Efternavn = InputBox(Prompt:=\"Indtast Medarbejderens efternavn.\" & Chr$(13) & Chr$(13) & \"\", Title:=\"Find Efternavn\") \'Starter funktionen \"FindRecord\" og åbner Inputbox for indtastning af Efternavn\' If Efternavn = \"\" Then \'afslutter hvis strengen er tom End Else Me.RecordsetClone.FindFirst \"Efternavn= \'\" & Efternavn & \"\'\" End If End Wend Me.Bookmark = Me.RecordsetClone.Bookmark Afslut: Exit Sub
Okay, i formularhovedet har jeg et felt. Der indtaster jeg søgeværdien. Feltet hedder tekst8.
I detaljesektionen har jeg et felt (tekst0), og det er der, de fundne emner skal vise sig. De poster, som minder om noget det eksisterer i tabellen billeder, felt emne.
Private Sub Tekst8_AfterUpdate() Tekst0.Text=\"\" Dim RA As Recordset Set RA=CurrentDB.OpenRecordSet(\"SELECT * FROM Billeder WHERE Emne Like \'*\" & Tekst8.Text & \"*\';\") WHILE not RA.EOF Tekst0.Text=Tekst0.Text & vbCrLf & RA!Emne RA.MoveNext WEND Set RA=Nothing End Sub
Dette er lavet UDEN test, men burde bringe dig på vej... Altså AfterUpdate på Tekst8 (dit søgefelt)
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.