Public Function SparaProjektTimme()
Dim SummaTim As String
Dim DBFileName As String


Dim Dcon As ADODB.Connection
Dim RS As ADODB.Recordset

DBFileName = App.Path & "\Dagbok.mdb"



Set Dcon = New ADODB.Connection
Set RS = New ADODB.Recordset

Dcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source=" & DBFileName

SummaTim = frmNYDag.textTimmar.Text


RS.Open "UPDATE TBL_Projektlogg Set SummaTim = SummaTim + frmNYDag.textTimmar.Text WHERE ProjektNummer='" & frmNYDag.txtProjektNr.Text & (SummaTim) & Values(" & "" & SummaTim & "" & "), Dcon
Dcon.Close

End Function

Jag får inte detta att funka, någon som ser felet?

/Tomas

En av de mest creativa fråga/funktion jag sett. Jag skulle skrivit den såhär:

Public Function SparaProjektTimmar(Timmar as Variant, ProjektNr as Variant)
Dim Dcon As ADODB.Connection
Dim strSQL As String
Dim DBFileName As String

DBFileName = App.Path & "\Dagbok.mdb"

Set Dcon = New ADODB.Connection

Dcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source=" & DBFileName

SummaTim = frmNYDag.textTimmar.Text


strSQL = "UPDATE TBL_Projektlogg SET SummaTim = SummaTim + " & SQLNumber(Timmar) & vbCrLf & _
"WHERE ProjektNummer='" & ProjektNr & "'"

Dcon.Execute strSQL
Dcon.Close
End Function

Public Function SQLNumber(Value As Variant) As String
If IsNumeric(Value) Then
SQLNumber = Replace(CStr(Value),Format$(0,"."),".")
Else
SQLNumber = "0"
End If
End Function

Om du anropar SparaProjektTimmar i frmNYDag Skriver du:
SparaProjektTimmar textTimmar.Text, txtProjektNr.Text

Annars skriver du:
SparaProjektTimmar frmNYDag.textTimmar.Text, frmNYDag.txtProjektNr.Text

Tack än en gång Andreas.