bound a text box name to the excel`name importation

[akinamon]

hey guys,



i need your help

i am importing an excel file

for example, the file named ("Assets"), but every time i import a different file.

my question is, how do i bound the excel's file name to an unbound text box name (shown in a form.)?

thanks

[ranman256]

You need to select the file to put in the box.
On button click:
usage:
txtBox = UserPick1File("c:\folder\")

Public Function UserPick1File(ByVal pvFilter, Optional pvPath)
Dim strTable As String
Dim strFilePath As String
Dim sDialog As String, sDecr  As String, sExt As String

'===================
'YOU MUST ADD REFERENCE : Microsoft Office 11.0 Object Library, in vbe menu, TOOLS, REFERENCES
'===================
With Application.FileDialog(msoFileDialogFilePicker)   
    .AllowMultiSelect = False
    .Title = "Locate a file to Import"
    .ButtonName = "Import"
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xls;*.xlsx"
    .Filters.Add "All Files", "*.*"
    .InitialFileName = "c:\"
    .InitialView = msoFileDialogViewList    'msoFileDialogViewThumbnail
    
        If .Show = 0 Then
           'There is a problem
           Exit Function
        End If
    
    'Save the first file selected
    UserPick1File = Trim(.SelectedItems(1))
End With
End Function

[akinamon]

thanks, i will try it.

now, how do i bound another text box to specific field name from the table i have just import the data from excel
for example, i want to bound the textbox' name to the field "street name" (column 1 in the table)

[akinamon]

hey there,
how do i connect this function to "Private Sub NavigationButton9_Click()"?

[akinamon]

You need to select the file to put in the box.
On button click:
usage:
txtBox = UserPick1File("c:\folder\")

Public Function UserPick1File(ByVal pvFilter, Optional pvPath)
Dim strTable As String
Dim strFilePath As String
Dim sDialog As String, sDecr  As String, sExt As String

'===================
'YOU MUST ADD REFERENCE : Microsoft Office 11.0 Object Library, in vbe menu, TOOLS, REFERENCES
'===================
With Application.FileDialog(msoFileDialogFilePicker)   
    .AllowMultiSelect = False
    .Title = "Locate a file to Import"
    .ButtonName = "Import"
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xls;*.xlsx"
    .Filters.Add "All Files", "*.*"
    .InitialFileName = "c:\"
    .InitialView = msoFileDialogViewList    'msoFileDialogViewThumbnail
    
        If .Show = 0 Then
           'There is a problem
           Exit Function
        End If
    
    'Save the first file selected
    UserPick1File = Trim(.SelectedItems(1))
End With
End Function

hey ranman,

where do i add the command: "DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "TblAtarim_from_Mahog", StrFileName, True?" in your function so the the import will Succeed?