20. september 2001 - 09:58Der er
5 kommentarer og 1 løsning
Hvordan finder jeg en post
Jeg har fundet en sub til at finde en post med som ser sådan ud:
Sub FindPost()
Dim dbs As Database, rst As Recordset Dim strCriteria As String
\' Returner referencen til den aktuelle database. Set dbs = CurrentDb \' Definer søgekriterierne. strCriteria = \"110\" \' Opret et Recordset-objekt af typen dynamisk udvalg baseret på tabellen Ordrer. Set rst = dbs.OpenRecordset(\"_tblQueryDetail\", dbOpenDynaset) \' Find den første tilsvarende post.
rst.FindFirst (strCriteria)
\' Kontroller, om posten bliver fundet. If rst.NoMatch Then MsgBox \"Der er ikke fundet nogen post.\" Else \' Find andre tilsvarende poster. Do Until rst.NoMatch Debug.Print rst!qrySQL rst.FindNext strCriteria Loop End If rst.Close Set dbs = Nothing End Sub
Når jeg kører den får jeg af vide at udtrykket:
rst.FindFirst (strCriteria)
er invalidt (fejl 3001).
Kan det være fordi at den tabelkollenne jeg søger i er et langt heltal?
AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
Det virker heller ikke, men jeg har fundet en anden måde at klare det på - se nedenstående function:
Public Function RetrieveSQL(ObjectID As String) As String
Dim dbs As Database Dim rst As Recordset Dim strCriteria As String
\' Returner referencen til den aktuelle database. Set dbs = CurrentDb \' Definerer søgekriterie. strCriteria = \"Select qrySql from _tblQueryDetail where objid = \" & ObjectID \' Opret et Recordset-objekt af typen dynamisk udvalg baseret på ovenstående \' søgekriterie. Set rst = dbs.OpenRecordset(strCriteria, dbOpenDynaset)
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.