Code:
Private Sub cmdimport_Click() Dim i As Integer Dim fromdb As String Dim fromdb2 As String Dim todb As String On Error Resume Next todb = "'" & Forms![AMS Import Utility].txtto & "'" fromdb = Forms![AMS Import Utility].txtfrom fromdb2 = "'"
Private Sub cmdimport_Click() Dim i As Integer Dim fromdb As String Dim fromdb2 As String Dim todb As String On Error Resume Next todb = "'" & Forms![AMS Import Utility].txtto & "'" fromdb = Forms![AMS Import Utility].txtfrom fromdb2 = "'"
Leave a comment: