Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>Comments added Inline:</p> <pre><code>Private Sub Get_File_Click() Dim fdlg As Office.FileDialog Dim pipe_file As Variant 'Why two vars named 'FileName' and 'file'? Since they are both string, assuming just one of these will do. Dim FileName As String 'Dim file As String Dim fn As Integer 'Need variant variable to get file name Dim varFile As Variant Me.OrigFile.RowSource = "" Me.ConvertFile.RowSource = "" 'Don't use ME here. Unless you have an object named FileName (which I'm not sure why you would in this case) 'Me.FileName = "" FileName = "" Set fdlg = Application.FileDialog(msoFileDialogFilePicker) With fdlg .AllowMultiSelect = False .Title = "Select pipe delimited file" .Filters.Clear .Filters.Add "Text Files", "*.txt" If .Show = True Then 'Never used this code before but this is how you get the file name: 'Seems lame to have three lines of code to get one file name, but I guess this is the way this control works For Each varFile In .SelectedItems FileName = varFile Next varFile 'The invalid code below was causing the error and it is no longer necessary. 'However, also wanted to point out that you are already in a With block for fldg so the fdlg object is not required 'FileName = fdlg.SelectedItems fn = FreeFile 'FreeFile = Good! 'Commented out the line below because file is not used 'Open file For Input As #fn Open FileName For Input As #fn Do While Not EOF(fn) Line Input #fn, pipe_file Me.OrigFile.AddItem pipe_file Loop 'Make sure to close the file too! Close #fn Else MsgBox "You clicked Cancel in the file dialog box." End If End With End Sub </code></pre> <p>Also, one final tip, make sure you have the following line of code declared at the top of your modules:</p> <pre><code>Option Explicit </code></pre> <p>This will prevent you from accidentally typing in the name of a variable incorrectly.</p> <p>You can have the VBA project add this line by default if you click "Tools/Options" and then select "Require Variable Declaration" in the Editor tab.</p>
    singulars
    1. This table or related slice is empty.
    1. POHow to take a browsed text file and put it into a list box VBA
      singulars
      1. PTQuestion
    1. PTAnswer
    1. This table or related slice is empty.
    1. USray
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. POHow to take a browsed text file and put it into a list box VBA
      singulars
      1. PTQuestion
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTAcceptedByOriginator
    1. COOkay it works great! Thank you. I was wondering if there was a way that you could implement a breakline type setting. Like if during the line input it found a specific character it would end the line there and move to the next line. Or does the text file have to already be seperated out like that?
      singulars
      1. PO
      1. USJames213
    2. COI'm not really sure I follow what you're saying, but any type of text parsing is possible. You could read a text file into a single variable and then use the split command to seperate it into an array. Then iterate through the array. This website has an example of reading a text file into a variable: http://www.exceluser.com/explore/questions/vba_textcols.htm Search for "Function GetText"
      singulars
      1. PO
      1. USray
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload