<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>Hello everyone,</DIV>
<DIV> </DIV>
<DIV>I’m getting another error code that I can’t figure out. The ErrorCode is
144648.</DIV>
<DIV> </DIV>
<DIV>I’ve looked over my sql query and I can’t find anything that would cause an
error.</DIV>
<DIV>Looking through all of the variables in the debugger, everything looks good
to me,</DIV>
<DIV>but it helps to have someone else look sometimes.</DIV>
<DIV> </DIV>
<DIV>If anyone can pick out what could be causing my error or possibly know what
the error code means I would be very grateful.</DIV>
<DIV> </DIV>
<DIV>I’ve been staring at it for too long.</DIV>
<DIV> </DIV>
<DIV>Dim sql As String = "UPDATE maint_payments SET " & _</DIV>
<DIV> "is_void = :1, " & _</DIV>
<DIV> "payment_amount = :2, " & _</DIV>
<DIV> "payment_date = :3, " & _</DIV>
<DIV> "payment_memo = :4, " & _</DIV>
<DIV> "payment_ref = :5, " & _</DIV>
<DIV> "record_ts = :6 " & _</DIV>
<DIV> "WHERE pk = :7"</DIV>
<DIV> </DIV>
<DIV>Dim binds(7) As String</DIV>
<DIV>binds(0) = Me.IsVoid</DIV>
<DIV>binds(1) = Me.PaymentAmount</DIV>
<DIV>binds(2) = Me.PaymentDate</DIV>
<DIV>binds(3) = Me.PaymentMemo</DIV>
<DIV>binds(4) = Me.PaymentReference</DIV>
<DIV>binds(5) = FormatDB_Date(Me.RecordTS)</DIV>
<DIV>binds(6) = Me.Key</DIV>
<DIV> </DIV>
<DIV>If mData.OpenDatabase Then</DIV>
<DIV> Try</DIV>
<DIV> mData.db.SqlExecute(sql,
binds)</DIV>
<DIV> Catch ex As VException</DIV>
<DIV> If ex.ErrorCode > 0
Then</DIV>
<DIV>
MsgBox("Valentina Error Code: " & ex.ErrorCode.ToString)</DIV>
<DIV> End If</DIV>
<DIV> _err_msg = ex.Message</DIV>
<DIV> Finally</DIV>
<DIV> mData.CloseDatabase()</DIV>
<DIV> End Try</DIV>
<DIV>Else</DIV>
<DIV> _err_msg = mData.ErrorMessage</DIV>
<DIV>End If</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>Best Regards,</DIV>
<DIV>Johnny Harris</DIV></DIV></DIV></BODY></HTML>