Bueno ya resolví la parte de importar archivo por medio de un módulo creado para el formulario que va a ejecutar la sentencia...
Para el que le interese o le pueda ser util en un futuro, les dejo el código del mismo.
Código:
Private Sub Form_Open(Cancel As Integer)
' Proposito : Invoca la función Common Dialog GetOpenFileName de Windows
' para permitir al usuario a elegir un archivo txt
' Parámetros : Cancelar -
' Creado/Modificado : 01/07/2003,
On Error GoTo ErrHandler
Dim strFilter As String
Dim Responder As Integer
strFilter = ahtAddFilterItem(strFilter, "Archivos Texto (*.txt)", "*.TXT")
' strFilter = ahtAddFilterItem(strFilter, "dBASE Files (*.dbf)", "*.DBF")
' strFilter = ahtAddFilterItem(strFilter, "Text Files (*.txt)", "*.TXT")
' strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*")
' strPathAndFile = ahtCommonFileOpenSave(InitialDir:="C:\", _
' Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
' DialogTitle:="Elija el archivo TXT a procesar")
strPathAndFile = ahtCommonFileOpenSave(Filter:=strFilter, _
FilterIndex:=3, Flags:=ahtOFN_READONLY, _
DialogTitle:="Elija el archivo TXT a procesar")
' lngFlags, _
If Len(strPathAndFile) > 0 Then
Responder = MsgBox("¿Desea Importar el archivo " & strPathAndFile,_
vbOKCancel, "Importar Archivo")
If Responder = vbOK Then
Importar_txt (strPathAndFile)
MsgBox "Importación de archivo " & IstrPathAndFile & _
" concluida", vbExclamation, "Importación de archivo"
' Resume Exit_Sub
Else
MsgBox "Importación de archivo TXT cancelada", vbExclamation, strPathAndFile
End If
' Me![imgTheImage].Picture = strPathAndFile
Else
MsgBox "No selecciono archivo, no se va a realizar la carga.", _
vbExclamation, "Error, en selección de archivo"
Cancel = True
End If
' Since you passed in a variable for lngFlags,
' the function places the output flags value in the variable.
Exit_Sub:
Exit Sub
ErrHandler:
MsgBox "Error " & Err.Number & " : " & Err.Description & " in Form_Open", _
vbExclamation, "Error, en selección de archivo"
Cancel = True
Resume Exit_Sub
End Sub
Private Function Importar_txt(arch_txt As String) As String
DoCmd.TransferText acImportDelimim, "Especificación de importación", _
"tabla", arch_txt, True
End Function
Para mi propósito, el archivo texto está delimitado por tab, donde cada tab representa fin de un campo los cuales deben corresponder con el de la tabla. Además, el archivo texto DEBE tener inicialmente un registro en blanco ya que como toma el primero como encabezado, lo omite. Si no se deja ese registro en blanco, va a omitir el primer registro.
Las especificaciones de las características del archivo texto estan almacenadas en
Especificación de importación. Para crear estas especificaciones, uno primero realiza la importación por menú, o sea,
Archivo, Obtener datos Externos, Importar, especificar el archivo a importar, seguir el wizard, especificando que se va a importar en una tabla existente y antes de finalizar presionar el botón avanzada, ahi van a ver un boton que dice "guardar como" y ahi especifican el nombre ese nombre es el mismo que use en la funcion DoCmd.TransferText acImportDelimim, "Especificación de importación", "tabla", arch_txt, True y es "Especificación de importación"