I have this code on the after validate for a dialog the name of the field on the dialog is postyear and set it "C". But I am getting "data mismatch error".
help says if you use CurrentForm.Controls.nameofcontrol (postyear) it is character.
'code for posting history for finished.dbf
DIM Append as P
a_tbl = table.open("finished_history")
append.t_db = "finished"
append.m_key = "Autoid+Itemcode"
append.t_key = "Autoid+Itemcode"
append.m_filter = ""
append.t_filter = ""
append.type = "Unique only"
append.m_count = 14
append.m_field1 = "AUTOID"
append.m_exp1 = "@FINISHED->AUTOID"
append.m_field2 = "ITEMCODE"
append.m_exp2 = "@FINISHED->ITEMCODE"
append.m_field3 = "LOTNUMBER3"
append.m_exp3 = "@FINISHED->LOTNUMBER3"
append.m_field4 = "TIMEPACKAGED"
append.m_exp4 = "@FINISHED->TIMEPACKAGED"
append.m_field5 = "QTY"
append.m_exp5 = "@FINISHED->QTY"
append.m_field6 = "CUSTDEFINE"
append.m_exp6 = "@FINISHED->CUSTDEFINE"
append.m_field7 = "GRADE"
append.m_exp7 = "@FINISHED->GRADE"
append.m_field8 = "PRINTED"
append.m_exp8 = "@FINISHED->PRINTED"
append.m_field9 = "USER"
append.m_exp9 = "@FINISHED->USER"
append.m_field10 = "MAS90X"
append.m_exp10 = "@FINISHED->MAS90X"
append.m_field11 = "USEREXPORT"
append.m_exp11 = "@FINISHED->USEREXPORT"
append.m_field12 = "USERDF1"
append.m_exp12 = "@FINISHED->USERDF1"
append.m_field13 = "DATEPOST"
append.m_exp13 = "now()"
append.m_field14 = "Historyyear" ' this field is character length 4
append.m_exp14 = CurrentForm.Controls.postyear
'append.m_exp14 = "\"2009\""
append.t_count = 0
a_tbl.append()
a_tbl.close()
END
Nicholas
help says if you use CurrentForm.Controls.nameofcontrol (postyear) it is character.
'code for posting history for finished.dbf
DIM Append as P
a_tbl = table.open("finished_history")
append.t_db = "finished"
append.m_key = "Autoid+Itemcode"
append.t_key = "Autoid+Itemcode"
append.m_filter = ""
append.t_filter = ""
append.type = "Unique only"
append.m_count = 14
append.m_field1 = "AUTOID"
append.m_exp1 = "@FINISHED->AUTOID"
append.m_field2 = "ITEMCODE"
append.m_exp2 = "@FINISHED->ITEMCODE"
append.m_field3 = "LOTNUMBER3"
append.m_exp3 = "@FINISHED->LOTNUMBER3"
append.m_field4 = "TIMEPACKAGED"
append.m_exp4 = "@FINISHED->TIMEPACKAGED"
append.m_field5 = "QTY"
append.m_exp5 = "@FINISHED->QTY"
append.m_field6 = "CUSTDEFINE"
append.m_exp6 = "@FINISHED->CUSTDEFINE"
append.m_field7 = "GRADE"
append.m_exp7 = "@FINISHED->GRADE"
append.m_field8 = "PRINTED"
append.m_exp8 = "@FINISHED->PRINTED"
append.m_field9 = "USER"
append.m_exp9 = "@FINISHED->USER"
append.m_field10 = "MAS90X"
append.m_exp10 = "@FINISHED->MAS90X"
append.m_field11 = "USEREXPORT"
append.m_exp11 = "@FINISHED->USEREXPORT"
append.m_field12 = "USERDF1"
append.m_exp12 = "@FINISHED->USERDF1"
append.m_field13 = "DATEPOST"
append.m_exp13 = "now()"
append.m_field14 = "Historyyear" ' this field is character length 4
append.m_exp14 = CurrentForm.Controls.postyear
'append.m_exp14 = "\"2009\""
append.t_count = 0
a_tbl.append()
a_tbl.close()
END
Nicholas
Comment