Får "Typblandningsfel i vilkorsuttryck" i följande kod och ser inte vad som är fel, finns det någon hygglig själ som kan hjälpa mej att lösa det här?


Anropas så här: SparaProjektTimmar textTimmar.Text, txtProjektNr.Text

<code>
Public Function SparaProjektTimmar(Timmar As Variant, Projektnr As Variant)
Dim Dcon As ADODB.Connection
Dim strSQL As String
Dim DBFileName As String


DBFileName = GetIni("Databasinfo", "Path", App.Path & "\info.ini")

Set Dcon = New ADODB.Connection

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

Timmar = 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
</code>

Hej!

Är lite tveksam mot den här raden:
strSQL = "UPDATE TBL_Projektlogg SET SummaTim = SummaTim + " & SQLNumber(Timmar) & vbCrLf & _
"WHERE ProjektNummer='" & Projektnr & "'"

Är ProjektNummer verkligen av datatypen text och inte tal/räknare? Prova ändra om till

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

Notera att jag la till ett mellanslag mellan citationstecknet och bokstaven W i "WHERE". När det gäller din funktion SQLNumber() så kika svaret på ditt andra inlägg.

Lycka till och lev väl,
Tom S.

Gissar på att det är SummaTim som är fel data typ i databasen. Skall vara tal. Om inte ändra till tal.