I have been pulling my hair out over this. Essentially, I am trying execute a table update with x basic (called from a button push on a form). The function opens the table, finds a record and updates 6 fields. I am can't find my error. Any help is appreciated.
Error message:
Fatal error executing Ajax callback: Error executing Ajax callback. Error executing Ajax callback function 'Complete_FollowUp_Audit ': command: tbl_aud.update()
An unhandled exception (c0000005) was generated.
X Basic Code:
function Complete_FollowUp_Audit as c (e as p)
dim a_pf as c = e.dataSubmitted.Passfail
dim a_ar as c = e.dataSubmitted.Audit_record
dim ncar as c = e.dataSubmitted.new_corrective_action_number
dim comm as c = e.dataSubmitted.Comments
dim issu as c = e.dataSubmitted.CA_Issued_1
dim d_date as c = e.dataSubmitted.Close_date
dim vdate as d = ctod(d_date)
dim close as c = "Yes"
dim tbl_aud as P
tbl_aud = table.open("c:\noel_db\new_audit.dbf",file_rw_shared)
also tried tbl_aud = table.open("[PathAlias.ADB_Path]\new_audit")
DIM a5_operation_order as C
a5_operation_order = "recno()"
query.order = a5_operation_order
DIM a5_operation_filter as C
a5_operation_filter = "Audit_id = " + quote(a_ar)
query.filter = a5_operation_filter
query.options = "I"
query.description = "Temporary Query"
i_indx = tbl_aud.query_create("N")
update.fields = 6
update.field1 = "Results_Of_Audit"
update.expr1 = quote(a_pf)
update.field2 = "Ca_Issued"
update.expr2 = quote(issu)
update.field3 = "Ca_Number"
update.expr3 = quote(ncar)
update.field4 = "Comments"
update.expr4 = quote(comm)
update.field5 = "Close_Date"
update.expr5 = s_quote(vdate)
update.field6 = "Closed"
update.expr6 = quote(close)
tbl_aud.update()
tbl_aud.close()
end function
Again, Any help is appreciated.
Steve
Error message:
Fatal error executing Ajax callback: Error executing Ajax callback. Error executing Ajax callback function 'Complete_FollowUp_Audit ': command: tbl_aud.update()
An unhandled exception (c0000005) was generated.
X Basic Code:
function Complete_FollowUp_Audit as c (e as p)
dim a_pf as c = e.dataSubmitted.Passfail
dim a_ar as c = e.dataSubmitted.Audit_record
dim ncar as c = e.dataSubmitted.new_corrective_action_number
dim comm as c = e.dataSubmitted.Comments
dim issu as c = e.dataSubmitted.CA_Issued_1
dim d_date as c = e.dataSubmitted.Close_date
dim vdate as d = ctod(d_date)
dim close as c = "Yes"
dim tbl_aud as P
tbl_aud = table.open("c:\noel_db\new_audit.dbf",file_rw_shared)
also tried tbl_aud = table.open("[PathAlias.ADB_Path]\new_audit")
DIM a5_operation_order as C
a5_operation_order = "recno()"
query.order = a5_operation_order
DIM a5_operation_filter as C
a5_operation_filter = "Audit_id = " + quote(a_ar)
query.filter = a5_operation_filter
query.options = "I"
query.description = "Temporary Query"
i_indx = tbl_aud.query_create("N")
update.fields = 6
update.field1 = "Results_Of_Audit"
update.expr1 = quote(a_pf)
update.field2 = "Ca_Issued"
update.expr2 = quote(issu)
update.field3 = "Ca_Number"
update.expr3 = quote(ncar)
update.field4 = "Comments"
update.expr4 = quote(comm)
update.field5 = "Close_Date"
update.expr5 = s_quote(vdate)
update.field6 = "Closed"
update.expr6 = quote(close)
tbl_aud.update()
tbl_aud.close()
end function
Again, Any help is appreciated.
Steve
Comment