invalid argument

[ck4794]

i can open a file dialog with my button, and it call the add attachment code, and in there is an invalid argument that i don't know how to fix. please see attached screen shot.



june7, if you're out there, i know we've discussed this at length but i don't think we ever came to a conclusion on this part...

[ItsMe]

I don't know anything about .LoadFromFile but assuming that is correct...... What does strFilePath = when you hover over it in debug mode?

[ck4794]

I don't know anything about .LoadFromFile but assuming that is correct...... What does strFilePath = when you hover over it in debug mode?

strfilepath=""

[ItsMe]

In order for that line of code to work you are going to need to assign the path of the file you are trying to attach to strFilePath.

It does not seem that your Command0_Click event is assigning the path to strFilePath when it calls the sub procedure.

[ck4794]

Yea I just don't know what to do about it. That level of code is a bit above my head.

[ItsMe]

Yea I just don't know what to do about it. That level of code is a bit above my head.

Maybe you can start by copying and then pasting your code for the click event here. It helps if you use the advanced posting options and enclose your code with code tags. If you click "Go Advanced" you can insert the code tags in your post by clicking the hashtag icon (#)

Your code should be inside the code tags

[ck4794]

Private Sub Command0_Click() Dim fDialog As Office.FileDialog
   Dim varFile As Variant
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fDialog
      ' Allow the user to make multiple selections in the dialog box.
      .AllowMultiSelect = False
          
      ' Set the title of the dialog box.
      .title = "Select a File"


      ' Clear out the current filters, and then add your own.
      .Filters.Clear
      .Filters.Add "All Files", "*.*"


      ' Show the dialog box. If the .Show method returns True, the
      ' user picked at least one file. If the .Show method returns
      ' False, the user clicked Cancel.
      If .Show = True Then
         ' Loop through each file that is selected and then add it to the list box.
      Dim rst As DAO.Recordset
            Const strTable = "tblImages"
            Const strField = "Image"
            Set rst = CurrentDb.OpenRecordset(strTable)
            rst.AddNew
            AddAttachment rst, strField, varFile
            rst.Update
            rst.MoveLast
            rst.Close
      Else
         MsgBox "You clicked Cancel in the file dialog box."
      End If
   End With
End Sub

here's my on click event but that doesn't seem to be a problem. it's just opening a file dialog box and all that seems to be working well. it's directly after i select the file click "OK" in my file dialog the error occurs.

here's the add attachment code i'm using in the general declarations. this is where my issue is coming.

Sub AddAttachment(ByRef rstCurrent As DAO.Recordset, ByVal strFieldName As String, ByVal strFilePath As String)
    Const m_strFieldFileName As String = "FileName" ' The name of the attached file
    Const m_strFieldFileType As String = "FileType" ' The attached file's extension
    Const m_strFieldFileData As String = "FileData" ' The binary data of the file
    Const CALLER = "AddAttachment"
    Dim rstChild  As DAO.Recordset2
    Dim fldAttach As DAO.Field2


    If Dir(strFilePath) = "" Then ' the specified file does not exist!
        MsgBox "The specified input file does not exist: " & vbCrLf & strFilePath, vbCritical, "File not found"
        Exit Sub
    End If


    Set rstChild = rstCurrent.Fields(strFieldName).Value ' the .Value for a complex field returns the underlying Recordset.
    rstChild.AddNew ' add a new row to the child Recordset
    Set fldAttach = rstChild.Fields(m_strFieldFileData) ' set the DAO.Field2 object to the field that holds the binary data.
    fldAttach.LoadFromFile strFilePath ' store the file's contents in the new row.
    rstChild.Update ' commit the new row.
    rstChild.Close ' close the child Recordset.


    Exit Sub
End Sub

[ItsMe]

Let me see if I can find the other thread and get more info. There are some missing pieces here.

[ItsMe]

It seems you may have a general module where a user defined function is. Were you able to compile VBA via the debugger as June7 suggested? What happens when you compile database?

Please do not try to execute the code and then say the error is here. Specificaly, what happens when you go Debugger and then Compile Database?

[ck4794]

It seems you may have a general module where a user defined function is. Were you able to compile VBA via the debugger as June7 suggested? What happens when you compile database?

Please do not try to execute the code and then say the error is here. Specificaly, what happens when you go Debugger and then Compile Database?

i may need some guidance on this. i clicked the button, got the error, went into debug, went to debug>compile, and nothing happened...

[ItsMe]

You will be working from within the VBA editor. You do not need any forms open. Do not execute any code from a form. Do not compile while the debugger is running.


Just below this line

Private Sub Command0_Click() Dim fDialog As Office.FileDialog

paste this in the next line, by itself in its own line of code.

msgbox "Hello World"

From there, save your work from within the VBA editor. Use the drop down from the toolbar menu at the top of the VBA editor. From debugger, select Compile Database or Compile.... whatever the Compile thing says

[ck4794]

followed your instructions to the T, nothing happened. what should be happening?

[ItsMe]

I looked into your code a little bit. Do you believe that pasting two different procedures from two different websites into your db is, somehow, going to acomplish something?

[ck4794]

I looked into your code a little bit. Do you believe that pasting two different procedures from two different websites into your db is, somehow, going to acomplish something?

Well yes I do believe that, or else why would I? Judging from the condescending nature of the question you don't.

It got me half way there. I can open the file dialog from the click of the button. The part that's not working is inserting the file i pick into the attachment field in a certain table. From the way I read it, the on click portion i copied and pasted will open the file dialog, but doesn't necessarily do anything with the file. The addattachment portion i copied and pasted, will insert the attachment, but has no method of choosing the attachment. And my question here is to marry them together. If you have a better method I'm all ears... Then END goal is that i want to bypass the native attachment manager, and only allow the user to upload one file at a time, and have one record for one attachment. The rest I should be able to work out for myself, as far as relating the records to other tables and what not.

[ItsMe]

Well yes I do believe that, or else why would I? Judging from the condescending nature of the question you don't.

Condescending or not I need to understand what your expectations are. It was a legitimate question. I spent a small amopunt of time reading your previous thread and then this thread. The impression I had was you don't understand what the code is doing or needs to do. Thankfully, for both of us, you chose to answer truthfully.

I created a DB to test the automated addattach thing. I got it working. I will work on the second part using the picker. I will upload it here after a bit. I have to take the time to read the code, decipher it, and understand what it is doing.