Big scale check-box input logging?

[cheekybuddha]

I'm not exactly sure what you're doing here, but see if doing it this way works any better:

Private Sub btnFinalise_Click()

  With Me
    If .Dirty Then .Dirty = False
    CurrentDb.Execute "UPDATE dbServis SET " & _
                        "SerStatus = '-1', " & _
                        "SerDatum = " & Format(Now, "\#yyyy\-mm\-dd hh:nn:ss\#") & ", " & _
                        "SerFinishedBy = '" & TempVars("UserName") & "' " & _
                      "WHERE  ID LIKE '" & .txtID & "';"
  End With

End Sub

Are ID and SerStatus really Text datatype ???

hth,

d

 

[mamradzelvy]

I'm not exactly sure what you're doing here, but see if doing it this way works any better:

Private Sub btnFinalise_Click()

  With Me
    If .Dirty Then .Dirty = False
    CurrentDb.Execute "UPDATE dbServis SET " & _
                        "SerStatus = '-1', " & _
                        "SerDatum = " & Format(Now, "\#yyyy\-mm\-dd hh:nn:ss\#") & ", " & _
                        "SerFinishedBy = '" & TempVars("UserName") & "' " & _
                      "WHERE  ID LIKE '" & .txtID & "';"
  End With

End Sub

Are ID and SerStatus really Text datatype ???

hth,

d

Well, no. ID is autonumber but txtID is a textbox and SerStatus is a yes/no field. This Code doesn't result in an error, thank you!

 

[cheekybuddha]

Well, no. ID is autonumber but txtID is a textbox and SerStatus is a yes/no field. This Code doesn't result in an error, thank you!

So, since these are not text datatypes, you don't need to use quotes around their values in the SQL:

' ...
    CurrentDb.Execute "UPDATE dbServis SET " & _
                        "SerStatus = True, " & _
                        "SerDatum = " & Format(Now, "\#yyyy\-mm\-dd hh:nn:ss\#") & ", " & _
                        "SerFinishedBy = '" & TempVars("UserName") & "' " & _
                      "WHERE  ID LIKE " & .txtID & ";"
' ...

d