12. november 2004 - 10:58Der er
12 kommentarer og 2 løsninger
Syntax fejl i funktion
Hej...
Jeg får en syntax fejl i denne funktion:
Function visTimer(dbInput, fName) If editable = "ja" Then visTimer = "<input type=""text"" size=""2"" name=""" & fName & """ value=""" & dbInput & """>" Else visTimer = dbInput End If End Function
Fejlen kommer på linje 67, som er den linje hvor funktionen starter (Function visTimer...)
Hvad kan det være? Er det fordi etibale skal globaliseres (som i PHP) og hvordan gør man det...
Som det ser ud her, er editable global. Hvis du dim(er) en variabel uden for en funktion er den global, og kan tilgåes i alle funktioner. Hvis du dim(er) den i en funktion er den intern, og kan ikke tilgåes fra andre funktioner.
eks:
dim editable <-- global variabel editable = "ja" Function visTimer(dbInput, fName) dim enAndenVar <-- intern variabel If editable = "ja" Then visTimer = "<input type=""text"" size=""2"" name=""" & fName & """ value=""" & dbInput & """>" Else visTimer = dbInput End If End Function
Hvad med dbInput og fName. Har du globale variabler, som hedder det samme?
Jeg Dim'er som regel ikke variabler, da jeg synes det er spild af plads :) (Måske også fordi jeg startede med at programmere i PHP, hvor man ikke skal dimensionere sine variabler først...)
Det er jeg med på, men derfor kan du jo godt have andre variabelnavne, der hedder det samme.
dim dbInput, fName ... Function visTimer(dbInput, fName) ... End Function ... dbInput = "et eller andet" fName = "noget andet" resultat = visTimer(rapRs("maFakTimer"), "maFakTimer")
Jeg har aldrig prøvet denne problemstilling (da jeg altid har unikke navne), så jeg ved ikke, om det måske kan være derfor.
Jeg prøvede lige din kode, og der var ingen fejl, så smed jeg en funktion uden om og fik fejlen. Kan du evt smide din kode herind, hvis det heller ikke er det, der er problemet.
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.