13. marts 2001 - 14:09Der er
6 kommentarer og 1 løsning
Funktion med læs i database
I en funktion har jeg brug for at slå et datafelt op i en record, hvor datafeltets navn er indeholdt i funktionen:
public function readtxt (resultat) ... ... for t = 1 to rst.recordcount if fundetrecord = 5 then readtxt = rst!resultat ======> Se nedenfor ..... .... Hvordan skrives indholdet fra funktionen \"resultat\" som navnet på det felt der skal slåes op i databasen?
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.
Public Function ReadTxt(felt As String) Dim RA As Recordset, A As Long Set RA = CurrentDb.OpenRecordset(\"MinTabel\") For A = 0 To RA.RecordCount MsgBox RA(felt) RA.MoveNext Next Set RA = Nothing End Function
Public Function testTxt() MsgBox ReadTxt(\"MinKolonne\")
Det var bare mig, som var lidt for hurtig, jeg havde \"glemt\" en .MoveNext i min løkke...
Undskyld ulejligheden !! ;-)
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.