Run-time error 424,object required in userform code

**ImranBhatti** · 11-26-2015, 04:00 AM

Hello respected Gurus!

I have a simple userform.that is placing the data on sheet1 .I am have a image control on my userform. I have the pictures in the same location where my workbook exists.I have named those pictures what I have in Column A through TextBox1.The code was working fine before I added the lines of code to load pictures.But with no luck I am getting "Run-time error '24' Object required.Clicking Debug the bold line of code is highlighted.The out put I want from this code is to load picture for the specific record and it should navigate with the next and previous button. In order to understand the situation more easily, I have attached a dummy project here

Private Sub cmdNext_Click()
CurrentRow = CurrentRow + 1
Update_Form
Dim NameFound As Range

fPath = ThisWorkbook.Path & " \ "

With Cells(CurrentRow, 1).Value
Set NameFound = .Find(TextBox1.Text)
With NameFound
On Error Resume Next
ImgData.Picture = LoadPicture(fPath & “nopic.jpg”)
ImgData.Picture = LoadPicture(fPath & TextBox1.Text & ".jpg")
End With
End With
TextBox1.Value = Cells(CurrentRow, 1).Value
    TextBox2.Value = Cells(CurrentRow, 2).Value
        TextBox3.Value = Cells(CurrentRow, 3).Value
End Sub

Best Regards
Imran Bhatti

**Greg M** · 11-26-2015, 09:31 PM

Hi there,

The following corrections might get you moving in the right direction:

Change this line:


With Cells(CurrentRow, 1).Value

to:


With Cells(CurrentRow, 1)

in both the cmdPre_Click and cmdNext_Click routines.

Hope this helps - please let me know how you get on.

Regards,

Greg M

**ImranBhatti** · 11-26-2015, 11:47 PM

Thanks for reply
By making the said changes the run time error is eliminated but picrture is not loaded in ImgData.

Best Regards
Imran Bhatti

**bakerman2** · 11-27-2015, 02:34 AM

Private Sub cmdPre_Click()
    If CurrentRow > 2 Then ' row 1 has headings
        CurrentRow = CurrentRow - 1
        Update_Form
    Else
        MsgBox ("This is your first record")
    End If
End Sub

Private Sub cmdNext_Click()
    CurrentRow = CurrentRow + 1
    Update_Form
End Sub

Sub Update_Form()
    For i = 1 To 3
        Me("TextBox" & i).Value = Worksheets("Sheet1").Cells(CurrentRow, i).Value
    Next
    fPath = ThisWorkbook.Path & "\"
    ImgData.Picture = LoadPicture(fPath & TextBox1.Text & ".jpg")
End Sub

**ImranBhatti** · 11-27-2015, 03:02 AM

Fantastic bakerman!
Its working .the only probleme is that some pictures will be given late. when a record has no photo against it the error (snap attached ) occures.Clicking debug the bellow line of code in the sub Update_Form is highlighted in yello.

ImgData.Picture = LoadPicture(fPath & TextBox1.Text & ".jpg")

Hope you will also review my secondary problem as well

Best Regars
Imran bhatti

**bakerman2** · 11-27-2015, 04:33 AM

Sub Update_Form()
    For i = 1 To 3
        Me("TextBox" & i).Value = Worksheets("Sheet1").Cells(CurrentRow, i).Value
    Next
    fPath = ThisWorkbook.Path & "\"
    if Dir(fPath & TextBox1.Text & ".jpg") <> "" then
    ImgData.Picture = LoadPicture(fPath & TextBox1.Text & ".jpg")
    Else
    End If
End Sub

**ImranBhatti** · 11-27-2015, 07:32 AM

Thanks a lot bakerman the problem is 99.99% solved . when a record does not have the picture against it, the form shows picture of the previous record or if I am navigating reversly , the picture of the following record.But I have covered this problem as putting a dummy picure sketch in the phot0 collection and gave the form path to it if a record does not have a photo.
If you have a solution please do share because my solution would be like hiding a problem and not solving it.
Thanks a lot for your great help.I am going to mark the thread as solved because the major problem is solved . but please do help for the remaining.

Best Regard
Imran Bhatti

**bakerman2** · 11-27-2015, 08:38 AM

I guess the solution you found yourself is the only way to go (It would have been my answer also) and at the same time you give the user some information about what's going on. The only other option I think is just to clear the image field which is possible if you prefer that. I for one would leave it like you are doing now.

Also many thanks for the rep.

**bakerman2** · 11-27-2015, 08:38 AM

I guess the solution you found yourself is the only way to go (It would have been my answer also) and at the same time you give the user some information about what's going on. The only other option I think is just to clear the image field which is possible if you prefer that. I for one would leave it like you are doing now.

**ImranBhatti** · 11-27-2015, 10:34 AM

Thanks once again.Another solution is to set the visible property the image control to false.but the form looks odd when it is invisible.
Please do mention how to leave the image empty if no matching pic found.

Best Regards
Imran Bhatti

**bakerman2** · 11-28-2015, 03:08 AM

Sub Update_Form()
    For i = 1 To 3
        Me("TextBox" & i).Value = Worksheets("Sheet1").Cells(CurrentRow, i).Value
    Next
    fPath = ThisWorkbook.Path & "\"
    if Dir(fPath & TextBox1.Text & ".jpg") <> "" then
    ImgData.Picture = LoadPicture(fPath & TextBox1.Text & ".jpg")
    Else
    ImgData.Picture = LoadPicture("")
    End If
End Sub

**ImranBhatti** · 11-30-2015, 05:38 PM

This looks nicer than to make the image control go away.Thanks

Run-time error 424,object required in userform code

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Run-time error 424,object required in userform code

Re: Run-time error 424,object required in userform code

Re: Run-time error 424,object required in userform code

Re: Run-time error 424,object required in userform code

Re: Run-time error 424,object required in userform code

Re: Run-time error 424,object required in userform code

Re: Run-time error 424,object required in userform code

Re: Run-time error 424,object required in userform code

Re: Run-time error 424,object required in userform code

Re: Run-time error 424,object required in userform code

Re: Run-time error 424,object required in userform code

Re: Run-time error 424,object required in userform code

Thread Information

Users Browsing this Thread

Similar Threads

Code says run time error 424 Object required

Compile Error - Object Required when opening Userform on another PC

[SOLVED] List of items in a userform listbox, object required error in code

UserForm "run time Error 424 Object Required"

[SOLVED] Simple Calendar pop up macro --> error Run-time error '424': Object required

[SOLVED] 424 Object required error when calling a UserForm from another

Compile error : object required in userform

Bookmarks

Bookmarks

Posting Permissions