Can anyone assist me in saving the information that is showing on my form to a different table. The table that I want to save it to is called Leave Control Log. The system locks up on the first line (DIM DB As Database). Can any see where I messed up. Thank you for your help.
Dim DB As Database
Dim RST As Recordset
Set DB = CurrentDb
Set RST = DB.OpenRecordset (“Leave Control Log”)
RST.AddNew
RST!Leave Number = Forms!Input Data Lv Log!Leave Number
RST!Issue Date = Forms!Input Data Lv Log!Issue Date
RST!Full Name = Forms!Input Data Lv Log!Full Name
RST!Unit Desc = Forms!Input Data Lv Log!Unit Desc
RST!Grade Desc = Forms!Input Data Lv Log!Grade Desc
RST!Current Duty Phone= Forms!Input Data Lv Log!Current Duty Phone
RST!SSAN = Forms!Input Data Lv Log!SSAN
RST!Leave From = Forms!Input Data Lv Log!Leave From
RST!Leave To = Forms!Input Data Lv Log!Leave To
RST!Leave Type = Forms!Input Data Lv Log!Leave Type
Set RST = Nothing
Set DB = Nothing
Dim DB As Database
Dim RST As Recordset
Set DB = CurrentDb
Set RST = DB.OpenRecordset (“Leave Control Log”)
RST.AddNew
RST!Leave Number = Forms!Input Data Lv Log!Leave Number
RST!Issue Date = Forms!Input Data Lv Log!Issue Date
RST!Full Name = Forms!Input Data Lv Log!Full Name
RST!Unit Desc = Forms!Input Data Lv Log!Unit Desc
RST!Grade Desc = Forms!Input Data Lv Log!Grade Desc
RST!Current Duty Phone= Forms!Input Data Lv Log!Current Duty Phone
RST!SSAN = Forms!Input Data Lv Log!SSAN
RST!Leave From = Forms!Input Data Lv Log!Leave From
RST!Leave To = Forms!Input Data Lv Log!Leave To
RST!Leave Type = Forms!Input Data Lv Log!Leave Type
Set RST = Nothing
Set DB = Nothing