Code:
Private Sub Save_Record_Click()
Dim strSQL As String
strSQL = "INSERT INTO ATF_Base (ATF_ID, First_Intimation_HO, Request_Date, Transferor_Location, Autorized_Person, Autorized_Person_Designation, Autorized_Person_Emp_ID, Autorized_Person_Signature, Security_Name, Security_Signature, Security_Gate_Pass_No, Transferee_Location, Date_of_Transfer, Transferee_Authorized_Person, Transferee_Authorized_Person_Designation, Transferee_Authorized_Person_Emp_ID, Transferee_Authorized_Person_Signature, Transferee_Security_Name, Transferee_Security_Signature, Transferee_Security_Gate_Pass_No, Admin_User_Name, Admin_User_Designation, Admin_User_Emp_ID, Admin_User_Signature, Admin_Head_Approval, Admin_Head_Approval_Date, HO_Commercial_Approval, HO_Commercial_Approval_Date," & vbCrLf
strSQL = strSQL & "Scan_Image_Link, Handover_to_Finance_date, Receiving_Confirmation_Mail_Link, ATF_Updation_Confirmation_Status, ATF_Updation_Confirmation_Status_Email_Link)" & vbCrLf
strSQL = strSQL & "VALUES('" & Me.ATF_ID.Value & "',#" & Me.First_Intimation_HO.Value & "#,#" & Me.Request_Date.Value & "#, " & Me.Transferor_Location.Value & "," & Me.Autorized_Person.Value & "," & Me.Autorized_Person_Designation.Value & " , " & Me.Autorized_Person_Emp_ID.Value & " , " & Me.Autorized_Person_Signature.Value & " , " & Me.Security_Name.Value & " , " & Me.Security_Signature.Value & " , " & Me.Security_Gate_Pass_No.Value & "," & vbCrLf
strSQL = strSQL & "" & Me.Transferee_Location.Value & " ,#" & Me.Date_of_Transfer.Value & "#, " & Me.Transferee_Authorized_Person.Value & " , " & Me.Transferee_Authorized_Person_Designation.Value & " , " & Me.Transferee_Authorized_Person_Emp_ID.Value & " , " & Me.Transferee_Authorized_Person_Signature.Value & " , " & Me.Transferee_Security_Name.Value & " , " & Me.Transferee_Security_Signature.Value & " , " & Me.Transferee_Security_Gate_Pass_No.Value & " , " & Me.Admin_User_Name.Value & " , " & Me.Admin_User_Designation.Value & " , " & Me.Admin_User_Emp_ID.Value & " , " & Me.Admin_User_Signature.Value & " , " & Me.Admin_Head_Approval.Value & " , " & vbCrLf
strSQL = strSQL & "#" & Me.Admin_Head_Approval_Date.Value & "#, " & Me.HO_Commercial_Approval.Value & ",#" & Me.HO_Commercial_Approval_Date.Value & "#, " & Me.Scan_Image_Link.Value & " ,#" & Me.Handover_to_Finance_date.Value & "#, " & Me.Receiving_Confirmation_Mail_Link.Value & " , " & Me.ATF_Updation_Confirmation_Status.Value & " , " & Me.ATF_Updation_Confirmation_Status_Email_Link.Value & " );" & vbCrLf
Debug.Print strSQL
DoCmd.SetWarnings True
CurrentDb.Execute (strSQL)
Me.Refresh
End Sub
any help would be highly appreciated.