Retuner værdi til anden funktion

Hej

Jeg 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