Show that something has changed in form

[floyd]

I have a button which allows users to find a file which is saved to the database. (File name and file location)

The problem is... I need them to know that this was successful.

Is there a way to have a red button which turns green.... or a text box which states the linkage was successful?


I guess even a popup box.

Here is the code that is used.

Private Sub FindFileInput_Click()

    Dim f As Object
    Dim strSelectedpath As String
    Dim strSelectedFile As String
    Dim varItem As Variant

    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    
    If f.Show = -1 Then
        For Each varItem In f.SelectedItems
             strSelectedpath = varItem & "#" & varItem
             strSelectedFile = Split(strSelectedpath, "\")(UBound(Split(strSelectedpath, "\")))
             Next varItem
             Me![txtSelectedFile] = strSelectedpath
             Me![txtFileName] = strSelectedFile
             
    End If
    Set f = Nothing

End Sub

[June7]

Any of those options should be possible. But why bother? Won't they see field get populated on the form?

A popup message box would be:

MsgBox "File found"

But that requires user to click a button to close box. A user aggravation in my view in this case. I use popups only when I absolutely have to. Beware overuse of message box

[DerFarm]

Presumably, you are selecting one entry from a list of possible entries.

Could you change the color of the selected entry? Alternatively, you could perhaps change the typeface of the selected entry to Italic Bold prior to leaving the loop.

Hope this helps.

[floyd]

I did THIS and I think it is working. (I get a pop up box).

Private Sub FindFileInput_Click()

    Dim f As Object
    Dim strSelectedpath As String
    Dim strSelectedFile As String
    Dim varItem As Variant

    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    
    If f.Show = -1 Then
        For Each varItem In f.SelectedItems
             strSelectedpath = varItem & "#" & varItem
             strSelectedFile = Split(strSelectedpath, "\")(UBound(Split(strSelectedpath, "\")))
             Next varItem
             Me![txtSelectedFile] = strSelectedpath
             Me![txtFileName] = strSelectedFile
             
Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Msg = "File association successful"
Style = vbOKOnly + vbInformation + vbDefaultButton1
Title = "Association"
Help = "DEMO.HLP"
Ctxt = 1000

Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then    ' User chose Yes.
    MyString = "Done"    ' Perform some action.
End If
             
    End If
    Set f = Nothing

End Sub

[June7]

MsgBox has two forms, a simple message box to user and the only response is Okay or a function that provides user with other response options. My example used the first, your code uses the latter. The difference is use of parentheses. Since the only response you allow is Okay, the function form is overkill and your If statement is useless because vbYes will never be returned by the MsgBox function.

This code runs? I don't see a Next line to go with the For Each. That should error.