Retuner værdi til anden funktion
HejJeg har et problem med et par funktioner, der skal dels hente og
gemme værdier i en Access database.
Jeg har følgende to funktioner i samme class, hvor den sidste skal retuner
en værdi til første funktion, men der bliver ikke hentet andet end værdien
0.
Er der nogen der kan give et hint.
PS. Jeg er altså uerfaren i VB, så undskyld det evt. elemtære spørgsmål.
Public Function Insert_Tidsreg(Konto As String, Maaned As Integer, Aar As
Integer, Timer As Integer) As Boolean
Dim Sted As Integer
Dim Art As Integer
Dim rsIndex As Long
Sted = Val(Mid(Konto, 1, 2))
Art = Val(Mid(Konto, 3, 2))
rsIndex = Select_Index(Sted, Art)
strSQLInsert = \"INSERT INTO Tidsreg (TilladID, Maaned, Aar, Timer)
VALUES (\" & rsIndex & \",\" & Maaned & \",\" & Aar & \",\" & Timer & \")\"
cnTidsreg.Open
cnTidsreg.CursorLocation = adUseClient
cnTidsreg.Execute strSQLInsert
Insert_Tidsreg = True
cnTidsreg.Close
End Function
Public Function Select_Index(Sted As Integer, Art As Integer) As Integer
cnTidsreg.Open
cnTidsreg.CursorLocation = adUseServer
strSQLIndex = \"SELECT Tilladt.TilladID FROM Tilladt WHERE Tilladt.Sted=\"
& Sted & \" AND Tilladt.Art=\" & Art
cnTidsreg.Execute (strSQLIndex)
cnTidsreg.Close
End Function
Med venlig hilsen
David Ipsen
Hej igen igen.
Jeg har stadig et problem med et par funktioner, der skal dels hente og
gemme værdier i en Access database.
Jeg har følgende to funktioner i samme class, hvor den sidste skal retuner
en værdi til første funktion, men der bliver ikke hentet andet end værdien
0.
Er der nogen der kan give et hint.
PS. Jeg er altså uerfaren i VB, så undskyld det evt. elemtære spørgsmål.
Public Function Insert_Tidsreg(Konto As String, Maaned As Integer, Aar As
Integer, Timer As Integer) As Boolean
Dim Sted As Integer
Dim Art As Integer
Dim rsIndex As Long
Sted = Val(Mid(Konto, 1, 2))
Art = Val(Mid(Konto, 3, 2))
rsIndex = Select_Index(Sted, Art)
strSQLInsert = \"INSERT INTO Tidsreg (TilladID, Maaned, Aar, Timer)
VALUES (\" & rsIndex & \",\" & Maaned & \",\" & Aar & \",\" & Timer & \")\"
cnTidsreg.Open
cnTidsreg.CursorLocation = adUseClient
cnTidsreg.Execute strSQLInsert
Insert_Tidsreg = True
cnTidsreg.Close
End Function
Public Function Select_Index(Sted As Integer, Art As Integer) As Integer
cnTidsreg.Open
cnTidsreg.CursorLocation = adUseServer
strSQLIndex = \"SELECT Tilladt.TilladID FROM Tilladt WHERE Tilladt.Sted=\"
& Sted & \" AND Tilladt.Art=\" & Art
cnTidsreg.Execute (strSQLIndex)
cnTidsreg.Close
End Function
Med venlig hilsen
David Ipsen
Hej igen igen.
Jeg har stadig et problem med et par funktioner, der skal dels hente og
gemme værdier i en Access database.
Jeg har følgende to funktioner i samme class, hvor den sidste skal retuner
en værdi til første funktion, men der bliver ikke hentet andet end værdien
0.
Er der nogen der kan give et hint.
PS. Jeg er altså uerfaren i VB, så undskyld det evt. elemtære spørgsmål.
Public Function Insert_Tidsreg(Konto As String, Maaned As Integer, Aar As
Integer, Timer As Integer) As Boolean
Dim Sted As Integer
Dim Art As Integer
Dim rsIndex As Long
Sted = Val(Mid(Konto, 1, 2))
Art = Val(Mid(Konto, 3, 2))
rsIndex = Select_Index(Sted, Art)
strSQLInsert = \"INSERT INTO Tidsreg (TilladID, Maaned, Aar, Timer)
VALUES (\" & rsIndex & \",\" & Maaned & \",\" & Aar & \",\" & Timer & \")\"
cnTidsreg.Open
cnTidsreg.CursorLocation = adUseClient
cnTidsreg.Execute strSQLInsert
Insert_Tidsreg = True
cnTidsreg.Close
End Function
Public Function Select_Index(Sted As Integer, Art As Integer) As Integer
cnTidsreg.Open
cnTidsreg.CursorLocation = adUseServer
strSQLIndex = \"SELECT Tilladt.TilladID FROM Tilladt WHERE Tilladt.Sted=\"
& Sted & \" AND Tilladt.Art=\" & Art
cnTidsreg.Execute (strSQLIndex)
cnTidsreg.Close
End Function
Med venlig hilsen
David Ipsen