Inputbox button control + msgbox for empty inputbox

**D_Rennie** · 06-30-2009, 10:27 AM

Hello.

Somethink that seam so simple in my head is turning out to be a pain in the butt.

I have the inputbox so i can set a string value,
When the inputbox Cancle button is pressed i want to exit sub,
If the inputbox value is nothink and ok button, I want the msgbox displayed then goto newname.
If the inputbox has a value do >>>>>>That>>>>>

Private Sub CommandButton6_Click()                            'Upload File
Dim strName As String
Dim imgfolder As String

    'get the path to the images
        imgfolder = ThisWorkbook.Path & Application.PathSeparator & _
    "Images" & Application.PathSeparator
    'load picture to form

                                                                ' Chane file name
If Label1.Caption = "" Or Label1.Caption = vbNewLine & "                                       " & _
"Upload Files From Computer..." Then Exit Sub Else

NewName:

    strName = InputBox(Prompt:=Label1.Caption & vbNewLine & vbNewLine _
    & vbNewLine & vbNewLine & "Rename File Before Database Entry???", _
          Title:="Attachment File Name", Default:="Your Name here"): Rem change for filename
    If vbCancel Then Exit Sub
    
    
    If strName = "" Then msgbox "A Name Must Be Entered", vbOKOnly
    If vbOKOnly And strName = "" Then GoTo NewName
    
    
    If strName <> "" Then FileCopy Label1.Caption, imgfolder & strName & ".jpg"
    ListBox1.AddItem strName
    Label1.Caption = vbNewLine & "                                       " & _
"Upload Files From Computer..."
    CommandButton6.Font.Bold = False

Thankyou.

**romperstomper** · 06-30-2009, 10:54 AM

Use Application.Inputbox with the Type:=2 argument. If it returns "", then the box was left empty and OK was pressed. If Cancel was pressed it returns False.

**D_Rennie** · 06-30-2009, 11:25 AM

Thankyou for the help.

I feel as if im missing somethink, If the listbox has a value and cancle is pressed it returning "value"

NewName:

    strName = Application.InputBox(Prompt:=Label1.Caption & vbNewLine & vbNewLine _
    & vbNewLine & vbNewLine & "Rename File Before Database Entry???", _
          Title:="Attachment File Name", Default:="Your Name here", Type:=2): Rem change for filename
    
    If strName = "" Then msgbox "A Name Must Be Entered", vbOKOnly
    If strName = "" Then GoTo NewName
    
    If strName = False Then Exit Sub
    
    If strName <> "" Then FileCopy Label1.Caption, imgfolder & strName & ".jpg"
    ListBox1.AddItem strName
    Label1.Caption = vbNewLine & "                                       " & _
"Upload Files From Computer..."
    CommandButton6.Font.Bold = False

Thankyou

**romperstomper** · 06-30-2009, 11:33 AM

Which version of Excel are you using? In 2003 I get False, even if data was entered (or just the default was left)
I assume you meant InputBox not Listbox.

**D_Rennie** · 06-30-2009, 11:38 AM

It returns values fine.
I had strName as string and has troubles
put strName as variant and it seams fine.

Does that sound about right to use variant?

it was puzzling me as it was returning false into the listbox.additem and with the debug thing said "value"

**romperstomper** · 06-30-2009, 11:58 AM

Variant is better though it should have simply coerced the False into "False" for you.

**D_Rennie** · 06-30-2009, 12:39 PM

I dont know much about it though is it when somethink is stored is a string false means like the word "letters" false. though when stored as a variant it means geek speak false.
Please dont get me to explain geek speak false. Only way to explain it would be with microsoft sam recording.