Avatar billede dm013 Nybegynder
11. oktober 2002 - 14:27 Der 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?
Avatar billede domino1977 Nybegynder
11. oktober 2002 - 14:30 #1
Hvad med at lave en forespørgelse???
Avatar billede terry Ekspert
11. oktober 2002 - 14:35 #2
When you say "lille udgav" do you mean MSDE? If you are talking about attaching a dB then I dont think I can help you, sorry!
Avatar billede proaccess Nybegynder
11. oktober 2002 - 14:35 #3
http://www.eksperten.dk/spm/243772

Du skal oprette "min" funktion, og kalde den med:

=strListOfValues("SELECT [tanknr] FROM tabelNavn WHERE [prod_dag]=Forms!Ffag!proddag AND [bt_id]=Forms!Ffag!BTank")
Avatar billede terry Ekspert
11. oktober 2002 - 14:38 #4
hi proaccess>I think you hit the wrong question here!
Avatar billede terry Ekspert
11. oktober 2002 - 14:40 #5
?
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)
Avatar billede proaccess Nybegynder
11. oktober 2002 - 14:44 #6
>Terry: it seems that you really need a weekend...  have a nice one!
Avatar billede terry Ekspert
11. oktober 2002 - 14:46 #7
thanks, the same to you :o)
Avatar billede dm013 Nybegynder
11. oktober 2002 - 14:52 #8
proaccess>>> skal jeg indsætte ovenstående i teksboksen på formularen?
Avatar billede proaccess Nybegynder
11. oktober 2002 - 14:56 #9
Yep!  Efter at du har lavet funktionen fra referencen, jeg gav dig...
Avatar billede dm013 Nybegynder
11. oktober 2002 - 15:21 #10
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?
Avatar billede dm013 Nybegynder
11. oktober 2002 - 15:22 #11
too few parameters, expected 2.
Avatar billede proaccess Nybegynder
12. oktober 2002 - 09:28 #12
Dit kald skal være:

=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
Avatar billede dm013 Nybegynder
23. oktober 2002 - 18:03 #13
proaccess>>> undskyld den lange reponstid. jeg har gjort som du skiver i det sidste af dine svar (kører Access 2000) men feltet viser barer #Navn?

hvad gør jeg galt?
Avatar billede dm013 Nybegynder
23. oktober 2002 - 19:09 #14
Doohhh, min egen skyld
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester