I have a dialog that has 2 entries.
Employee_involved
and
Procedure_num
These are used to select an employee name from a drop down list and a procedure number from a different list.
upon execute i want to go to my trainingdev table to find the record associated with the employee and procedure and change a field to today's date
the following code works if I hard wire the employee name in and the procedure name.
dim a_tbl as p
a_tbl = table.open("[PathAlias.ADB_Path]\trainingdev")
dim expr1 as d
DIM a5_operation_order as C
a5_operation_order = "recno()"
query.order = a5_operation_order
DIM a5_operation_filter as C
a5_operation_filter = "Employee_name = \"Doug Tarmann\" .and. Procedure_number = \"A097\""
query.filter = a5_operation_filter
query.options = "I"
query.description = "Temporary Query"
i_indx = a_tbl.query_create("N")
update.fields = 1
update.field1 = "Date_Expires"
update.expr1 = "DATE()"
a_tbl.update()
end function
What I am trying to do is create the filter to use the data from the dialog form
I have tried substituting the following in the filter statement Please help this non-programer understand his error
dim vEmpl as c = e.datasubmitted.Employee_involved
dim vProcd as c = e.datasubmitted.Procedure_num
a5_operation_filter = Employee_name = "+quote(vEmpl)+" .and. Procedure_number = "+quote(vProcd)
Any help would be appriciated
Employee_involved
and
Procedure_num
These are used to select an employee name from a drop down list and a procedure number from a different list.
upon execute i want to go to my trainingdev table to find the record associated with the employee and procedure and change a field to today's date
the following code works if I hard wire the employee name in and the procedure name.
dim a_tbl as p
a_tbl = table.open("[PathAlias.ADB_Path]\trainingdev")
dim expr1 as d
DIM a5_operation_order as C
a5_operation_order = "recno()"
query.order = a5_operation_order
DIM a5_operation_filter as C
a5_operation_filter = "Employee_name = \"Doug Tarmann\" .and. Procedure_number = \"A097\""
query.filter = a5_operation_filter
query.options = "I"
query.description = "Temporary Query"
i_indx = a_tbl.query_create("N")
update.fields = 1
update.field1 = "Date_Expires"
update.expr1 = "DATE()"
a_tbl.update()
end function
What I am trying to do is create the filter to use the data from the dialog form
I have tried substituting the following in the filter statement Please help this non-programer understand his error
dim vEmpl as c = e.datasubmitted.Employee_involved
dim vProcd as c = e.datasubmitted.Procedure_num
a5_operation_filter = Employee_name = "+quote(vEmpl)+" .and. Procedure_number = "+quote(vProcd)
Any help would be appriciated
Comment