Use el archivo de texto para proporcionar el valor predeterminado para un campo en el formulario de acceso

Question

Tengo una ventana emergente en los campos de la caja de texto que contiene Microsoft Access que deben completar el usuario, por ejemplo:

First Name:
Last Name:

Ahora estoy tratando de crear un botón que cuando se hace clic en C: \ myTextFile.txt y auto-rellenar esos campos.

Dentro del archivo de texto, se vería así:

##$@#%#$543%#$%#$$#%LAST NAME:BOB#$#@$@#$@#$@#FIRST NAME:DERRICK$#%$#%$#%#$%$#%$#

Esencialmente estoy buscando 3 cosas:

1. para acceder al archivo de texto
2. para analizar los datos
3. para rellenarlo en los cuadros de texto.(Los datos no necesitan ingresar a una tabla hasta que se haga clic en el botón "Guardar" ")

Actualización: Esto es lo que he escrito hasta ahora, no estoy seguro de por qué no está funcionando.

Private Sub LoadText_Click()

    Dim myFile As String myFile = "C:\myFile.txt"
    Me.NameofTextbox = Mid(myFile, 7, 3)

End Sub

Answer 1

Aquí Ejemplo para el archivo que usted proporcionó y controla en el formulario que se denomina txtboxLastName y txtboxFirstName

Dim mFields() As String ' array with fields' names in file
Dim mControls() As String ' corresponding controls' names
Dim mStopChars() As String ' Characters that put after values

Dim tmpstr As String
Dim content As String

Dim i As Long
Dim fStart  As Long
Dim valStart As Long
Dim valEnd As Long
Dim FieldValue As String
Dim j As Long
Dim tmp As Long

' prepare maps

' here : included in field name for common case
mFields = Split("LAST NAME:,FIRST NAME:", ",") 
mControls = Split("txtboxLastName,txtboxFirstName", ",")
mStopChars = Split("#,$,@,%", ",")

' read file into string
Open "c:\mytextfile.txt" For Input As #1

Do While Not EOF(1)
    Input #1, tmpstr
    content = content & tmpstr
Loop

Close #1

' cycle through fields and put their values into controls
For i = LBound(mFields) To UBound(mFields)
    fStart = InStr(1, content, mFields(i))
    If fStart > 0 Then
        valStart = fStart + Len(mFields(i))  'value start at this pos
        'cycle through possible stop chars to locate end of current value
        valEnd = Len(content)
        For j = LBound(mStopChars) To UBound(mStopChars)
            tmp = InStr(valStart, content, mStopChars(j))
            If tmp > 0 Then
                If tmp <= valEnd Then
                    valEnd = tmp - 1
                End If
            End If
        Next j
        ' cut value
        FieldValue = Mid(content, valStart, valEnd - valStart + 1)
        ' assign to control
        Me.Controls(mControls(i)).Value = FieldValue
    End If
Next i