11. oktober 2002 - 14:27Der er
13 kommentarer og 1 løsning
Funktion som indsætter fundne værdier
Jeg skal bruge en funktion som indsætter alle "tanknr" for records der opfylder kriterierne "prod_dag"=forms!Ffag!proddag og "bt_id"=forms!Ffag!Btank adskilt af komma i en tekstboks. alle kriterie udtryk er tal. tabellen hedder "Sreg"
Er der en som har det klarsyn jeg ikke har lige nu?
? now I'm puzzled! Here I am looking at one question when an answer to another question pops up. I think eksperten has one or two problems or I drank too much whisky yesterday :o)
får en runtime error: modul: Public Function strListOfValues(strSQL As String) As String Dim RA As Recordset Set RA = CurrentDb.OpenRecordset(strSQL) While Not RA.EOF strListOfValues = strListOfValues & ", " & RA.Fields(0).Value RA.MoveNext Wend Set RA = Nothing strListOfValues = Mid(strListOfValues, 3) End Function
kald: =strListOfValues("SELECT [T_ID] FROM syrereg WHERE [p_id]=me.proddag AND [bt_id]=me.Buffertank")
kan jeg ikke bruge me når jeg står i formularen Ffag?
=strListOfValues("SELECT [T_ID] FROM syrereg WHERE [p_id]=" & me.proddag & " AND [bt_id]=" & me.Buffertank)
Bemærk også at det er Access97-versionen af funktionen, du bruger. Hvis du har Access 2000, så skal du bruge følgende:
Public Function strListOfValues(strSQL As String) As String Dim RA As New ADODB.Recordset RA.Open strSQL, CurrentProject.Connection While Not RA.EOF strListOfValues = strListOfValues & ", " & RA.Fields(0).Value RA.MoveNext Wend Set RA = Nothing strListOfValues = Mid(strListOfValues, 3) End Function
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.